File Coverage

blib/lib/WebService/KvKAPI/BasicProfile.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	4	4	100.0
condition			n/a
subroutine	10	10	100.0
pod	4	4	100.0
total	49	49	100.0

use utf8;
package WebService::KvKAPI::BasicProfile;
our $VERSION = '0.105';
# ABSTRACT: Instance of OpenAPI client for Basisprofiel API of the KvK.

use v5.26;
use Object::Pad;
use WebService::KvKAPI::Formatters qw(format_kvk_number);

class WebService::KvKAPI::BasicProfile :does(WebService::KvKAPI::Roles::OpenAPI);

method get_basic_profile {
    my ($kvk, $geo) = @_;
    return $self->_api_call('getBasisprofielByKvkNummer', $kvk, $geo);
}

method get_owner {
    my ($kvk, $geo) = @_;
    return $self->_api_call('getEigenaar', $kvk, $geo);
}

method get_main_location {
    my ($kvk, $geo) = @_;
    return $self->_api_call('getHoofdvestiging', $kvk, $geo);
}

method get_locations {
    my $kvk = shift;
    return $self->_api_call('getVestigingen', $kvk);
}

method _api_call {
    my ($op, $kvk, $geo) = @_;
    $kvk = format_kvk_number($kvk);
    $geo = $geo ? 1 : 0;
    return $self->api_call(
        $op,
        kvkNummer => $kvk,
        $geo ? (geoData => $geo) : (),
    );
}


1;

=pod

=encoding UTF-8

=head1 NAME

WebService::KvKAPI::BasicProfile - Instance of OpenAPI client for Basisprofiel API of the KvK.

=head1 VERSION

version 0.105

=head1 AUTHOR

Wesley Schwengle

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2018 by Mintlab / Zaaksysteem.nl / xxllnc, see CONTRIBUTORS file for others.

This is free software, licensed under:

  The European Union Public License (EUPL) v1.1

=cut

__DATA__