Help for this page

Select Code to Download


  1. or download this
    package Deconstifier;
use warnings;
...
}

1;
  2. or download this
    use warnings;
use strict;
...
my $trans = new_ok 'Deconstifier';
ok $trans->apply(\$code), 'apply';
is $code, $exp, 'output is as expected';
  3. or download this
    package FilterLoad;
use warnings;
...
}

1;
  4. or download this
    use warnings;
use strict;
...
AnyEvent::DNS::foobar();
sub AnyEvent::DNS::DOMAIN_PORT () { 4242 }
AnyEvent::DNS::foobar();
  5. or download this
    Subroutine Foo::ONE redefined at test.pl line 9.
Subroutine Foo::TWO redefined at test.pl line 10.
...
One=444, Two=555, Three=666
DOMAIN_PORT=4242
DOMAIN_PORT=4242