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	dpavlin	949	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;