File Coverage

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