X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FDispatcher.pm;h=fb1efea6000f4c9e7236b2b7716d002527bf910a;hp=d82dfe18f9552f1feea4aa28e68eb4c176379e59;hb=d0cacee71a316290bc01f0e12681c16bdc1e84e2;hpb=a2aac3b8867dea286d03eba07a6fbe2e237cf1ae diff --git a/lib/Catalyst/Dispatcher.pm b/lib/Catalyst/Dispatcher.pm index d82dfe1..fb1efea 100644 --- a/lib/Catalyst/Dispatcher.pm +++ b/lib/Catalyst/Dispatcher.pm @@ -153,7 +153,7 @@ sub _command2action { $action = $self->_invoke_as_path( $c, "$command", \@args ); } - # go to a component ( "MyApp::*::Foo" or $c->component("...") + # go to a component ( "View::Foo" or $c->component("...") # - a path or an object) unless ($action) { my $method = @extra_params ? $extra_params[0] : "process"; @@ -510,7 +510,6 @@ sub register { my $registered = $self->_registered_dispatch_types; - #my $priv = 0; #seems to be unused foreach my $key ( keys %{ $action->attributes } ) { next if $key eq 'Private'; my $class = "Catalyst::DispatchType::$key"; @@ -589,8 +588,8 @@ sub _find_or_create_namespace_node { =head2 $self->setup_actions( $class, $context ) -Loads all of the preload dispatch types, registers their actions and then -loads all of the postload dispatch types, and iterates over the tree of +Loads all of the pre-load dispatch types, registers their actions and then +loads all of the post-load dispatch types, and iterates over the tree of actions, displaying the debug information if appropriate. =cut @@ -739,7 +738,7 @@ foreach my $public_method_name (qw/ $package_hash{$class}++ || do { warn("Class $class is calling the deprecated method\n" . " Catalyst::Dispatcher::$public_method_name,\n" - . " this will be removed in Catalyst 5.9X\n"); + . " this will be removed in Catalyst 5.9\n"); }; }); }