summaryrefslogtreecommitdiff
path: root/_posts/2009-07-26-apply-a-role-to-a-moose-object.md
diff options
context:
space:
mode:
Diffstat (limited to '_posts/2009-07-26-apply-a-role-to-a-moose-object.md')
-rw-r--r--_posts/2009-07-26-apply-a-role-to-a-moose-object.md38
1 files changed, 0 insertions, 38 deletions
diff --git a/_posts/2009-07-26-apply-a-role-to-a-moose-object.md b/_posts/2009-07-26-apply-a-role-to-a-moose-object.md
deleted file mode 100644
index 3e96ac0..0000000
--- a/_posts/2009-07-26-apply-a-role-to-a-moose-object.md
+++ /dev/null
@@ -1,38 +0,0 @@
----
-layout: post
-title: Apply a role to a Moose object
-summary: In which I show how to apply a role to a Moose's object
----
-
-You can apply a role to a Moose object. You can do something like
-
-{% highlight 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;
-{% endhighlight %}
-
-with the following output:
-
-```
-i can't haz baz
-i can haz baz
-```