File Coverage

blib/lib/WebService/KvKAPI/Formatters.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	21	21	100.0

package WebService::KvKAPI::Formatters;
our $VERSION = '0.104';
use warnings;
use strict;

# ABSTRACT: Utility package for formatting common numbers

use Exporter qw(import);

our @EXPORT_OK = qw(
    format_rsin
    format_location_number
    format_kvk_number
);

our %EXPORT_TAGS = (all => \@EXPORT_OK);

sub format_kvk_number {
    return sprintf("%08d", shift);
}

sub format_location_number {
    return sprintf("%012d", shift);
}

sub format_rsin {
    return sprintf("%09d", shift);
}

__END__