From 2d2a43f200b88627253f2906fbae87cef7c1e8ce Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Thu, 4 Aug 2016 11:12:37 -0700 Subject: Mass convert all posts from markdown to org. --- .../2009-07-26-apply-a-role-to-a-moose-object.org | 32 ++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 posts/2009-07-26-apply-a-role-to-a-moose-object.org (limited to 'posts/2009-07-26-apply-a-role-to-a-moose-object.org') 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 new file mode 100644 index 0000000..9a90cbd --- /dev/null +++ b/posts/2009-07-26-apply-a-role-to-a-moose-object.org @@ -0,0 +1,32 @@ +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 -- cgit v1.2.3