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/Maker.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/Maker.pm')
-rw-r--r-- | lib/WebCoso/Maker.pm | 5 |
1 files changed, 4 insertions, 1 deletions
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; } |