r46111 - in /trunk/libmouse-perl: ./ debian/ lib/ lib/Mouse/ lib/Mouse/Meta/ lib/Mouse/Meta/Method/ lib/Mouse/Meta/Role/ lib/Mouse/Util/ t/001_mouse/ t/010_basics/ t/040_type_constraints/ t/800_shikabased/
ghostbar at users.alioth.debian.org
ghostbar at users.alioth.debian.org
Tue Oct 20 10:55:24 UTC 2009
Author: ghostbar
Date: Tue Oct 20 10:55:18 2009
New Revision: 46111
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=46111
Log:
new upstream release
Added:
trunk/libmouse-perl/t/001_mouse/057_subtype_without_where.t
- copied unchanged from r46110, branches/upstream/libmouse-perl/current/t/001_mouse/057_subtype_without_where.t
trunk/libmouse-perl/t/040_type_constraints/005_util_type_coercion.t
- copied unchanged from r46110, branches/upstream/libmouse-perl/current/t/040_type_constraints/005_util_type_coercion.t
trunk/libmouse-perl/t/040_type_constraints/007_util_more_type_coercion.t
- copied unchanged from r46110, branches/upstream/libmouse-perl/current/t/040_type_constraints/007_util_more_type_coercion.t
Removed:
trunk/libmouse-perl/t/001_mouse/038-main.t
trunk/libmouse-perl/t/010_basics/016_load_into_main.t
Modified:
trunk/libmouse-perl/Changes
trunk/libmouse-perl/MANIFEST
trunk/libmouse-perl/MANIFEST.SKIP
trunk/libmouse-perl/META.yml
trunk/libmouse-perl/debian/changelog
trunk/libmouse-perl/lib/Mouse.pm
trunk/libmouse-perl/lib/Mouse/Exporter.pm
trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm
trunk/libmouse-perl/lib/Mouse/Meta/Class.pm
trunk/libmouse-perl/lib/Mouse/Meta/Method.pm
trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm
trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm
trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm
trunk/libmouse-perl/lib/Mouse/Meta/Module.pm
trunk/libmouse-perl/lib/Mouse/Meta/Role.pm
trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm
trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm
trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm
trunk/libmouse-perl/lib/Mouse/Object.pm
trunk/libmouse-perl/lib/Mouse/Role.pm
trunk/libmouse-perl/lib/Mouse/Spec.pm
trunk/libmouse-perl/lib/Mouse/Util.pm
trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm
trunk/libmouse-perl/t/001_mouse/039-subtype.t
trunk/libmouse-perl/t/800_shikabased/001-coerce.t
trunk/libmouse-perl/t/800_shikabased/002-coerce_multi_class.t
Modified: trunk/libmouse-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/Changes?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/Changes (original)
+++ trunk/libmouse-perl/Changes Tue Oct 20 10:55:18 2009
@@ -1,4 +1,10 @@
Revision history for Mouse
+
+0.40 Mon Oct 19 18:30:32 2009
+ * Mouse::Meta::TypeConstraint
+ - Fix a subtyping issue (Thanks miyagawa san)
+ * Mouse/Mouse::Role
+ - Now export their sugars to the "main" package
0.39 Tue Oct 13 16:42:31 2009
* Fix RT #50421 (Thanks Michael G Schwern)
Modified: trunk/libmouse-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/MANIFEST?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/MANIFEST (original)
+++ trunk/libmouse-perl/MANIFEST Tue Oct 20 10:55:18 2009
@@ -96,7 +96,6 @@
t/001_mouse/035-apply-roles-to-roles.t
t/001_mouse/036-with-method-alias.t
t/001_mouse/037-dont-load-test-exception.t
-t/001_mouse/038-main.t
t/001_mouse/039-subtype.t
t/001_mouse/040-existing-subclass.t
t/001_mouse/041-enum.t
@@ -114,6 +113,7 @@
t/001_mouse/054-anon-leak.t
t/001_mouse/055-exporter.t
t/001_mouse/056-role-combine.t
+t/001_mouse/057_subtype_without_where.t
t/001_mouse/100-meta-class.t
t/001_mouse/101-meta-attribute.t
t/001_mouse/301-bugs-non-mouse.t
@@ -139,7 +139,6 @@
t/010_basics/013_create.t
t/010_basics/014_create_anon.t
t/010_basics/015_buildargs.t
-t/010_basics/016_load_into_main.t
t/010_basics/017_error_handling.t
t/010_basics/019-destruction.t
t/020_attributes/002_attribute_writer_generation.t
@@ -186,6 +185,8 @@
t/030_roles/041_empty_method_modifiers_meta_bug.t
t/030_roles/042_compose_overloading.t
t/040_type_constraints/003_util_std_type_constraints.t
+t/040_type_constraints/005_util_type_coercion.t
+t/040_type_constraints/007_util_more_type_coercion.t
t/040_type_constraints/009_union_types_and_coercions.t
t/040_type_constraints/015_enum.t
t/040_type_constraints/017_subtyping_union_types.t
Modified: trunk/libmouse-perl/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/MANIFEST.SKIP?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/MANIFEST.SKIP (original)
+++ trunk/libmouse-perl/MANIFEST.SKIP Tue Oct 20 10:55:18 2009
@@ -37,6 +37,7 @@
# Moose specific tests
xt/compatibility
+xt/external
t/.*/failing
^TODO$
Modified: trunk/libmouse-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/META.yml?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/META.yml (original)
+++ trunk/libmouse-perl/META.yml Tue Oct 20 10:55:18 2009
@@ -25,4 +25,4 @@
perl: 5.6.2
resources:
license: http://dev.perl.org/licenses/
-version: 0.39
+version: 0.40
Modified: trunk/libmouse-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/debian/changelog?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/debian/changelog (original)
+++ trunk/libmouse-perl/debian/changelog Tue Oct 20 10:55:18 2009
@@ -1,3 +1,9 @@
+libmouse-perl (0.40-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jose Luis Rivas <ghostbar at debian.org> Tue, 20 Oct 2009 06:13:32 -0430
+
libmouse-perl (0.39-1) unstable; urgency=low
* New upstream release
Modified: trunk/libmouse-perl/lib/Mouse.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse.pm (original)
+++ trunk/libmouse-perl/lib/Mouse.pm Tue Oct 20 10:55:18 2009
@@ -3,7 +3,7 @@
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.39';
+our $VERSION = '0.40';
use Carp qw(confess);
use Scalar::Util qw(blessed);
@@ -160,7 +160,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 SYNOPSIS
Modified: trunk/libmouse-perl/lib/Mouse/Exporter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Exporter.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Exporter.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Exporter.pm Tue Oct 20 10:55:18 2009
@@ -161,11 +161,6 @@
$^H |= _strict_bits; # strict->import;
${^WARNING_BITS} = $warnings::Bits{all}; # warnings->import;
- if($into eq 'main' && !$spec->{_export_to_main}){
- warn qq{$package does not export its sugar to the 'main' package.\n};
- return;
- }
-
if($spec->{INIT_META}){
foreach my $init_meta(@{$spec->{INIT_META}}){
$into->$init_meta(for_class => $into);
@@ -243,7 +238,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 SYNOPSIS
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm Tue Oct 20 10:55:18 2009
@@ -464,7 +464,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 METHODS
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Class.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Class.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Class.pm Tue Oct 20 10:55:18 2009
@@ -43,6 +43,13 @@
}
sub roles { $_[0]->{roles} }
+
+sub calculate_all_roles {
+ my $self = shift;
+ my %seen;
+ return grep { !$seen{ $_->name }++ }
+ map { $_->calculate_all_roles } @{ $self->roles };
+}
sub superclasses {
my $self = shift;
@@ -474,7 +481,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 METHODS
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Method.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method.pm Tue Oct 20 10:55:18 2009
@@ -31,7 +31,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm Tue Oct 20 10:55:18 2009
@@ -194,7 +194,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm Tue Oct 20 10:55:18 2009
@@ -191,7 +191,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm Tue Oct 20 10:55:18 2009
@@ -55,7 +55,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Module.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Module.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Module.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Module.pm Tue Oct 20 10:55:18 2009
@@ -326,7 +326,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Role.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role.pm Tue Oct 20 10:55:18 2009
@@ -34,6 +34,13 @@
}
sub get_roles { $_[0]->{roles} }
+
+sub calculate_all_roles {
+ my $self = shift;
+ my %seen;
+ return grep { !$seen{ $_->name }++ }
+ ($self, map { $_->calculate_all_roles } @{ $self->get_roles });
+}
sub get_required_method_list{
return @{ $_[0]->{required_methods} };
@@ -316,7 +323,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm Tue Oct 20 10:55:18 2009
@@ -120,7 +120,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm Tue Oct 20 10:55:18 2009
@@ -13,7 +13,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm Tue Oct 20 10:55:18 2009
@@ -101,11 +101,11 @@
my @checks;
for(my $parent = $self->parent; defined $parent; $parent = $parent->parent){
if($parent->{hand_optimized_type_constraint}){
- push @checks, $parent->{hand_optimized_type_constraint};
+ unshift @checks, $parent->{hand_optimized_type_constraint};
last; # a hand optimized constraint must include all the parents
}
elsif($parent->{constraint}){
- push @checks, $parent->{constraint};
+ unshift @checks, $parent->{constraint};
}
}
@@ -249,7 +249,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 DESCRIPTION
Modified: trunk/libmouse-perl/lib/Mouse/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Object.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Object.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Object.pm Tue Oct 20 10:55:18 2009
@@ -95,7 +95,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 METHODS
Modified: trunk/libmouse-perl/lib/Mouse/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Role.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Role.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Role.pm Tue Oct 20 10:55:18 2009
@@ -1,7 +1,7 @@
package Mouse::Role;
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.39';
+our $VERSION = '0.40';
use Carp qw(confess);
use Scalar::Util qw(blessed);
@@ -143,7 +143,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 SYNOPSIS
Modified: trunk/libmouse-perl/lib/Mouse/Spec.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Spec.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Spec.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Spec.pm Tue Oct 20 10:55:18 2009
@@ -2,7 +2,7 @@
use strict;
use warnings;
-our $VERSION = '0.39';
+our $VERSION = '0.40';
our $MouseVersion = $VERSION;
our $MooseVersion = '0.90';
@@ -19,7 +19,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 SYNOPSIS
@@ -41,7 +41,7 @@
Any MOP has no attributes, so
C<< $metaclass->meta->make_immutable() >> does not yet work as you expect.
-=head3 C<Mouse::Meta::Instance>
+=head3 Mouse::Meta::Instance
Meta instance mechanism is not implemented.
@@ -49,7 +49,7 @@
Role exclusion, C<exclude()>, is not implemented.
-=head3 C<-traits> and C<-metaclass> in Mouse::Exporter
+=head3 -traits and -metaclass in Mouse::Exporter
C<< use Mouse -traits => ... >> and C<< use Mouse -metaclass => ... >> are not
yet implemented.
@@ -130,5 +130,11 @@
L<Mouse>
+L<Moose>
+
+L<Moose::Manual>
+
+L<Moose::Cookbook>
+
=cut
Modified: trunk/libmouse-perl/lib/Mouse/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Util.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Util.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Util.pm Tue Oct 20 10:55:18 2009
@@ -34,7 +34,6 @@
# The ':meta' group is 'use metaclass' for Mouse
meta => [qw(does meta dump _MOUSE_VERBOSE)],
},
- _export_to_main => 1,
);
# aliases as public APIs
@@ -354,7 +353,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head1 IMPLEMENTATIONS FOR
Modified: trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm Tue Oct 20 10:55:18 2009
@@ -14,8 +14,6 @@
type subtype coerce class_type role_type enum
find_type_constraint
)],
-
- _export_to_main => 1,
);
my %TYPE;
@@ -425,7 +423,7 @@
=head1 VERSION
-This document describes Mouse version 0.39
+This document describes Mouse version 0.40
=head2 SYNOPSIS
Modified: trunk/libmouse-perl/t/001_mouse/039-subtype.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/t/001_mouse/039-subtype.t?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/t/001_mouse/039-subtype.t (original)
+++ trunk/libmouse-perl/t/001_mouse/039-subtype.t Tue Oct 20 10:55:18 2009
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 7;
+use Test::More tests => 11;
use Test::Exception;
use Mouse::Util::TypeConstraints;
@@ -16,10 +16,16 @@
=> where { length $_ }
=> message { "The string is empty!" };
+ subtype 'MyClass'
+ => as 'Object'
+ => where { $_->isa(__PACKAGE__) };
+
has name => (
is => 'ro',
isa => 'NonemptyStr',
);
+
+
};
ok(My::Class->new(name => 'foo'));
@@ -35,3 +41,10 @@
ok!$st->check(undef);
ok!$st->check('');
+lives_and{
+ my $tc = find_type_constraint('MyClass');
+ ok $tc->check(My::Class->new());
+ ok!$tc->check('My::Class');
+ ok!$tc->check([]);
+ ok!$tc->check(undef);
+};
Modified: trunk/libmouse-perl/t/800_shikabased/001-coerce.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/t/800_shikabased/001-coerce.t?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/t/800_shikabased/001-coerce.t (original)
+++ trunk/libmouse-perl/t/800_shikabased/001-coerce.t Tue Oct 20 10:55:18 2009
@@ -13,7 +13,7 @@
use Mouse;
use Mouse::Util::TypeConstraints;
- subtype 'HeadersType' => as 'Object' => where { defined $_ && eval { $_->isa('Headers') } };
+ subtype 'HeadersType' => as 'Object' => where { $_->isa('Headers') };
coerce 'HeadersType' =>
from 'ScalarRef' => via {
Headers->new();
Modified: trunk/libmouse-perl/t/800_shikabased/002-coerce_multi_class.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/t/800_shikabased/002-coerce_multi_class.t?rev=46111&op=diff
==============================================================================
--- trunk/libmouse-perl/t/800_shikabased/002-coerce_multi_class.t (original)
+++ trunk/libmouse-perl/t/800_shikabased/002-coerce_multi_class.t Tue Oct 20 10:55:18 2009
@@ -18,7 +18,7 @@
use Mouse;
use Mouse::Util::TypeConstraints;
- type 'Headers' => where { defined $_ && eval { $_->isa('Response::Headers') } };
+ subtype 'Headers' => as 'Object', where { $_->isa('Response::Headers') };
coerce 'Headers' =>
from 'HashRef' => via {
Response::Headers->new(%{ $_ });
More information about the Pkg-perl-cvs-commits
mailing list