File Coverage

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

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition	1	2	50.0
subroutine	7	7	100.0
pod	2	2	100.0
total	31	32	96.8

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

use POSIX qw/ strftime /;

use App::Timestamper::Filter::TS;

sub new
{
    return bless {}, shift;
}

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

    my $FMT = $ENV{'TIMESTAMPER_FORMAT'} // '%Y-%m-%d-%H:%M:%S';

    my $filt = App::Timestamper::Filter::TS->new;
    $filt->fh_filter(
        $in,
        sub {
            my ($l) = @_;
            return $out->(
                $l =~ s#\A([0-9\.]+)(\t)#strftime($FMT,localtime($1)).$2#er );
        }
    );

    return;
}

1;

__END__