From 33aa584d604fa52fdb98b30d6003a74c34c117af Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 1 Oct 2008 13:33:36 +0000
Subject: addded logging

git-svn-id: svn://luxion/repos/WebCoso/trunk@382 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 lib/WebCoso/TT.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib/WebCoso/TT.pm')

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},
-- 
cgit v1.2.3