X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FTypeConstraint%2FRegistry.pm;h=6b6d8119a5cb6cbf664338ba6c3eca782de8c6ba;hb=35312f80e118b61b735b8ce6a32a921df935319a;hp=cdab08f7565239dfd8f843a8b024869859e17a9d;hpb=56d7c7453888ed2c684bcdb1d905841d8d03aeb1;p=gitmo%2FMoose.git diff --git a/lib/Moose/Meta/TypeConstraint/Registry.pm b/lib/Moose/Meta/TypeConstraint/Registry.pm index cdab08f..6b6d811 100644 --- a/lib/Moose/Meta/TypeConstraint/Registry.pm +++ b/lib/Moose/Meta/TypeConstraint/Registry.pm @@ -7,7 +7,7 @@ use metaclass; use Scalar::Util 'blessed'; -our $VERSION = '0.73'; +our $VERSION = '1.19'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; @@ -15,8 +15,8 @@ use base 'Class::MOP::Object'; __PACKAGE__->meta->add_attribute('parent_registry' => ( reader => 'get_parent_registry', - writer => 'set_parent_registry', - predicate => 'has_parent_registry', + writer => 'set_parent_registry', + predicate => 'has_parent_registry', )); __PACKAGE__->meta->add_attribute('type_constraints' => ( @@ -24,7 +24,7 @@ __PACKAGE__->meta->add_attribute('type_constraints' => ( default => sub { {} } )); -sub new { +sub new { my $class = shift; my $self = $class->_new(@_); return $self; @@ -37,7 +37,7 @@ sub has_type_constraint { sub get_type_constraint { my ($self, $type_name) = @_; - return unless defined $type_name; + return unless defined $type_name; $self->type_constraints->{$type_name} } @@ -144,9 +144,7 @@ parent, if it has one. =head1 BUGS -All complex software has bugs lurking in it, and this module is no -exception. If you find a bug please either email me, or add the bug -to cpan-RT. +See L for details on reporting bugs. =head1 AUTHOR @@ -154,7 +152,7 @@ Stevan Little Estevan@iinteractive.comE =head1 COPYRIGHT AND LICENSE -Copyright 2006-2009 by Infinity Interactive, Inc. +Copyright 2006-2010 by Infinity Interactive, Inc. L