Skip to content

Instantly share code, notes, and snippets.

@ynonp

ynonp/18_destroy.pl

Created July 1, 2012 20:21
Show Gist options
  • Save ynonp/3029472 to your computer and use it in GitHub Desktop.
Save ynonp/3029472 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
18_destroy.pl
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;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment