Permalink
Browse files
handle qw() in list context (deprecated in v5.14)
- Loading branch information...
Showing
with
2 additions
and
2 deletions.
-
+2
−2
t/01-basic.t
|
|
@@ -11,7 +11,7 @@ BEGIN { use_ok('YAML::AppConfig') } |
|
|
ok( $app, "Instantiated object from file." );
|
|
|
isa_ok( $app, "YAML::AppConfig", "Asserting isa YAML::AppConfig" );
|
|
|
my $c = 1;
|
|
|
for my $var qw(foo bar) {
|
|
|
for my $var (qw(foo bar)) {
|
|
|
is( $app->get($var), $c, "Retrieving value for $var." );
|
|
|
my $method = "get_$var";
|
|
|
ok( $app->can($method), "Checking that \$app can get_$var." );
|
|
|
@@ -31,7 +31,7 @@ BEGIN { use_ok('YAML::AppConfig') } |
|
|
ok( $app, "Instantiated object from string." );
|
|
|
isa_ok( $app, "YAML::AppConfig", "Asserting isa YAML::AppConfig" );
|
|
|
my $c = 1;
|
|
|
for my $var qw(foo bar) {
|
|
|
for my $var (qw(foo bar)) {
|
|
|
is( $app->get($var), $c, "Retrieving value for $var." );
|
|
|
my $method = "get_$var";
|
|
|
ok( $app->can($method), "Checking that \$app can get_$var." );
|
|
|
|
0 comments on commit
3bd3da2