X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F990_deprecated%2F044-attribute-metaclass.t;h=8a3eb9f580cea6769678c7f5a49828052b9da0ae;hp=0701c93d7ff03bb4706d59bb50b065abc15a1d02;hb=346a3ab8a10ac61eae8021ccfd068d80ccccd56a;hpb=434ca2692227b28f133617feac9defae11627b39 diff --git a/t/990_deprecated/044-attribute-metaclass.t b/t/990_deprecated/044-attribute-metaclass.t index 0701c93..8a3eb9f 100644 --- a/t/990_deprecated/044-attribute-metaclass.t +++ b/t/990_deprecated/044-attribute-metaclass.t @@ -31,14 +31,14 @@ do { return $attr; }; - around 'canonicalize_args' => sub { - my ($next, $self, $name, %args) = @_; - - %args = $next->($self, $name, %args); - $args{is} = 'rw' unless exists $args{is}; - - return %args; - }; + around 'canonicalize_args' => sub { + my ($next, $self, $name, %args) = @_; + + %args = $next->($self, $name, %args); + $args{is} = 'rw' unless exists $args{is}; + + return %args; + }; package # hide me from search.cpan.org Mouse::Meta::Attribute::Custom::Number; @@ -59,7 +59,7 @@ do { }; can_ok 'Klass', 'add_number', 'number'; -my $k = Klass->new(i=>3); +my $k = Klass->new(number => 3); $k->add_number(4); is $k->number, 7;