Skip to content
Newer
Older
100644 33 lines (24 sloc) 640 Bytes
6a889d3 @pjcj import Devel::Cover 0.48
authored
1 #!/bin/perl
2
c7f77d4 @pjcj I think my canonical mail address is here to stay.
authored
3 # Copyright 2002-2012, Paul Johnson (paul@pjcj.net)
41d3c23 @pjcj Fix up inc_sub test failures.
authored
4
5 # This software is free. It is licensed under the same terms as Perl itself.
6
7 # The latest version of this software should be available from my homepage:
8 # http://www.pjcj.net
9
10 # __COVER__ changes s/(2[12] )[23]/$1X/
11 # __COVER__ changes s/(22 100 )[12]/$1X/
12
6a889d3 @pjcj import Devel::Cover 0.48
authored
13 use lib ();
14
15 BEGIN
16 {
17 lib->import
18 (
19 sub
20 {
78aa40d @pjcj Update inc_sub golden results.
authored
21 print map("[$_]", @_), "\n";
bcc012d @pjcj Update inc_sub test to work with bleadperl (5.9.5).
authored
22 return unless $_[1] eq "IncSub.pm";
6a889d3 @pjcj import Devel::Cover 0.48
authored
23 my $fh;
24 open $fh, "tests/IncSub.pm" or die $!;
25 $fh
26 }
27 )
28 }
29
30 use IncSub;
31
32 IncSub::check
Something went wrong with that request. Please try again.