use strict;
use warnings;
-our $VERSION = '0.10';
+our $VERSION = '0.13';
use URI;
use URI::Escape ();
my $templ = $self->as_string;
$self->{ vars_list } = [ $templ =~ /{(.+?)}/g ];
$templ =~ s/{.+?}/(.+?)/g;
- $self->{ deparse_re } = qr/$templ/;
+ $self->{ deparse_re } = qr/^${templ}$/;
}
my @matches = $uri =~ $self->{ deparse_re };
=head1 COPYRIGHT AND LICENSE
-Copyright 2007 by Brian Cassidy
+Copyright 2008 by Brian Cassidy
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.