1 --- trunk.orig/lib/Maypole/Model/Base.pm
2 +++ trunk/lib/Maypole/Model/Base.pm
4 shift; # class name not used
5 my ($coderef, @attrs) = @_;
7 - $remember{$coderef} = \@attrs;
8 + $remember{$coderef} = [$coderef, \@attrs];
10 # previous version took care to return an empty array, not sure why,
11 # but shall cargo cult it until know better
15 -sub FETCH_CODE_ATTRIBUTES { @{ $remember{$_[1]} || [] } }
16 +sub FETCH_CODE_ATTRIBUTES { @{ $remember{$_[1]}->[1] || [] } }
20 + for my $key (keys %remember) {
21 + my $value = delete $remember{$key};
23 + $remember{$key} = $value;
28 my ( $class, $r ) = @_;