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