File Coverage

blib/lib/Test/Reporter/Transport/File.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	2	2	100.0
total	25	29	86.2

use strict;
BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }
package Test::Reporter::Transport::File;

our $VERSION = '1.61'; # TRIAL

use base 'Test::Reporter::Transport';

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

  die "target directory '$dir' doesn't exist or can't be written to"
    unless -d $dir && -w $dir;

  return bless { dir => $dir } => $class;
}

sub send {
    my ($self, $report) = @_;
    $report->dir( $self->{dir} );
    return $report->write();
}

1;

# ABSTRACT: File transport for Test::Reporter

__END__