BEGIN {
$] >= 5.010 or plan skip_all => "test requires Perl 5.010";
};
use 5.010;
#use Test::More;
sub is_uppercase {
my $var = @_ ? shift : ${lexical::underscore()};
return $var eq uc($var);
}
my $thing = 'FOO';
my $works = 0;
given ( $thing ) {
when ( is_uppercase ) { $works++ }
}
ok($works);
done_testing();