use strict;
use warnings;
use Maypole::Config;
+use Maypole::Constants;
+
our $VERSION = '2.0';
+
__PACKAGE__->mk_classdata($_) for qw( config init_done view_object );
__PACKAGE__->mk_accessors(
qw( ar params query objects model_class template_args output path
);
__PACKAGE__->config( Maypole::Config->new() );
__PACKAGE__->init_done(0);
-use Maypole::Constants;
sub debug { 0 }
$config->ok_tables || $config->ok_tables( $config->display_tables );
$config->ok_tables( { map { $_ => 1 } @{ $config->ok_tables } } )
if ref $config->ok_tables eq "ARRAY";
- warn "We don't have that table ($self->{table})"
+ warn "We don't have that table ($self->{table}).\n"
+ . "Available tables are: "
+ . join( ",", @{ $config->{display_tables} } )
if $self->debug
and not $config->ok_tables->{ $self->{table} };
return DECLINED() unless exists $config->ok_tables->{ $self->{table} };
- # Does the action method exist?
- my $cv = $self->model_class->can( $self->{action} );
- warn "We don't have that action ($self->{action})"
- if $self->debug and not $cv;
- return DECLINED() unless $cv;
-
- # Is it exported?
- $self->{method_attribs} = join " ", attributes::get($cv);
- do {
- warn "$self->{action} not exported" if $self->debug;
- return DECLINED();
- } unless $self->{method_attribs} =~ /\bExported\b/i;
+ # Is it public?
+ return DECLINED unless $self->model_class->is_public( $self->{action} );
return OK();
}
=head1 DESCRIPTION
This documents the Maypole request object. For user documentation, see
-L<Maypole::Tutorial>.
+L<Maypole::Manual>.
=head2 CLASS METHODS
=head3 setup
- My::App->setup();
+ My::App->setup($data_source, $user, $password, \%attr);
- Initialise the maypole application and model classes. Your
- application should
- call this after setting configuration via L<"config">
+Initialise the maypole application and model classes. Your application should
+call this after setting configuration via L<"config">
=head3 init
sub My::App::debug {1}
- Returns the debugging flag. Override this in your application class
- to
- enable/disable debugging.
+Returns the debugging flag. Override this in your application class to
+enable/disable debugging.
=head2 INSTANCE METHODS
$r->template_args->{foo} = 'bar';
- Get/set a hash of template variables.
+Get/set a hash of template variables.
=head3 template
=head1 THANK YOU
-Danijel Milicevic, Jesse Scheidlower, Jody Belka, Marcus Ramberg,
+Danijel Milicevic, Dave Slack, Jesse Sheidlower, Jody Belka, Marcus Ramberg,
Mickael Joanne, Simon Flack, Veljko Vidovic and all the others who've
helped.