use Moose;
use bytes;
use B::Hooks::EndOfScope ();
+use Catalyst;
use Catalyst::Exception::Detach;
use Catalyst::Exception::Go;
use Catalyst::Request;
debug
dispatcher_class
request_class
+ response_class
dispatcher
prepare
engine_class
setup_finalize
welcome_message
components
- context_class setup_actions
+ context_class
+ setup_actions
search_extra
root
parse_on_demand
use_stats
stats_class
set_action
+ registered_plugins
ran_setup
_comp_search_prefixes
# For statistics
our $RECURSION = 1000;
-our $DETACH = Catalyst::Exception::Detach->new;
-our $GO = Catalyst::Exception::Go->new;
=head1 METHODS
sub view {
my ( $c, $name, @args ) = @_;
- my $appclass = ref($c) || $c;
if( $name ) {
my @result = $c->_comp_search_prefixes( $name, qw/View V/ );
return map { $c->_filter_component( $_, @args ) } @result if ref $name;
return $c->view( $c->stash->{current_view} )
if $c->stash->{current_view};
}
- return $c->view( $appclass->config->{default_view} )
- if $appclass->config->{default_view};
-
+ return $c->view( $c->config->{default_view} )
+ if $c->config->{default_view};
my( $comp, $rest ) = $c->_comp_search_prefixes( undef, qw/View V/);
if( $rest ) {
sub _stats_start_execute {
my ( $c, $code ) = @_;
- my $appclass = ref($c) || $c;
return if ( ( $code->name =~ /^_.*/ )
- && ( !$appclass->config->{show_internal_actions} ) );
+ && ( !$c->config->{show_internal_actions} ) );
my $action_name = $code->reverse();
$c->counter->{$action_name}++;