diff options
Diffstat (limited to 'lib/WebCoso/TT.pm')
| -rw-r--r-- | lib/WebCoso/TT.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/WebCoso/TT.pm b/lib/WebCoso/TT.pm index fc5d114..8c4b216 100644 --- a/lib/WebCoso/TT.pm +++ b/lib/WebCoso/TT.pm @@ -4,6 +4,7 @@ use warnings; use WebCoso::Common; use Path::Class; use Template; +use Log::Log4perl ':easy'; sub new { my ($class,%opts)=@_; @@ -33,7 +34,7 @@ sub new { $self->{expander}=sub { my ($maker,$target,$deps,$matches)=@_; - warn "expandTT($target,@$deps,@$matches)\n"; + DEBUG("expandTT($target,@$deps,@$matches)"); my $tmpl=$self->{fc}->get($deps->[-1]); my $vars={ path=> $matches->[0], @@ -41,7 +42,7 @@ sub new { %{$self->{stash}}, }; if (@$deps>1) { - warn "tagging as $deps->[0]\n"; + INFO("tagging as $deps->[0]"); $vars->{tagged}=$self->{fc}->get($deps->[0]); } push @{$self->{template_provider}->include_path}, |