view release on metacpan or  search on metacpan

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

no warnings 'redefine';
*DIAG = $ENV{ACME_SAFETYGOGGLES_DIAG} ? *STDERR : *DEVNULL;

my ($state, $diff);
sub state { $state }
sub diff  { $diff  }

sub _set_current {
  print DIAG "A::SG::_set_current => \n\n\n==========\n$_\n==========\n\n\n\n";
  our $current;
  $current = $_ if length($_);
}



CHECK {
  print DIAG "A::SG::CHECK\n";
  &apply_safety_goggles;
}

BEGIN {

t/unsafe.t  view on Meta::CPAN

use lib 't';
use t::UnsafeSourceFilter;
use Acme::SafetyGoggles;
use Test::More tests => length("xx");  # Can't say tests=>2 because of source filter!

my $foo = 42;

ok( Acme::SafetyGoggles->state eq 'unsafe',
    'Acme::SafetyGoggles on altered module marked unsafe' );
ok( $foo + 1 != 43, "foo assignment was altered" );

diag "Differences between source code/source file: ",
	Acme::SafetyGoggles->diff;