summaryrefslogtreecommitdiff
path: root/lib/WebCoso/Maker.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/WebCoso/Maker.pm')
-rw-r--r--lib/WebCoso/Maker.pm15
1 files changed, 8 insertions, 7 deletions
diff --git a/lib/WebCoso/Maker.pm b/lib/WebCoso/Maker.pm
index e9564fa..5aae4f8 100644
--- a/lib/WebCoso/Maker.pm
+++ b/lib/WebCoso/Maker.pm
@@ -1,21 +1,22 @@
# -*- mode: perl6 -*-
-role Maker[:$from,:$to] {
- has $!wc;
+role WebCoso::Maker[$from,$to] {
+ has $.wc;
has $.basename;
has $.dir;
- method process-contents(:$from-contents) { ... }
+ method process-contents($from-contents) { ... }
method get-files() {
- my %dsts = $!wc.get-files($.dir,$.basename,$from);
- my %srcs = $!wc.get-files($.dir,$.basename,$to);
+ my %srcs = $.wc.get-files($.dir,$.basename,$from);
+ my %dsts = $.wc.get-files($.dir,$.basename,$to);
for %srcs.keys -> $lang {
my $src = %srcs{$lang};
next if %dsts{$lang} and
%dsts{$lang}.modified after $src.modified;
- my $processed-contents = .process-contents($src.slurp);
- %dsts{$lang} = $!wc.put-file($.dir,$.basename,$lang,$to,
+ my $processed-contents = self.process-contents($src.slurp);
+ %dsts{$lang} = $.wc.put-file($.dir,$.basename,$lang,$to,
$processed-contents)
}
+ return %dsts;
}
}