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.0.7';
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__