[libtype-tiny-perl] 05/06: fix Type::Tiny->can

[Jonas Smedegaard]

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 <mail at 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