sub report {
my $self = shift;
- # close any remaining open nodes
- map { $self->profile(end => $_->getNodeValue->{action}) }
- (reverse @{ $self->stack })[1 .. $#{$self->stack}];
-
my $t = Text::SimpleTable->new( [ 62, 'Action' ], [ 9, 'Time' ] );
my @results;
$self->tree->traverse(
$stat->{elapsed},
$stat->{action} ? 1 : 0,
);
+ # Trim down any times >= 10 to avoid ugly Text::Simple line wrapping
+ my $elapsed = substr(sprintf("%f", $stat->{elapsed}), 0, 8) . "s";
$t->row( ( q{ } x $r[0] ) . $r[1],
- defined $r[2] ? sprintf("%fs", $r[2]) : '??');
+ defined $r[2] ? $elapsed : '??');
push(@results, \@r);
}
);