This is an automated email from the git hooks/post-receive script. js pushed a commit to tag 0.043_02 in repository libtype-tiny-perl.
commit c673d657419e3ea20f70d94b0365ca0463f55886 Author: Toby Inkster <m...@tobyinkster.co.uk> Date: Fri Apr 11 23:48:12 2014 +0100 fix Type::Tiny->can --- lib/Type/Tiny.pm | 3 +-- t/20-unit/Type-Tiny-Class/plus-constructors.t | 2 +- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/lib/Type/Tiny.pm b/lib/Type/Tiny.pm index 24cb78a..a53c0ec 100644 --- a/lib/Type/Tiny.pm +++ b/lib/Type/Tiny.pm @@ -917,7 +917,6 @@ sub _process_coercion_list sub plus_coercions { my $self = shift; - my $new = $self->_clone; $new->coercion->add_type_coercions( $self->_process_coercion_list(@_), @@ -1043,7 +1042,7 @@ sub can if ($INC{"Moose.pm"}) { my $method = $self->moose_type->can(@_); - return sub { shift->moose_type->$method(@_) }; + return sub { shift->moose_type->$method(@_) } if $method; } if ($_[0] =~ /\Amy_(.+)\z/) { diff --git a/t/20-unit/Type-Tiny-Class/plus-constructors.t b/t/20-unit/Type-Tiny-Class/plus-constructors.t index 5453ea6..b00b9bb 100644 --- a/t/20-unit/Type-Tiny-Class/plus-constructors.t +++ b/t/20-unit/Type-Tiny-Class/plus-constructors.t @@ -92,7 +92,7 @@ BEGIN { my ($name) = @_; $class->new(name => $name); } - + $Person = class_type { class => __PACKAGE__ }; }; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtype-tiny-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits