File Coverage

blib/lib/Linux/GetPidstat/Writer/File.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	32	34	94.1

package Linux::GetPidstat::Writer::File;
use 5.008001;
use strict;
use warnings;

use Path::Tiny qw/path/;
use IO::Handle;

sub new {
    my ( $class, %opt ) = @_;

    $opt{file} = path($opt{res_file});
    bless \%opt, $class;
}

sub output {
    my ($self, $program_name, $metric_name, $metric) = @_;

    my $msg = join ",", $self->{now}->datetime, $self->{now}->epoch,
        $program_name, $metric_name, $metric;

    if ($self->{dry_run}) {
        print "(dry_run) file write: $msg\n";
        return;
    }

    $self->{file}->append("$msg\n");
}

1;
__END__