diff options
| author | Franck Cuny <franckcuny@gmail.com> | 2016-08-04 11:45:44 -0700 |
|---|---|---|
| committer | Franck Cuny <franckcuny@gmail.com> | 2016-08-04 11:45:44 -0700 |
| commit | 585b48b6a605cb71ef99dd767880e1b7ee5bf24e (patch) | |
| tree | c65377350d12bd1e62e0bdd58458c1044541c27b /posts/2009-07-26-apply-a-role-to-a-moose-object.md | |
| parent | Use Bullet list for the index. (diff) | |
| parent | Mass convert all posts from markdown to org. (diff) | |
| download | lumberjaph-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.md | 32 |
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 -``` |
