return DECLINED() unless exists $config->ok_tables->{ $self->{table} };
# Is it public?
return DECLINED() unless exists $config->ok_tables->{ $self->{table} };
# Is it public?
- return DECLINED unless $r->model_class->is_public( $r->{action} );
+ return DECLINED unless $self->model_class->is_public( $self->{action} );
sub is_public {
my ( $self, $action ) = @_;
my $cv = $self->can($action);
sub is_public {
my ( $self, $action ) = @_;
my $cv = $self->can($action);
- return DECLINED() unless $cv;
my $attrs = join " ", attributes::get($cv);
do {
warn "$action not exported" if Maypole->debug;
my $attrs = join " ", attributes::get($cv);
do {
warn "$action not exported" if Maypole->debug;
} unless $attrs =~ /\bExported\b/i;
} unless $attrs =~ /\bExported\b/i;