|
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 |
- |
|
|