diff options
Diffstat (limited to '')
| -rw-r--r-- | posts/2009-07-26-apply-a-role-to-a-moose-object.org | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/posts/2009-07-26-apply-a-role-to-a-moose-object.org b/posts/2009-07-26-apply-a-role-to-a-moose-object.org deleted file mode 100644 index 9a90cbd..0000000 --- a/posts/2009-07-26-apply-a-role-to-a-moose-object.org +++ /dev/null @@ -1,32 +0,0 @@ -You can apply a role to a Moose object. You can do something like - -#+BEGIN_SRC perl - #!/usr/bin/perl -w - use strict; - use feature ':5.10'; - - package foo; - use Moose::Role; - sub baz { - say 'i can haz baz'; - } - - package bar; - use Moose; - 1; - - package main; - - my $test = bar->new; - say "i can't haz baz" if !$test->can("baz"); - - foo->meta->apply($test); - $test->baz; -#+END_SRC - -with the following output: - -#+BEGIN_EXAMPLE - i can't haz baz - i can haz baz -#+END_EXAMPLE |
