Skip to content

Instantly share code, notes, and snippets.

@abh
Created October 23, 2010 02:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save abh/641707 to your computer and use it in GitHub Desktop.
Save abh/641707 to your computer and use it in GitHub Desktop.
#!/usr/bin/env perl
package Foo::Role;
use Moose::Role;
before BUILD => sub {
print "Foo::Role::BUILD\n";
};
package Foo;
use Moose;
sub BUILD {
print "Foo::BUILD\n";
}
package Bar;
use Moose;
extends 'Foo';
with 'Foo::Role';
package main;
Bar->new;
1;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment