view release on metacpan or  search on metacpan

lib/Acme/UseStrict.pm  view on Meta::CPAN

30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
}
 
sub unimport
{
        $^H{+__PACKAGE__} = 0;
}
 
sub in_effect
{
        my $level    = $_[0] // 0;
        my $hinthash = (caller($level))[10];
        return $hinthash->{+__PACKAGE__};
}
 
'use strict constantly';
 
__END__
 
=head1 NAME
 
Acme::UseStrict - use strict constantly