From 8d7d02f42c3947f756c18cb4d37d9d97fbd0d27d Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Wed, 10 Aug 2016 14:33:04 -0700 Subject: convert back to md --- posts/2009-07-26-apply-a-role-to-a-moose-object.md | 32 ++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 posts/2009-07-26-apply-a-role-to-a-moose-object.md (limited to 'posts/2009-07-26-apply-a-role-to-a-moose-object.md') 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 new file mode 100644 index 0000000..12fb393 --- /dev/null +++ b/posts/2009-07-26-apply-a-role-to-a-moose-object.md @@ -0,0 +1,32 @@ +You can apply a role to a Moose object. You can do something like + +``` 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; +``` + +with the following output: + +``` + i can't haz baz + i can haz baz +``` -- cgit v1.2.3