diff options
Diffstat (limited to 'lib/WebCoso/Maker.pm')
-rw-r--r-- | lib/WebCoso/Maker.pm | 15 |
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; } } |