lib/WebPAC/Test.pm

package WebPAC::Test;
use Exporter 'import';
@EXPORT = qw/
        $debug
        $abs_path
        %LOG

        dump
        abs_path
        read_file write_file

        dies_ok throws_ok
/;

sub BEGIN {

        use Cwd qw/abs_path/;
        use File::Slurp;
        use Getopt::Long;
        use Data::Dump qw/dump/;
        use Test::Exception;

        use lib 'lib';

        our $debug = 0;

        GetOptions(
                "debug+", \$debug
        );

        warn '# BEGIN' if $debug;

        our $abs_path = abs_path($0);
        $abs_path =~ s#/[^/]*$#/#;      #vim
        warn "# abs_path: $abs_path" if $debug;

        our %LOG = (
                debug => $debug,
                no_log => $debug ? 0 : 1,
        );
}

1;
1	package WebPAC::Test;
2	use Exporter 'import';
3	@EXPORT = qw/
4	$debug
5	$abs_path
6	%LOG
7
8	dump
9	abs_path
10	read_file write_file
11
12	dies_ok throws_ok
13	/;
14
15	sub BEGIN {
16
17	use Cwd qw/abs_path/;
18	use File::Slurp;
19	use Getopt::Long;
20	use Data::Dump qw/dump/;
21	use Test::Exception;
22
23	use lib 'lib';
24
25	our $debug = 0;
26
27	GetOptions(
28	"debug+", \$debug
29	);
30
31	warn '# BEGIN' if $debug;
32
33	our $abs_path = abs_path($0);
34	$abs_path =~ s#/[^/]*$#/#; #vim
35	warn "# abs_path: $abs_path" if $debug;
36
37	our %LOG = (
38	debug => $debug,
39	no_log => $debug ? 0 : 1,
40	);
41	}
42
43	1;