Skip to content

Instantly share code, notes, and snippets.

@samuraisam
Created June 25, 2013 01:42
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 samuraisam/5855270 to your computer and use it in GitHub Desktop.
Save samuraisam/5855270 to your computer and use it in GitHub Desktop.
our sub EXPORT(*@args) {
my %ret;
my $mod = Metamodel::ModuleHOW.new_type('PB');
my $typ := Metamodel::ClassHOW.new_type('PB::Hello');
$typ.HOW.compose($typ);
$mod.WHAT{'&Hello'} = $typ; # doesn't work
$mod.HOW.compose($mod);
# EXPORT_SYMBOL('&PB::Hello', [<ALL DEFAULT>], $typ); # doesn't work either.
return {'&PB' => $mod};
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment