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';
        use blib;

        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	use blib;
25
26	our $debug = 0;
27
28	GetOptions(
29	"debug+", \$debug
30	);
31
32	warn '# BEGIN' if $debug;
33
34	our $abs_path = abs_path($0);
35	$abs_path =~ s#/[^/]*$#/#; #vim
36	warn "# abs_path: $abs_path" if $debug;
37
38	our %LOG = (
39	debug => $debug,
40	no_log => $debug ? 0 : 1,
41	);
42	}
43
44	1;