summary |
shortlog |
log |
commit | commitdiff |
tree
raw (from parent 1:
cada430)
Graham Knop [Thu, 18 Apr 2013 19:57:49 +0000 (15:57 -0400)]
fallback => 1;
sub new {
my $class = shift;
- bless \$_[0], $class;
+ my $code = shift;
+ bless \$code, $class;
}
sub to_code {
my $self = shift;