Parent Directory | Revision Log
r1838@llin: dpavlin | 2009-04-25 19:13:18 +0200 don't ever never use blib (so I don't have to re-run make)
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; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |