From 0afbfaee75e8480e8e0ed0a3bbd3749a4756f727 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Fri, 10 Sep 2010 23:25:10 +0200 Subject: initial import --- ...09-07-26-apply-a-role-to-a-moose-object.textile | 38 ++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 _posts/2009-07-26-apply-a-role-to-a-moose-object.textile (limited to '_posts/2009-07-26-apply-a-role-to-a-moose-object.textile') 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 new file mode 100644 index 0000000..40ace15 --- /dev/null +++ b/_posts/2009-07-26-apply-a-role-to-a-moose-object.textile @@ -0,0 +1,38 @@ +--- +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 -- cgit v1.2.3