pfenwick / autodie

Click here to lend your support to: autodie and make a donation at www.pledgie.com !

Make functions succeed or die in Perl, with lexical scope.

This URL has Read+Write access

autodie / merge-core.pl
100755 39 lines (32 sloc) 0.775 kb
raw blame history 
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
30
31
32
33
34
35
36
37
38
39

#!/usr/bin/perl -w
use strict;
use File::Copy qw(copy);
use File::Find::Rule;
use autodie qw(:default :system copy);
 
my @corefiles = qw(
    Fatal.pm autodie.pm autodie/exception.pm autodie/exception/system.pm
);
 
eval {
    mkdir("../perl/lib/autodie");
    mkdir("../perl/lib/autodie/exception");
    mkdir("../perl/t/lib/autodie");
};
 
foreach my $file (@corefiles) {
    print "lib/$file -> ";
    copy("lib/$file", "../perl/lib/$file");
    print "../perl/lib/$file\n";
}
 
system(qw(cp -v -r), glob("t/*"), qw(../perl/t/lib/autodie/));
 
my @non_core_tests = qw(
    boilerplate.t
    fork.t
    kwalitee.t
    lex58.t
    pod-coverage.t
    pod.t
    system.t
);
 
foreach my $test (@non_core_tests) {
    print "X $test\n";
    unlink("../perl/t/lib/autodie/$test");
}