view release on metacpan or  search on metacpan

lib/Data/Validate/Sanctions/Fetcher.pm  view on Meta::CPAN

                my $passport_raw    = $f{'(10) Passport Number'}            // '';
                my $id_number       = $f{'(11) Identification Card Number'} // '';

                my @dob;
                @dob = ($dob_raw =~ /(\d{1,2}\.\d{1,2}\.\d{4})/g) if $dob_raw && $dob_raw ne '-';

                my @other_names;
                push @other_names, $other_names_raw if $other_names_raw && $other_names_raw ne '-';

                my @passports;
                @passports = map { trim($_) } split m{/}, $passport_raw if $passport_raw && $passport_raw ne '-';

                my @ids;
                push @ids, $id_number if $id_number && $id_number ne '-';

                _process_sanction_entry(
                    $dataset,
                    names          => [$name, @other_names],
                    date_of_birth  => \@dob,
                    place_of_birth => [$pob],
                    nationality    => [$nationality],