lib/WebCoso/Doc/Base.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

# -*- mode: perl6 -*- 
use WebCoso::Maker::TT;
use WebCoso::Maker::RST;
use WebCoso::Maker::XHTML;
use WebCoso::Maker::HTML;
 
class WebCoso::Doc::Base {
    has $!wc;
    has $.dir;
 
    has $.tt;
    has $.rst;
    has $.xhtml;
    has $.html;
 
    method basename() { ... }
 
    submethod BUILD(:$wc,:$dir) {
        my $basename = self.basename;
        $!tt = WebCoso::Maker::TT.new(:$basename,:$dir,:$wc);
        $!rst = WebCoso::Maker::RST.new(:$basename,:$dir,:$wc);
        $!xhtml = WebCoso::Maker::XHTML.new(:$basename,:$dir,:$wc);
        $!html = WebCoso::Maker::HTML.new(:$basename,:$dir,:$wc);
    }
    
    method make() {
        $.html.get-files();
    }
}