X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F300_immutable%2F009_buildargs.t;fp=t%2F300_immutable%2F009_buildargs.t;h=f2959a9068708ac38289a7a572485dfc060e4671;hb=031f47efbfc263acad7d2b5edbaa322ca4207ecb;hp=b1e433bdb88d8874b153d35bacc6a855a3556654;hpb=6336eb18ec59cf5c9c057624c7a1d15f449b00c6;p=gitmo%2FMouse.git diff --git a/t/300_immutable/009_buildargs.t b/t/300_immutable/009_buildargs.t index b1e433b..f2959a9 100644 --- a/t/300_immutable/009_buildargs.t +++ b/t/300_immutable/009_buildargs.t @@ -31,7 +31,7 @@ use Test::More; __PACKAGE__->meta->make_immutable; } -foreach my $class qw(Foo Bar) { +foreach my $class (qw(Foo Bar)) { is( $class->new->bar, undef, "no args" ); is( $class->new( bar => 42 )->bar, 42, "normal args" ); is( $class->new( 37 )->bar, 37, "single arg" );