use Test::More;
BEGIN {
- plan skip_all => 'Variable::Magic 0.08 on 5.10 required to test uvar magic'
- unless eval "use Variable::Magic 0.08; Variable::Magic::VMG_UVAR";
+ plan skip_all => 'Variable::Magic 0.35 on 5.10 required to test uvar magic'
+ unless eval "use Variable::Magic 0.35; Variable::Magic::VMG_UVAR";
}
{
package Lexical::Types::Test::Ref;
- use Variable::Magic qw/wizard cast/;
+ use Variable::Magic qw<wizard cast>;
our $wiz;
BEGIN {
BEGIN {
plan tests => 2 * 11;
+ defined and diag "Using Variable::Magic $_" for $Variable::Magic::VERSION;
}
use Lexical::Types as => 'Lexical::Types::Test';
my $want = wantarray;
my @ret;
{
- local @{$got}{qw/fetch store/}; delete @{$got}{qw/fetch store/};
+ local @{$got}{qw<fetch store>};
+ delete @{$got}{qw<fetch store>};
if ($want) {
@ret = eval { $test->() };
} elsif (defined $want) {
} else {
eval { $test->() };
}
+ local $Test::Builder::Level = $Test::Builder::Level + 1;
is_deeply $got, $exp, $desc;
}
return $want ? @ret : $ret[0];