diff options
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; } |