Skip to content

Instantly share code, notes, and snippets.

@tadzik

tadzik/gist:1206761

Created September 9, 2011 17:09
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tadzik/1206761 to your computer and use it in GitHub Desktop.
Save tadzik/1206761 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.pl
┌─[tadzik@yavin4]─[~/src/mo-pm] (master)
└─[%]─> cat foo.pl
use 5.014;
package Foo {
use Mo;
has 'foo', default => sub { say 'defaulting!'; 5 }
}
my $a = Foo->new;
say $a->foo;
$a->foo(undef);
say $a->foo;
┌─[tadzik@yavin4]─[~/src/mo-pm] (master)
└─[%]─> PERL5LIB=lib perl foo.pl
defaulting!
5
defaulting!
5
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment