| CGI-PathParam documentation | Contained in the CGI-PathParam distribution. |
CGI::PathParam - Add the feature of parsing path_info to CGI.
0.04
use CGI;
use CGI::PathParam;
my $q = CGI->new;
$q->path_param(qw(foo bar baz)); # same as $q->path_info('/foo/bar/baz')
my @results = $q->path_param; # @results is ( 'foo', 'bar', 'baz' ).
This module adds the feature of parsing PATH_INFO to CGI as a plugin.
If the arguments are specified, the values joined by / is set to path_info. Otherwise, it returns the list of path_info split.
If you pass undef to path_param then you will see this message.
The path_param() does not provide a setter feature yet.
Please report any bugs or feature requests to
bug-cgi-pathparam@rt.cpan.org, or through the web interface at
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=CGI-PathParam.
I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.
You can find documentation for this module with the perldoc command.
perldoc CGI::PathParam
You can also look for information at:
Hironori Yoshida, <yoshida@cpan.org>
Copyright 2006 Hironori Yoshida, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| CGI-PathParam documentation | Contained in the CGI-PathParam distribution. |
# # $Revision: 1.5 $ # $Source: /home/cvs/CGI-PathParam/lib/CGI/PathParam.pm,v $ # $Date: 2006/06/01 06:23:22 $ # package CGI::PathParam; use strict; use warnings;
our $VERSION = '0.04';
sub path_param { my $self = shift; if (@_) { # When path_info(undef), only returns current path_info data. # The behavior is same as path_info() # However, that of path_param(undef) is *NOT* same as path_param(). # Because path_param($param) occurs two kinds of behavior # whether $param is undef or not. $self->path_info( join q{/}, map { $self->escape($_) } @_ ); return $self; } if ( !$self->path_info ) { return; } return map { $self->unescape($_) } split m{/}msx, substr $self->path_info, 1; } *CGI::path_param = \&path_param;
1; # End of CGI::PathParam