my ( $self, $name, $namespace ) = @_;
return unless $name;
- $namespace = join("/", grep { length } split '/', $namespace || "" );
+ $namespace = join( "/", grep { length } split '/', $namespace || "" );
return $self->action_hash->{"$namespace/$name"};
}
-=head2 $self->get_action_by_path( $path );
+=head2 $self->get_action_by_path( $path );
+
+Returns the named action by its full path.
-returns the named action by it's full path.
-
-=cut
+=cut
sub get_action_by_path {
my ( $self, $path ) = @_;
+ $path = "/$path" unless $path =~ /\//;
$self->action_hash->{$path};
}
my ( $self, $c, $action, $namespace ) = @_;
return [] unless $action;
- $namespace = join("/", grep { length } split '/', $namespace || "" );
+ $namespace = join( "/", grep { length } split '/', $namespace || "" );
my @match = $self->get_containers($namespace);
my @containers;
- do {
- push @containers, $self->container_hash->{$namespace};
- } while ( $namespace =~ s#/[^/]+$## );
+ if ( length $namespace ) {
+ do {
+ push @containers, $self->container_hash->{$namespace};
+ } while ( $namespace =~ s#/[^/]+$## );
+ }
return reverse grep { defined } @containers, $self->container_hash->{''};
my $privates = Text::SimpleTable->new(
[ 20, 'Private' ],
- [ 38, 'Class' ],
+ [ 36, 'Class' ],
[ 12, 'Method' ]
);