use Moose;
use Moose::Meta::Class ();
extends 'Catalyst::Component';
+with qw/
+ MooseX::Emulate::Class::Accessor::Fast
+ Catalyst::Config
+ Catalyst::ClassData
+/;
use Moose::Util qw/find_meta/;
use B::Hooks::EndOfScope ();
use Catalyst::Exception;
return $c->_filter_component( $comp, @args ) if $comp;
}
+ return if $c->config->{disable_component_resolution_regex_fallback};
# This is here so $c->comp( '::M::' ) works
my $query = ref $name ? $name : qr{$name}i;
use Scalar::Util 'blessed';
use namespace::clean -except => 'meta';
-with 'MooseX::Emulate::Class::Accessor::Fast';
-with 'Catalyst::ClassData';
-
+with qw/
+ MooseX::Emulate::Class::Accessor::Fast
+ Catalyst::Config
+ Catalyst::ClassData
+/;
=head1 NAME
sub _invoke_as_component {
my ( $self, $c, $component_or_class, $method ) = @_;
- if( $component_or_class eq blessed($c->application) ){
- my $possible_action = $c->application->action_for($method);
- return $possible_action if $possible_action;
- if( my $code = $c->application->can($method) ){
- return $self->_method_action_class->new( {
- name => $method,
- code => $code,
- reverse => "$component_or_class->$method",
- class => $component_or_class,
- namespace => Catalyst::Utils::class2prefix( $component_or_class ),
- }
- );
- }
- }
my $component = $self->_find_component($c, $component_or_class);
my $component_class = blessed $component || return 0;
our $VERSION = '0.01';
-TestApp->config( name => 'TestApp', root => '/some/dir' );
+TestApp->config(
+ name => 'TestApp', root => '/some/dir',
+ disable_component_resolution_regex_fallback => 1,
+);
TestApp->context_class( 'TestApp::Context' );
TestApp->setup;