/[webpac2]/trunk/lib/WebPAC/Test.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/lib/WebPAC/Test.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1168 - (show annotations)
Sat Apr 25 17:13:20 2009 UTC (14 years, 10 months ago) by dpavlin
File size: 547 byte(s)
 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