update the tests to strictures 2. ran ack to check this time. FFS.

[p5sagit/Package-Variant.git] / t / 30-pragma-leak.t

use strictures 2;
use Test::More;
use Test::Fatal;
use Package::Variant ();

BEGIN {
  package TestPragma;
  use Package::Variant
    importing => [ 'strict' ];
  sub make_variant { }
  $INC{'TestPragma.pm'} = __FILE__;
}

is exception {
  eval q{
    no strict;
    use TestPragma;
    $var = $var;
    1;
  } or die $@;
}, undef, 'pragmas not applied where PV package used';

is exception {
  eval q{
    no strict;
    BEGIN { my $p = TestPragma(); }
    $var2 = $var2;
    1;
  } or die $@;
}, undef, 'pragmas not applied where PV generator used';

done_testing;