Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
my $external = bless {name => 'external'}, 'Phases';
END       { say 'Main END'     }
say 'Main Last line';
  2. or download this
    package Phases;
use 5.012;
...
}

1;
  3. or download this
    Phases BEGIN
Phases UNITCHECK
...
Phases DESTROY closure
Phases DESTROY our
Phases DESTROY main_closure