Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- package Foo;
- use Moose;
- sub DEMOLISH { warn 'Foo::Demolish' }
- sub BUILD { warn 'Foo::Build' }
- package Bar;
- use Moose;
- extends 'Foo';
- sub DEMOLISH { warn 'Bar::Demolish' }
- sub BUILD { warn 'Bar::Build' }
- package main;
- my $b = Bar->new;
Add Comment
Please, Sign In to add comment