File Coverage

blib/lib/TableData/Test/Source/CSVInFiles.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::CSVInFiles;
4              
5 1     1   67947 use 5.010001;
  1         15  
6 1     1   5 use strict;
  1         2  
  1         33  
7 1     1   5 use warnings;
  1         1  
  1         38  
8              
9 1     1   519 use Role::Tiny;
  1         3892  
  1         7  
10             with 'TableDataRole::Source::CSVInFiles';
11              
12             around new => sub {
13             my $orig = shift;
14              
15             require File::Basename;
16             my @filenames;
17             for my $i (1..3) {
18             my $filename = File::Basename::dirname(__FILE__) . "/../../../../share/examples/eng-ind$i.csv";
19             unless (-f $filename) {
20             require File::ShareDir;
21             $filename = File::ShareDir::dist_file('TableDataRoles-Standard', "examples/eng-ind$i.csv");
22             }
23             push @filenames, $filename;
24             }
25             $orig->(@_, filenames=>\@filenames);
26             };
27              
28             package TableData::Test::Source::CSVInFiles;
29              
30 1     1   374 use 5.010001;
  1         5  
31 1     1   5 use strict;
  1         2  
  1         26  
32 1     1   6 use warnings;
  1         1  
  1         25  
33              
34 1     1   556 use Role::Tiny::With;
  1         241  
  1         105  
35              
36             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
37             our $DATE = '2022-02-20'; # DATE
38             our $DIST = 'TableDataRoles-Standard'; # DIST
39             our $VERSION = '0.014'; # VERSION
40              
41             with 'TableDataRole::Test::Source::CSVInFiles';
42              
43             1;
44             # ABSTRACT: Some English words with Indonesian equivalents
45              
46             __END__