use Maypole::Config;
use Maypole::Constants;
-our $VERSION = '2.03';
+our $VERSION = '2.05';
__PACKAGE__->mk_classdata($_) for qw( config init_done view_object );
__PACKAGE__->mk_accessors(
qw( ar params query objects model_class template_args output path
- args action template error document_encoding content_type table)
+ args action template error document_encoding content_type table
+ extra_headers )
);
__PACKAGE__->config( Maypole::Config->new() );
__PACKAGE__->init_done(0);
$calling_class = ref $calling_class if ref $calling_class;
{
no strict 'refs';
+ no warnings 'redefine';
# Naughty.
*{ $calling_class . "::handler" } =
# See Maypole::Workflow before trying to understand this.
my ( $class, $req ) = @_;
$class->init unless $class->init_done;
- my $r = bless { config => $class->config }, $class;
+ my $r = bless { template_args => {}, config => $class->config }, $class;
$r->get_request($req);
$r->parse_location();
my $status = $r->handler_guts();
sub handler_guts {
my $r = shift;
$r->model_class( $r->config->model->class_of( $r, $r->{table} ) );
+
my $applicable = $r->is_applicable;
unless ( $applicable == OK ) {
have been
removed
+=head3 extra_headers
+
+A hash containing extra headers to be set on a request.
+
=head3 parse_args
Turns post data and query string paramaters into a hash of C<params>.
=head1 THANKS TO
Danijel Milicevic, Dave Slack, Jesse Sheidlower, Jody Belka, Marcus Ramberg,
-Mickael Joanne, Simon Flack, Steve Simms, Veljko Vidovic and all the others
-who've helped.
+Mickael Joanne, Randal Schwartz, Simon Flack, Steve Simms, Veljko Vidovic
+and all the others who've helped.
=head1 LICENSE