use UNIVERSAL::require;
use strict;
use warnings;
use UNIVERSAL::require;
use strict;
use warnings;
__PACKAGE__->mk_classdata($_) for qw( config init_done view_object );
__PACKAGE__->mk_accessors ( qw( ar params query objects model_class
args action template ));
__PACKAGE__->mk_classdata($_) for qw( config init_done view_object );
__PACKAGE__->mk_accessors ( qw( ar params query objects model_class
args action template ));
my $class = shift;
$class->init unless $class->init_done;
my $r = bless { config => $class->config }, $class;
my $class = shift;
$class->init unless $class->init_done;
my $r = bless { config => $class->config }, $class;
$r->parse_location();
my $status = $r->handler_guts();
return $status unless $status == OK;
$r->parse_location();
my $status = $r->handler_guts();
return $status unless $status == OK;
+ $r->{content_type} ||= "text/html";
$r->send_output;
return $status;
}
$r->send_output;
return $status;
}