summaryrefslogtreecommitdiff
path: root/posts/2009-07-26-apply-a-role-to-a-moose-object.org
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--posts/2009-07-26-apply-a-role-to-a-moose-object.org32
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