File Coverage

blib/lib/Tool/Bench/Report/JSON.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	26	26	100.0

package Tool::Bench::Report::JSON;
{
  $Tool::Bench::Report::JSON::VERSION = '0.003';
}
use Mouse;
use JSON;
use List::Util qw{min max sum };
use Data::Dumper;

=head1 JSON

Builds a json report as follows (though it does not format this nicely):

=head2 report

   [
      {
         'max_time' => '3.50475311279297e-05',
         'total_runs' => 4,
         'min_time' => '2.09808349609375e-05',
         'avg_time' => '2.55107879638672e-05',
         'name' => 'true',
         'total_time' => '0.000102043151855469',
         'times' => [
                      '2.40802764892578e-05',
                      '2.09808349609375e-05',
                      '3.50475311279297e-05',
                      '2.19345092773438e-05'
                    ]
       },
   ]

=cut

sub report {
   my ($self,%args)  = @_;

   my @report_items = qw{ min_time max_time total_time avg_time total_runs name note times }; #this is kinda janky

   encode_json( [ map { my $item = $_;
                       my $x =
                       { (
                            interp => $args{interp},
                            map { $_ => $item->$_ } @report_items,
                         )
                       }
                     } sort {$a->total_time <=> $b->total_time} @{$args{items}},
                ]);
};


1;