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

(-)a/QohA/Report.pm (-1 / +2 lines)
Lines 72-77 sub to_string { Link Here
72
            @diff  = grep {not $subs_before{$_}} @{ $after->{subs} };
72
            @diff  = grep {not $subs_before{$_}} @{ $after->{subs} };
73
            if ( @diff ) {
73
            if ( @diff ) {
74
                @diff = map {"POD is missing for $_"} @diff;
74
                @diff = map {"POD is missing for $_"} @diff;
75
            } elsif ( scalar @{ $after->{subs} } == 0 && scalar @{ $before->{subs} } == 0 ) {
76
                # This is perfectly okay.
75
            } elsif ( $before->{rating} > $after->{rating} ) {
77
            } elsif ( $before->{rating} > $after->{rating} ) {
76
                # Not sure we can reach this
78
                # Not sure we can reach this
77
                @diff = ('POD coverage was greater before, try perl -MPod::Coverage=PackageName -e666');
79
                @diff = ('POD coverage was greater before, try perl -MPod::Coverage=PackageName -e666');
78
- 

Return to bug 20357