|
Lines 43-48
sub check_pod_coverage {
Link Here
|
| 43 |
$package_name =~ s|/|::|g; |
43 |
$package_name =~ s|/|::|g; |
| 44 |
$package_name =~ s|\.pm$||; |
44 |
$package_name =~ s|\.pm$||; |
| 45 |
|
45 |
|
| 46 |
my $coverage = Pod::Coverage->new( package => $package_name ); |
46 |
# 1) Try loading the package manually |
|
|
47 |
my $require_path = $file; |
| 48 |
$require_path =~ s|::|/|g; # convert back just in case |
| 49 |
my $error; |
| 50 |
|
| 51 |
eval { require $require_path; }; |
| 52 |
if ($@) { |
| 53 |
return "Module died while loading '$package_name': $@"; |
| 54 |
} |
| 55 |
|
| 56 |
# 2) Now safely ask Pod::Coverage |
| 57 |
my $coverage = eval { Pod::Coverage->new( package => $package_name ); }; |
| 58 |
if ($@) { |
| 59 |
return "Pod::Coverage died for '$package_name': $@"; |
| 60 |
} |
| 61 |
|
| 47 |
return $coverage->uncovered; |
62 |
return $coverage->uncovered; |
| 48 |
} |
63 |
} |
| 49 |
- |
|
|