use strict;
use warnings;
-our $VERSION = '0.09';
+our $VERSION = '0.10';
use URI;
use URI::Escape ();
sub process_to_string {
my $self = shift;
- if( ref $_[ 0 ] ) {
+ if ( ref $_[ 0 ] ) {
return $self->_process_by_position( @_ );
}
else {
# fix undef vals
for my $var ( @vars ) {
- $params{ $var } = defined $params{ $var }
+ $params{ $var }
+ = defined $params{ $var }
? URI::Escape::uri_escape( $params{ $var }, $unsafe )
: '';
}
my $self = shift;
my $uri = shift;
- if( !$self->{ deparse_re } ) {
- my $templ = $self->as_string;
- $self->{ vars_list } = [ $templ =~ /{(.+?)}/g ];
- $templ =~ s/{.+?}/(.+?)/g;
- $self->{ deparse_re } = qr/$templ/;
+ if ( !$self->{ deparse_re } ) {
+ my $templ = $self->as_string;
+ $self->{ vars_list } = [ $templ =~ /{(.+?)}/g ];
+ $templ =~ s/{.+?}/(.+?)/g;
+ $self->{ deparse_re } = qr/$templ/;
}
my @matches = $uri =~ $self->{ deparse_re };