view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    module will tell you whether the formatting of a given number is valid,
    not whether it was actually assigned to someone. For that you need to
    pay through the nose to the NSIoI, or cleverly leech on someone who is:)

EXPORT
    None by default, every function in this package except for "new" can be
    exported individually, :all exports them all.

METHODS & FUNCTIONS
  new
    Optional constructor which takes a valid kennitala or a fragment of one
    as its argument. Returns an object that stringifies to whatever string
    is provided.

    If a fragment is provided functions in this package that need
    information from the omitted part (such as "year") will not work.

  valid
    Takes a 9-10 character kennitala and returns true if its checksum is
    valid, false otherwise.

  checksum
    Takes a the first 8 characters of a kennitala and returns the 9th
    checksum digit.

lib/Business/IS/PIN.pm  view on Meta::CPAN

=head1 EXPORT

None by default, every function in this package except for L</new> can
be exported individually, B<:all> exports them all.

=head1 METHODS & FUNCTIONS

=head2 new

Optional constructor which takes a valid kennitala or a fragment of
one as its argument. Returns an object that L<stringifies|overload> to
whatever string is provided.

If a fragment is provided functions in this package that need
information from the omitted part (such as L</year>) will not work.

=cut

sub new
{
    my ( $pkg, $kt ) = @_;

    bless \$kt => $pkg;
}