File Coverage

inc/Test/Compile.pm
Criterion Covered Total %
statement 67 72 93.0
branch 19 30 63.3
condition n/a
subroutine 11 11 100.0
pod 3 3 100.0
total 100 116 86.2


line stmt bran cond sub pod time code
1             #line 1
2             package Test::Compile;
3 1     1   1192  
  1         2  
  1         32  
4 1     1   5 use warnings;
  1         1  
  1         31  
5 1     1   5 use strict;
  1         2  
  1         24  
6 1     1   12 use Test::Builder;
  1         2  
  1         20  
7 1     1   1055 use File::Spec;
  1         2  
  1         10  
8             use UNIVERSAL::require;
9              
10              
11             our $VERSION = '0.06';
12              
13              
14             my $Test = Test::Builder->new;
15              
16              
17 1     1   294 sub import {
18 1         3 my $self = shift;
19             my $caller = caller;
20 1         3  
21 1     1   74 for my $func ( qw( pm_file_ok all_pm_files all_pm_files_ok ) ) {
  1         2  
  1         957  
22 3         7 no strict 'refs';
  3         85  
23             *{$caller."::".$func} = \&$func;
24             }
25 1         7  
26 1         11 $Test->exported_to($caller);
27             $Test->plan(@_);
28             }
29              
30              
31 1     1 1 2 sub pm_file_ok {
32 1 50       4 my $file = shift;
33             my $name = @_ ? shift : "Compile test for $file";
34 1 50       16  
35 0         0 if (!-f $file) {
36 0         0 $Test->ok(0, $name);
37 0         0 $Test->diag("$file does not exist");
38             return;
39             }
40 1         2  
41 1         7 my $module = $file;
42 1         4 $module =~ s!^(blib/)?lib/!!;
43 1         3 $module =~ s!/!::!g;
44             $module =~ s/\.pm$//;
45 1         2  
46 1         6 my $ok = 1;
47 1 50       4 $module->use;
48             $ok = 0 if $@;
49 1         3  
50 1 50       3 my $diag = '';
51 0         0 unless ($ok) {
52             $diag = "couldn't use $module ($file): $@";
53             }
54 1         7  
55 1 50       2579 $Test->ok($ok, $name);
56 1         6 $Test->diag($diag) unless $ok;
57             $ok;
58             }
59              
60              
61 1 50   1 1 22 sub all_pm_files_ok {
62             my @files = @_ ? @_ : all_pm_files();
63 1         6  
64             $Test->plan(tests => scalar @files);
65 1         142  
66 1         2 my $ok = 1;
67 1 50       4 for (@files) {
68             pm_file_ok($_) or undef $ok;
69 1         156755 }
70             $ok;
71             }
72              
73              
74 1 50   1 1 4 sub all_pm_files {
75 1         3 my @queue = @_ ? @_ : _starting_points();
76             my @pm;
77 1         3  
78 26         37 while ( @queue ) {
79 26 100       374 my $file = shift @queue;
80 17         30 if ( -d $file ) {
81 17 50       336 local *DH;
82 17         165 opendir DH, $file or next;
83 17         201 my @newfiles = readdir DH;
84             closedir DH;
85 17         169  
86 17 50       29 @newfiles = File::Spec->no_upwards(@newfiles);
  25         115  
87             @newfiles = grep { $_ ne "CVS" && $_ ne ".svn" } @newfiles;
88 17         26  
89 25         179 for my $newfile (@newfiles) {
90 25 100       361 my $filename = File::Spec->catfile($file, $newfile);
91 9         73 if (-f $filename) {
92             push @queue, $filename;
93 16         110 } else {
94             push @queue, File::Spec->catdir($file, $newfile);
95             }
96             }
97 26 100       380 }
98 9 100       35 if (-f $file) {
99             push @pm, $file if $file =~ /\.pm$/;
100             }
101 1         3 }
102             return @pm;
103             }
104              
105              
106 1 50   1   19 sub _starting_points {
107 0           return 'blib' if -e 'blib';
108             return 'lib';
109             }
110              
111              
112             1;
113              
114             __END__