package Maypole::Model::Base;
+use strict;
use Maypole::Constants;
use attributes ();
sub MODIFY_CODE_ATTRIBUTES { $remember{ $_[1] } = $_[2]; () }
-sub FETCH_CODE_ATTRIBUTES { $remember{ $_[1] } }
+sub FETCH_CODE_ATTRIBUTES { $remember{ $_[1] } || () }
sub process {
my ( $class, $r ) = @_;
my ( $self, $action ) = @_;
my $cv = $self->can($action);
return 0 unless $cv;
- my $attrs = join " ", attributes::get($cv);
+ my $attrs = join " ", (attributes::get($cv) || ());
do {
warn "$action not exported" if Maypole->debug;
return 0;