summaryrefslogtreecommitdiff
path: root/posts/2009-07-26-apply-a-role-to-a-moose-object.md
diff options
context:
space:
mode:
authorFranck Cuny <franckcuny@gmail.com>2016-08-04 11:45:44 -0700
committerFranck Cuny <franckcuny@gmail.com>2016-08-04 11:45:44 -0700
commit585b48b6a605cb71ef99dd767880e1b7ee5bf24e (patch)
treec65377350d12bd1e62e0bdd58458c1044541c27b /posts/2009-07-26-apply-a-role-to-a-moose-object.md
parentUse Bullet list for the index. (diff)
parentMass convert all posts from markdown to org. (diff)
downloadlumberjaph-585b48b6a605cb71ef99dd767880e1b7ee5bf24e.tar.gz
Merge branch 'convert-to-org'
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.md32
1 files changed, 0 insertions, 32 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 2af9ab9..0000000
--- a/posts/2009-07-26-apply-a-role-to-a-moose-object.md
+++ /dev/null
@@ -1,32 +0,0 @@
-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
-```