File Coverage

blib/lib/TableData/Business/ID/BPOM/FoodAdditive.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

package ## no critic: Modules::RequireFilenameMatchesPackage
    # hide from PAUSE
    TableDataRole::Business::ID::BPOM::FoodAdditive;

use 5.010001;
use strict;
use warnings;

use Role::Tiny;
with 'TableDataRole::Source::CSVInFile';

around new => sub {
    my $orig = shift;

    my $filename;
  FIND_CSV:
    {
      TRY_PROJ_DIR: {
            $filename = __FILE__;
            $filename =~ s!(.+)([/\\].+)!$1!;
            $filename .= "/../../../../../share/merged.csv";
            last FIND_CSV if -f $filename;

        };
        TRY_DIST_SHARE_DIR: {
              require File::ShareDir;
              my $dist_dir = File::ShareDir::dist_dir('TableData-Business-ID-BPOM-FoodAdditive');
              $filename = "$dist_dir/merged.csv";
              last FIND_CSV if -f $filename;
          }
        die "Can't find merged.csv anywhere";
    }

    $orig->(@_, filename => $filename);
};

package TableData::Business::ID::BPOM::FoodAdditive;

use 5.010001;
use strict;
use warnings;

use Role::Tiny::With;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-04-10'; # DATE
our $DIST = 'TableData-Business-ID-BPOM-FoodAdditive'; # DIST
our $VERSION = '20240409.0.0'; # VERSION

with 'TableDataRole::Business::ID::BPOM::FoodAdditive';

our %STATS = ("num_rows",55422,"num_columns",11); # STATS

1;
# ABSTRACT: Food additives in BPOM

__END__