summaryrefslogtreecommitdiff
path: root/posts/2009-07-26-apply-a-role-to-a-moose-object.org
diff options
context:
space:
mode:
authorFranck Cuny <franck.cuny@gmail.com>2016-08-10 14:33:04 -0700
committerFranck Cuny <franck.cuny@gmail.com>2016-08-10 20:17:56 -0700
commit8d7d02f42c3947f756c18cb4d37d9d97fbd0d27d (patch)
treea6cecddaaea7e87d901a6c28bebe3a531438f24b /posts/2009-07-26-apply-a-role-to-a-moose-object.org
parentMerge branch 'convert-to-org' (diff)
downloadlumberjaph-8d7d02f42c3947f756c18cb4d37d9d97fbd0d27d.tar.gz
convert back to md
Diffstat (limited to 'posts/2009-07-26-apply-a-role-to-a-moose-object.org')
-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