X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types.git;a=blobdiff_plain;f=lib%2FMooseX%2FTypes%2FUndefinedType.pm;fp=lib%2FMooseX%2FTypes%2FUndefinedType.pm;h=9db74610b313a23bc8fe707dda8819408d972c89;hp=97e403193266fddb9d5c36dff3dd679861965f89;hb=e9dc30af81ed775a6ac0a0f0c1daad021e5569f6;hpb=a2487cfb17f24711667462ae01dc8cf8a47ac87e diff --git a/lib/MooseX/Types/UndefinedType.pm b/lib/MooseX/Types/UndefinedType.pm index 97e4031..9db7461 100644 --- a/lib/MooseX/Types/UndefinedType.pm +++ b/lib/MooseX/Types/UndefinedType.pm @@ -11,9 +11,9 @@ use overload '""' => sub { shift->name }, =head1 DESCRIPTION -Whenever a type handle function (e.g. C can't find a type +Whenever a type handle function (e.g. C can't find a type constraint under it's full name, it assumes it has not yet been defined. -It will then return an instance of this class, handling only +It will then return an instance of this class, handling only stringification, name and possible identification of undefined types. Later, when you try to use the Undefined Type Constraint, autovivification will @@ -84,7 +84,7 @@ Try to autovivify and delegate sub AUTOLOAD { my ($self, @args) = @_; - my ($method) = our $AUTOLOAD =~ /([^:]+)$/; + my ($method) = our $AUTOLOAD =~ /([^:]+)$/; if(my $type_constraint = $self->__autovivify) { return $type_constraint->$method(@args); @@ -107,7 +107,7 @@ sub DESTROY { =head1 SEE ALSO L, -L, +L, L, L