summaryrefslogtreecommitdiff
path: root/_posts/2009-07-26-apply-a-role-to-a-moose-object.textile
diff options
context:
space:
mode:
Diffstat (limited to '_posts/2009-07-26-apply-a-role-to-a-moose-object.textile')
-rw-r--r--_posts/2009-07-26-apply-a-role-to-a-moose-object.textile38
1 files changed, 0 insertions, 38 deletions
diff --git a/_posts/2009-07-26-apply-a-role-to-a-moose-object.textile b/_posts/2009-07-26-apply-a-role-to-a-moose-object.textile
deleted file mode 100644
index 40ace15..0000000
--- a/_posts/2009-07-26-apply-a-role-to-a-moose-object.textile
+++ /dev/null
@@ -1,38 +0,0 @@
----
-layout: post
-title: Apply a role to a Moose object
-category: perl
----
-
-h2. Apply a role to a Moose 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:
-
-bc. i can't haz baz
-i can haz baz