Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

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.