Bug #68351 for Mouse: tests with perl 5.14 produce deprecation warnings.

This should patch things.

commit 0a763238ab3310dae29325a439976239cd29c18d Author: Todd Rinaldo <toddr@cpanel.net> Date: Fri May 20 13:12:03 2011 -0500 qw deprecations in Mouse - RT 68351 diff --git a/t/010_basics/015_buildargs.t b/t/010_basics/015_buildargs.t index 4b9b1f3..47c074b 100644 --- a/t/010_basics/015_buildargs.t +++ b/t/010_basics/015_buildargs.t @@ -24,7 +24,7 @@ use Test::More tests => 14; extends qw(Foo); } -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" ); 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" );