diff options
author | dakkar <dakkar@luxion> | 2008-10-01 13:33:36 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2008-10-01 13:33:36 +0000 |
commit | 33aa584d604fa52fdb98b30d6003a74c34c117af (patch) | |
tree | 2afd3e09cc46f1a7566f240463732d8a2da1b525 /lib/WebCoso/TT.pm | |
parent | better tag handling (diff) | |
download | WebCoso-33aa584d604fa52fdb98b30d6003a74c34c117af.tar.gz WebCoso-33aa584d604fa52fdb98b30d6003a74c34c117af.tar.bz2 WebCoso-33aa584d604fa52fdb98b30d6003a74c34c117af.zip |
addded logging
git-svn-id: svn://luxion/repos/WebCoso/trunk@382 fcb26f47-9200-0410-b104-b98ab5b095f3
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}, |