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


line stmt bran cond sub pod time code
1 2     2   15 use strict;
  2         7  
  2         185  
2 2 50   2   12 BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }
  2         15  
  2         149  
3             package Test::Reporter::Transport::File;
4             our $VERSION = '1.60'; # VERSION
5              
6 2     2   15 use base 'Test::Reporter::Transport';
  2         8  
  2         2876  
7              
8             sub new {
9 1     1 1 3 my ($class, $dir) = @_;
10              
11 1 50 33     83 die "target directory '$dir' doesn't exist or can't be written to"
12             unless -d $dir && -w $dir;
13              
14 1         7 return bless { dir => $dir } => $class;
15             }
16              
17             sub send {
18 1     1 1 2 my ($self, $report) = @_;
19 1         24 $report->dir( $self->{dir} );
20 1         37 return $report->write();
21             }
22              
23             1;
24              
25             # ABSTRACT: File transport for Test::Reporter
26              
27             __END__