File Coverage

blib/lib/App/Timestamper/Filter/TS.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	21	21	100.0

package App::Timestamper::Filter::TS;
$App::Timestamper::Filter::TS::VERSION = '0.2.1';
use strict;
use warnings;

use Time::HiRes qw/ time /;

sub new
{
    return bless {}, shift;
}

sub fh_filter
{
    my ( $self, $in, $out ) = @_;

    while ( my $l = <$in> )
    {
        $out->( sprintf( '%.9f', time() ) . "\t" . $l );
    }

    return;
}

1;

__END__