package Phases;
use 5.012;

BEGIN     { say 'Phases BEGIN' }
UNITCHECK { say 'Phases UNITCHECK' }
CHECK     { say 'Phases CHECK' }
INIT      { say 'Phases INIT'  }
END       { say 'Phases END'   }

my $my = bless {name => 'my'}, __PACKAGE__;
my $closure = bless {name => 'closure'}, __PACKAGE__;
our $our = bless {name => 'our'}, __PACKAGE__;

sub closure {
    print $closure;
}
sub DESTROY {
    my $self = shift or say 'Nothing passed to DESTROY' and return;
    my $name = $self->{name} || '<undef>';
    say "Phases DESTROY $name"
}

1;