Lines Matching refs:reports
107 my @reports = [qw/Module Want Have/];
127 push @reports, [$mod, $want, $have];
139 push @reports, [$mod, $want, "missing"];
147 if ( @reports ) {
150 my $ml = _max( map { length $_->[0] } @reports );
151 my $wl = _max( map { length $_->[1] } @reports );
152 my $hl = _max( map { length $_->[2] } @reports );
155 splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
156 … push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
159 splice @reports, 1, 0, ["-" x $ml, "-" x $wl, "-" x $hl];
160 …_reports, map { sprintf(" %*s %*s %*s\n", -$ml, $_->[0], $wl, $_->[1], $hl, $_->[2]) } @reports;