Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 25 lines (21 sloc) 0.407 kB
#!/usr/bin/env perl
use warnings;
use strict;
{
package MyBase;
use Moose;
sub BUILD { print "1. build base\n"; }
sub DEMOLISH { print "5. destroy base\n"; }
}
{
package MySub;
use Moose;
extends 'MyBase';
sub BUILD { print "2. build sub\n"; }
sub DEMOLISH { print "4. destroy sub\n"; }
}
print "0. start\n";
my $o = MySub->new;
print "3. got an object\n";
undef $o;
print "6. done\n";
Jump to Line
Something went wrong with that request. Please try again.