File Coverage

blib/lib/TableData/Test/Source/CSVInFile.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 30 30 100.0


line stmt bran cond sub pod time code
1             package ## no critic: Modules::RequireFilenameMatchesPackage
2             # hide from PAUSE
3             TableDataRole::Test::Source::CSVInFile;
4              
5 2     2   54818 use 5.010001;
  2         14  
6 2     2   9 use strict;
  2         4  
  2         46  
7 2     2   9 use warnings;
  2         3  
  2         66  
8              
9 2     2   438 use Role::Tiny;
  2         3250  
  2         11  
10             with 'TableDataRole::Source::CSVInFile';
11              
12             around new => sub {
13             my $orig = shift;
14              
15             require File::Basename;
16             my $filename = File::Basename::dirname(__FILE__) . '/../../../../share/examples/eng-ind1.csv';
17             unless (-f $filename) {
18             require File::ShareDir;
19             $filename = File::ShareDir::dist_file('TableDataRoles-Standard', 'examples/eng-ind1.csv');
20             }
21             $orig->(@_, filename=>$filename);
22             };
23              
24             package TableData::Test::Source::CSVInFile;
25              
26 2     2   524 use 5.010001;
  2         5  
27 2     2   14 use strict;
  2         3  
  2         41  
28 2     2   9 use warnings;
  2         3  
  2         53  
29              
30 2     2   635 use Role::Tiny::With;
  2         195  
  2         193  
31              
32             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
33             our $DATE = '2022-02-20'; # DATE
34             our $DIST = 'TableDataRoles-Standard'; # DIST
35             our $VERSION = '0.014'; # VERSION
36              
37             with 'TableDataRole::Test::Source::CSVInFile';
38              
39             1;
40             # ABSTRACT: Some English words with Indonesian equivalents
41              
42             __END__