From: Sebastian Riedel Date: Thu, 10 Nov 2005 06:49:34 +0000 (+0000) Subject: 100% pod coverage again X-Git-Tag: 5.7099_04~968 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=aad72cc9d5a40a2b6b547340dcf629e4c233d87f 100% pod coverage again --- diff --git a/lib/Catalyst/Base.pm b/lib/Catalyst/Base.pm index 6292fd3..0c23e40 100644 --- a/lib/Catalyst/Base.pm +++ b/lib/Catalyst/Base.pm @@ -55,6 +55,26 @@ sub _END : Private { return !@{ $c->error }; } +=head1 NAME + +Catalyst::Base - Catalyst Base Class + +=head1 SYNOPSIS + +See L + +=head1 DESCRIPTION + +Catalyst Base Class + +=head1 METHODS + +=over 4 + +=item $self->action_namespace($c) + +=cut + sub action_namespace { my ( $self, $c ) = @_; return Catalyst::Utils::class2prefix( ref $self, @@ -62,6 +82,10 @@ sub action_namespace { || ''; } +=item $self->register_actions($c) + +=cut + sub register_actions { my ( $self, $c ) = @_; my $class = ref $self || $self; @@ -114,7 +138,8 @@ sub _parse_attrs { # Parse out :Foo(bar) into Foo => bar etc (and arrayify) - if ( my ( $key, $value ) = ( $attr =~ /^(.*?)(?:\(\s*(.+?)\s*\))?$/ ) ) { + if ( my ( $key, $value ) = ( $attr =~ /^(.*?)(?:\(\s*(.+?)\s*\))?$/ ) ) + { if ( defined $value ) { ( $value =~ s/^'(.*)'$/$1/ ) || ( $value =~ s/^"(.*)"/$1/ ); @@ -125,20 +150,6 @@ sub _parse_attrs { return \%attributes; } -=head1 NAME - -Catalyst::Base - Catalyst Controller Base Class - -=head1 SYNOPSIS - - -=head1 DESCRIPTION - - -=head1 METHODS - -=over 4 - =back =head1 SEE ALSO diff --git a/lib/Catalyst/Dispatcher.pm b/lib/Catalyst/Dispatcher.pm index 45d01ec..bf72cf2 100644 --- a/lib/Catalyst/Dispatcher.pm +++ b/lib/Catalyst/Dispatcher.pm @@ -268,6 +268,10 @@ sub get_containers { return map { $_->getNodeValue } @match; } +=item $self->register( $c, $action ) + +=cut + sub register { my ( $self, $c, $action ) = @_;