view release on metacpan or  search on metacpan

lib/CGI/PathParam.pm  view on Meta::CPAN

        $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;

=head1 DIAGNOSTICS

=over

=item Use of uninitialized value in join or string at ...