Terrence Brannon | 10 Sep 14:30

please patch PathInfo with this

I am using this in my version of PathInfo. There could be some
refactoring to share code with name_to_page, but that's not done right
now.

=item name_to_pm

Called with a page name, translates it to a .pm file name, and returns it.

This module expects page names to look like relative URLs and will translate to
package names like you'd expect, ie assuming the default
C<config_class_prefix>, C<foo/bar> will translate to C<My/App/foo/bar.pm>.

=cut

sub name_to_pm {
  my $self = shift;
  my ( $name ) = @_;

		    my $pkg = join '::', (
		      $self->config_class_prefix,
		      split( m{/}, $self->validate_name( $name ) ),
		     );

  $pkg =~ s!::!/!g;

  "$pkg.pm";
}

-------------------------------------------------------
SF.Net email is Sponsored by the Better Software Conference & EXPO
(Continue reading)

Terrence Brannon | 14 Sep 21:47

Re: please patch PathInfo with this

Aristotle, any feedback on my requested patch?

> I am using this in my version of PathInfo. There could be some
> refactoring to share code with name_to_page, but that's not done right
> now.
>
> =item name_to_pm
>
> Called with a page name, translates it to a .pm file name, and returns it.
>
> This module expects page names to look like relative URLs and will translate to
> package names like you'd expect, ie assuming the default
> C<config_class_prefix>, C<foo/bar> will translate to C<My/App/foo/bar.pm>.
>
> =cut
>
> sub name_to_pm {
>   my $self = shift;
>   my ( $name ) = @_;
>
> 		    my $pkg = join '::', (
> 		      $self->config_class_prefix,
> 		      split( m{/}, $self->validate_name( $name ) ),
> 		     );
>
>   $pkg =~ s!::!/!g;
>
>   "$pkg.pm";
> }
>
(Continue reading)

A. Pagaltzis | 10 Sep 17:55
Picon
Picon
Gravatar

Re: please patch PathInfo with this

* Terrence Brannon <bauhaus <at> metaperl.com> [2005-09-10 14:35]:
> I am using this in my version of PathInfo.

What for?

Regards,
--

-- 
#Aristotle
*AUTOLOAD=*_=sub{s/(.*)::(.*)/print$2,(",$\/"," ")[defined wantarray]/e;$1};
&Just->another->Perl->hacker;

-------------------------------------------------------
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf

Gmane