X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole.pm;h=20a3c0e02f14c8593e824fdd9c59ce310a3a9320;hb=cdf684b24a154500e5c05a49be8b5c7bae6a08a8;hp=08be2fa30621a8c5179c04ff04d37b4f492fe2e1;hpb=9834e1b93cff3936e8229471fab844abe5dce736;p=maypole.git diff --git a/lib/Maypole.pm b/lib/Maypole.pm index 08be2fa..20a3c0e 100644 --- a/lib/Maypole.pm +++ b/lib/Maypole.pm @@ -4,7 +4,7 @@ use attributes (); use UNIVERSAL::require; use strict; use warnings; -our $VERSION = "1.2"; +our $VERSION = "1.3"; __PACKAGE__->mk_classdata($_) for qw( config init_done view_object ); __PACKAGE__->mk_accessors ( qw( ar params query objects model_class args action template )); @@ -28,6 +28,7 @@ sub setup { my $config = $calling_class->config; $config->{model} ||= "Maypole::Model::CDBI"; $config->{model}->require; + die "Couldn't load the model class $config->{model}: $@" if $@; $config->{model}->setup_database($config, $calling_class, @_); for my $subclass (@{$config->{classes}}) { no strict 'refs'; @@ -42,6 +43,7 @@ sub init { my $config = $class->config; $config->{view} ||= "Maypole::View::TT"; $config->{view}->require; + die "Couldn't load the view class $config->{view}: $@" if $@; $config->{display_tables} ||= [ @{$class->config->{tables}} ]; $class->view_object($class->config->{view}->new); $class->init_done(1); @@ -245,6 +247,12 @@ sub get_request { } sub parse_location { die "Do not use Maypole directly; use Apache::MVC or similar" } sub send_output{ die "Do not use Maypole directly; use Apache::MVC or similar" } +=head1 SEE ALSO + +There's more documentation, examples, and a wiki at the Maypole web site: + +http://maypole.simon-cozens.org/ + =head1 AUTHOR Simon Cozens, C