View | Details | Raw Unified | Return to bug 41271
Collapse All | Expand All

(-)a/xt/author/pod_coverage.t (-2 / +16 lines)
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
- 

Return to bug 41271