File Coverage

blib/lib/TAP/Formatter/Elapsed.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	5	6	83.3
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	41	42	97.6

package TAP::Formatter::Elapsed;
use base 'TAP::Formatter::Console';

use strict;
use Time::HiRes qw( gettimeofday tv_interval );
use POSIX qw( strftime );

our $VERSION = '0.02';

sub new {
    my $class = shift;
    my $self  = $class->SUPER::new(@_);

    $self->{'_t0'} = [ gettimeofday() ];
    $self->{'_t1'} = $self->{'_t0'};

    return $self;
}

sub _output {
    my ( $self, $line ) = @_;

    return unless defined $line;

    if ( $line =~ /^(?:not )?ok \d/ ) {
        my $format = defined $ENV{'TAP_ELAPSED_FORMAT'}
            ? $ENV{'TAP_ELAPSED_FORMAT'}
            : '[%Y-%m-%dT%H:%M:%S, %t0, %t1 elapsed]';

        $format =~ s{%t0}{ sprintf '%.2f', tv_interval($self->{'_t0'}) }eg;
        $format =~ s{%t1}{ sprintf '%.2f', tv_interval($self->{'_t1'}) }eg;

        $line .= ' ' . strftime( $format, localtime );

        $self->{'_t1'} = [ gettimeofday() ];
    }

    print { $self->stdout } $line;
}

1;

__END__