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   69975 use 5.010001;
  2         18  
6 2     2   11 use strict;
  2         4  
  2         51  
7 2     2   11 use warnings;
  2         4  
  2         68  
8              
9 2     2   610 use Role::Tiny;
  2         4321  
  2         10  
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   660 use 5.010001;
  2         8  
27 2     2   12 use strict;
  2         3  
  2         50  
28 2     2   19 use warnings;
  2         4  
  2         53  
29              
30 2     2   448 use Role::Tiny::With;
  2         265  
  2         223  
31              
32             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
33             our $DATE = '2023-02-24'; # DATE
34             our $DIST = 'TableDataRoles-Standard'; # DIST
35             our $VERSION = '0.015'; # VERSION
36              
37             with 'TableDataRole::Test::Source::CSVInFile';
38              
39             1;
40             # ABSTRACT: Some English words with Indonesian equivalents
41              
42             __END__