File Coverage

blib/lib/Business/CPI/Role/Account/Business.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition	2	3	66.6
subroutine	3	3	100.0
pod			n/a
total	14	15	93.3

package Business::CPI::Role::Account::Business;
# ABSTRACT: Business::CPI representation of corporations
use Moo::Role;
use utf8;

our $VERSION = '0.923'; # VERSION

has _gateway => ( is => 'ro', required => 1 );

has corporate_name => ( is => 'rw' );
has trading_name   => ( is => 'rw' );
has phone          => ( is => 'rw' );

has address => ( is => 'rw' );

around address => sub {
    my $orig = shift;
    my $self = shift;

    if (my $new_address = shift) {
        return $self->$orig( $self->_inflate_address($new_address) );
    }

    return $self->$orig();
};

around BUILDARGS => sub {
    my $orig  = shift;
    my $class = shift;
    my $args  = $class->$orig(@_);

    return $args if !$args->{_gateway};

    if (exists $args->{address}) {
        $args->{address} = $class->_inflate_address($args->{address}, $args->{_gateway});
    }

    return $args;
};

sub _inflate_address {
    my ($self, $addr, $gateway) = @_;

    $gateway ||= $self->_gateway;

    return $gateway->account_address_class->new($addr);
}

1;

__END__