File Coverage

blib/lib/App/Prove/Plugin/CumulativeTimer.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch			n/a
condition	4	6	66.6
subroutine	9	9	100.0
pod	0	1	0.0
total	46	49	93.8

package App::Prove::Plugin::CumulativeTimer;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.01_02";

use Class::Method::Modifiers qw( around );
use TAP::Parser;
use TAP::Formatter::Session;

sub load {
    my ( $class, $p ) = @_;

    $p->{app_prove}->timer(1);

    my $first_start_time;
    my $first_start_times;
    around 'TAP::Formatter::Session::time_report' => sub {
        my $orig = shift;
        my ( $self, $formatter, $parser ) = @_;
        $first_start_time  ||= $parser->start_time;
        $first_start_times ||= $parser->start_times;
        no warnings 'redefine';
        local *TAP::Parser::start_time  = sub {$first_start_time};
        local *TAP::Parser::start_times = sub {$first_start_times};
        return $orig->(@_);
    };
}

1;
__END__