view release on metacpan or  search on metacpan

t/00-report-prereqs.t  view on Meta::CPAN

146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
        if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) {
            push @dep_errors, "$mod is not installed ($req_string)";
        }
    }
}
 
if ( @reports ) {
    push @full_reports, "=== $title ===\n\n";
 
    my $ml = _max( map { length $_->[0] } @reports );
    my $wl = _max( map { length $_->[1] } @reports );
    my $hl = _max( map { length $_->[2] } @reports );
 
    if ($type eq 'modules') {
        splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
        push @full_reports, map { sprintf("    %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
    }
    else {
        splice @reports, 1, 0, ["-" x $ml, "-" x $wl, "-" x $hl];
        push @full_reports, map { sprintf("    %*s %*s %*s\n", -$ml, $_->[0], $wl, $_->[1], $hl, $_->[2]) } @reports;
    }