X-Git-Url: http://erislabs.net/gitweb/?p=liburi-template-perl.git;a=blobdiff_plain;f=lib%2FURI%2FTemplate.pm;h=edb1ce24d4dc28902053b3057105652102e19fde;hp=d96c895de462eeb0f2241bd6101a127c3f2f0f96;hb=8ae3345c296c24329f5889474dd633174d57b13b;hpb=1d94fcb2781945132b9a29e93744b6c168e647aa diff --git a/lib/URI/Template.pm b/lib/URI/Template.pm index d96c895..edb1ce2 100644 --- a/lib/URI/Template.pm +++ b/lib/URI/Template.pm @@ -3,7 +3,7 @@ package URI::Template; use strict; use warnings; -our $VERSION = '0.19'; +our $VERSION = '0.20'; use URI; use URI::Escape (); @@ -24,7 +24,8 @@ my %TOSTRING = ( sub new { my $class = shift; - my $templ = shift || ''; + my $templ = shift; + $templ = '' unless defined $templ; my $self = bless { template => $templ, _vars => {} } => $class; $self->_study; @@ -287,11 +288,11 @@ sub _compile_expansion { sub template { my $self = shift; - my $new_template = shift; + my $templ = shift; # Update template - if ( $new_template && $new_template ne $self->{ template } ) { - $self->{ template } = $new_template; + if ( defined $templ && $templ ne $self->{ template } ) { + $self->{ template } = $templ; $self->{ _vars } = {}; $self->_study; return $self;