File Coverage

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

Criterion	Covered	Total	%
statement	41	42	97.6
branch	5	6	83.3
condition			n/a
subroutine	13	13	100.0
pod	4	4	100.0
total	63	65	96.9

package Class::Business::DK::FI;

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

use Business::DK::FI qw(validateFI);

our $VERSION = '0.09';

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

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

    ## no critic (Variables::ProhibitUnusedVariables)
    my $self = \( my $scalar );

    bless $self, $class;

    register($self);

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

    return $self;
}

## no critic (Subroutines::RequireFinalReturn)
sub number { $number{ id $_[0] } }

sub get_number { $number{ id $_[0] } }

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

    my $rv = 0;

    if ($unvalidated_fi) {

        try {
            $rv = validateFI($unvalidated_fi);

            if ( $rv == 0 ) {
                croak;
            }
        }
        catch {
            croak 'Invalid FI number parameter';
        };

        $number{ id $self } = $unvalidated_fi;

        return $rv;

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

1;

__END__