File tree Expand file tree Collapse file tree 1 file changed +1
-31
lines changed Expand file tree Collapse file tree 1 file changed +1
-31
lines changed Original file line number Diff line number Diff line change 1
- use v6 ;
2
- use File::Find;
3
-
4
1
class Build {
5
- method build ($ workdir ) {
6
- my $ doc-dir = $ workdir . IO . child (' doc' );
7
- my $ dest-pref = $ * REPO . repo-chain. grep (/site /). first . prefix . child (" doc" );
8
- mkdir ($ dest-pref ) unless $ dest-pref . d ;
9
-
10
- my @ files = find(dir => " $ workdir /doc" , type => ' file' ). list;
11
- my $ copied-all = True ;
12
- for @ files -> $ file {
13
- next if $ file . basename eq ' HomePage.pod6' ;
14
-
15
- my $ rel-dest = $ file . relative($ doc-dir );
16
- my $ abs-dest = IO ::Path. new ($ rel-dest , : CWD($ dest-pref )). absolute;
17
-
18
- mkdir ($ abs-dest . IO . parent ) unless $ abs-dest . IO . parent . d ;
19
-
20
- say " Copying { $ rel-dest } to { $ abs-dest } " ;
21
-
22
- copy ($ file , $ abs-dest );
23
- $ copied-all = False unless $ abs-dest . IO . e ;
24
- }
25
-
26
- # Zef considers the build to have passed only if a truthy value is returned.
27
- $ copied-all ;
28
- }
29
- method isa ($ what ) { # Only needed for older panda compatibility
30
- return True if $ what .^ name eq ' Panda::Builder' ;
31
- callsame ;
32
- }
2
+ BEGIN die " This repository is not intended to be installed." ;
33
3
}
You can’t perform that action at this time.
0 commit comments