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/Maker.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

diff --git a/lib/WebCoso/Maker.pm b/lib/WebCoso/Maker.pm
index 1000c22..73fdbbb 100644
--- a/lib/WebCoso/Maker.pm
+++ b/lib/WebCoso/Maker.pm
@@ -11,6 +11,7 @@ use WebCoso::Common;
 use WebCoso::TT;
 use WebCoso::XSLT;
 use WebCoso::ReST;
+use Log::Log4perl ':easy';
 
 my $fc=File::Cache::Parsed->new(follow=>1);
 $fc->add_parser(qr{\.ya?ml$} =>
@@ -24,20 +25,22 @@ my $rest=WebCoso::ReST->new(fc=>$fc);
 
 sub parseRST {
     my ($maker,$target,$deps,$matches)=@_;
+    DEBUG("parseRST($maker,$target,(@$deps),(@$matches))");
 
     $fc->put($target,$fc->get($deps->[-1]));
 }
 
 sub getTags {
     my ($maker,$target,$deps,$matches)=@_;
+    DEBUG("getTags($maker,$target,(@$deps),(@$matches))");
 
     $fc->put($target,WebCoso::Common::getTags($fc,@$deps));
 }
 
 sub getChanges {
     my ($maker,$target,$deps,$matches)=@_;
+    DEBUG("getChanges($maker,$target,(@$deps),(@$matches))");
 
-    warn "changes: $target <- @$deps, @$matches\n";
     open my $fh,'>',$target;
 }
 
-- 
cgit v1.2.3