view release on metacpan or  search on metacpan

t/my_safe_code.pl  view on Meta::CPAN

use t::SafeSourceFilter;

my $foo = 42;
print "7 times 6 equals $foo\n";

if ($INC{"Acme/SafetyGoggles.pm"}) {
    use Data::Dumper;
    $Data::Dumper::Indent = 0;
    print Data::Dumper::Dumper(
	[ $foo,
	  Acme::SafetyGoggles->state,
	  Acme::SafetyGoggles->diff ] );
}