File Coverage

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

Criterion	Covered	Total	%
statement	46	50	92.0
branch	19	22	86.3
condition	1	3	33.3
subroutine	9	9	100.0
pod	3	3	100.0
total	78	87	89.6

package Class::Business::DK::Phonenumber;

use strict;
use warnings;
use vars qw($VERSION);
use Carp qw(croak);
use Business::DK::Phonenumber
    qw(validate render validate_template DEFAULT_TEMPLATE DK_PREFIX TRUE FALSE);

$VERSION = '0.09';

## no critic (ValuesAndExpressions::ProhibitEmptyQuotes, ValuesAndExpressions::ProhibitInterpolationOfLiterals)
use overload "" => \&render;

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

    my $self = bless {
        phonenumber => 0,
        template    => DEFAULT_TEMPLATE,
        prefix      => DK_PREFIX,
        },
        $class || ref $class;

    if ( $params->{phonenumber} ) {
        $self->phonenumber( $params->{phonenumber} )
            or croak
            "phonenumber >$params->{phonenumber}< not in recognisable format";
    } else {
        croak 'phonenumber parameter is mandatory';
    }

    if ( $params->{template} ) {
        $self->template( $params->{template} )
            or croak
            "template >$params->{template}< not in recognisable format";
    }

    $self->{prefix} = $params->{prefix};

    return $self;
}

sub phonenumber {
    my ( $self, $phonenumber, $template ) = @_;

    if ($phonenumber) {

        my $tmp_phonenumber = $self->{phonenumber};

        if ( validate($phonenumber) ) {
            $self->{phonenumber} = $phonenumber;

            if ( $self->template($template) ) {
                return TRUE;
            } else {
                $self->{phonenumber} = $tmp_phonenumber;

                croak "template >$template< not in recognisable format";
            }

            return TRUE;
        } else {
            return FALSE;
        }
    } else {
        if ($template) {
            if ( $self->validate_template($template) ) {
                return $self->render( undef, $template );
            } else {
                croak "template >$template< not in recognisable format";
            }
        } else {
            return $self->render();
        }
    }
}

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

    if ($template) {
        if ( $self->validate_template($template) ) {
            $self->{template} = $template;
            return TRUE;
        } else {
            return FALSE;
        }
    } else {
        return $self->{template};
    }
}

1;

__END__