File Coverage

blib/lib/WebService/KvKAPI/Search.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	5	8	62.5
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	39	42	92.8

use utf8;
package WebService::KvKAPI::Search;
our $VERSION = '0.103';
# ABSTRACT: WebService::KvKAPI::Search package needs a propper abstract

use v5.26;
use Object::Pad;
use WebService::KvKAPI::Formatters ':all';

class WebService::KvKAPI::Search does WebService::KvKAPI::Roles::OpenAPI;

my @valid_params = qw(
    kvkNummer
    rsin
    vestigingsnummer
    handelsnaam
    straatnaam
    plaats
    postcode
    huisnummer
    type
    InclusiefInactieveRegistraties
    pagina
    aantal
);

method search {
    my %args = @_;

    if ($args{kvkNummer}) {
        $args{kvkNummer} = format_kvk_number($args{kvkNummer});
    }
    if ($args{rsin}) {
        $args{rsin} = format_rsin($args{rsin});
    }
    if ($args{vestigingsnummer}) {
        $args{vestigingsnummer} = format_location_number($args{vestigingsnummer});
    }

    my %params;
    foreach (@valid_params) {
        next unless exists $args{$_};
        $params{$_} = delete $args{$_};
    }

    return $self->api_call('getResults', %params);
}

1;

=pod

=encoding UTF-8

=head1 NAME

WebService::KvKAPI::Search - WebService::KvKAPI::Search package needs a propper abstract

=head1 VERSION

version 0.103

=head1 AUTHOR

Wesley Schwengle

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2018 by Mintlab / Zaaksysteem.nl.

This is free software, licensed under:

  The European Union Public License (EUPL) v1.1

=cut

__DATA__