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 | 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 |