File Coverage

blib/lib/Parallel/Tiny/Test.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	20	22	90.9

package Parallel::Tiny::Test;
use strict;
use warnings;
use File::Temp qw(tempfile);

sub new {
    my ($fh, $filename) = tempfile();
    return bless({ tempfile => $fh, filename => $filename }, shift) }

sub run {
    my $self = shift;
    my $file = $self->{tempfile};
    print $file 1;
    close($file);
}

1;