use Moose;
use Class::MOP;
-with 'MooseX::Emulate::Class::Accessor::Fast' => { excludes => [ 'BUILD' ] };
+with 'MooseX::Emulate::Class::Accessor::Fast';
use Catalyst::Exception;
use Catalyst::Utils;
use Tree::Simple;
use Tree::Simple::Visitor::FindByPath;
+use namespace::clean -except => 'meta';
# Refactoring note:
# do these belong as package vars or should we build these via a builder method?
our @POSTLOAD = qw/Default/;
# Note - see back-compat methods at end of file.
-has _tree => (is => 'rw');
+has _tree => (is => 'rw', builder => '_build__tree');
has _dispatch_types => (is => 'rw', default => sub { [] }, required => 1, lazy => 1);
has _registered_dispatch_types => (is => 'rw', default => sub { {} }, required => 1, lazy => 1);
has _method_action_class => (is => 'rw', default => 'Catalyst::Action');
return $self->$orig(@_);
};
-no Moose;
-
=head1 NAME
Catalyst::Dispatcher - The Catalyst Dispatcher
=cut
-sub BUILD {
- my ($self, $params) = @_;
+sub _build__tree {
+ my ($self) = @_;
my $container =
Catalyst::ActionContainer->new( { part => '/', actions => {} } );
- $self->_tree( Tree::Simple->new( $container, Tree::Simple->ROOT ) );
+ return Tree::Simple->new($container, Tree::Simple->ROOT);
}
=head2 $self->preload_dispatch_types
}
# End 5.70 backwards compatibility hacks.
-no Moose;
__PACKAGE__->meta->make_immutable;
=head2 meta