File Coverage

blib/lib/Class/Business/DK/CVR.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	8	8	100.0
condition	3	3	100.0
subroutine	10	10	100.0
pod	4	4	100.0
total	66	66	100.0

package Class::Business::DK::CVR;

use strict;
use warnings;
use Class::InsideOut qw( private register id );
use Carp qw(croak);
use English qw(-no_match_vars);

use Business::DK::CVR qw(validate);

our $VERSION = '0.10';

private number => my %number;    # read-only accessor: number()

sub new {
    my ( $class, $number ) = @_;

    my $self = {};

    bless $self, $class;

    register($self);

    if ($number) {
        $self->set_number($number);
    } else {
        croak 'You must provide a CVR number';
    }

    return $self;
}

sub number { my $self = shift; return $number{ id $self } }

sub get_number { my $self = shift; return $number{ id $self } }

sub set_number {
    my ( $self, $unvalidated_cvr ) = @_;

    my $rv;

    if ($unvalidated_cvr) {
        eval { $rv = validate($unvalidated_cvr); 1; } or 0;

        if ( $EVAL_ERROR or not $rv ) {
            croak 'Invalid CVR number parameter';

        } else {
            $number{ id $self } = $unvalidated_cvr;
            return 1;

        }
    } else {
        croak 'You must provide a CVR number';
    }
}

1;

__END__