1 eval 'exec perl -wS $0 ${1+"$@"}' # this script is too short to copyright
2 if 0; # running under some shell
3 use v5.12; use autodie; use YAML::XS qw(Load);
4 open(my $fh, '<', shift // '.prove');
5 my $t = Load(do { local $/; <$fh> })->{tests};
6 my @t = sort { $t->{$b}->{elapsed} <=> $t->{$a}->{elapsed} } keys %$t;
7 printf "%0.6f %s\n", $t->{$_}->{elapsed}, $_ for @t;