Acme-SafetyGoggles

 view release on metacpan or  search on metacpan

t/my_code.pl  view on Meta::CPAN

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 ] );
}

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 ] );
}

t/my_unsafe_code.pl  view on Meta::CPAN

use t::UnsafeSourceFilter;

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 ] );
}

t/use-no.pl  view on Meta::CPAN

my $foo = 19;

no t::ToggledSourceFilter;

my $bar = 19;

print "\$foo minus \$bar is ", $foo-$bar, "\n";

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