X-Git-Url: http://erislabs.net/gitweb/?p=liburi-template-perl.git;a=blobdiff_plain;f=lib%2FURI%2FTemplate.pm;fp=lib%2FURI%2FTemplate.pm;h=edb1ce24d4dc28902053b3057105652102e19fde;hp=d96c895de462eeb0f2241bd6101a127c3f2f0f96;hb=d90743b3b3da9f8da1dd76e925b5e6284361837b;hpb=c5d4756772d2d08fb6f7609854f236030dc9d571 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;