return $attr;
};
- around 'canonicalize_args' => sub {\r
- my ($next, $self, $name, %args) = @_;\r
-\r
- %args = $next->($self, $name, %args);\r
- $args{is} = 'rw' unless exists $args{is};\r
-\r
- return %args;\r
- };\r
+ 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;