File Coverage

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

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition	2	6	33.3
subroutine	8	8	100.0
pod			n/a
total	35	39	89.7

package Business::CPI::Role::Account;
# ABSTRACT: Manage accounts in the gateway
use Moo::Role;
use utf8;
use Business::CPI::Util::Types qw/PhoneNumber DateTime/;
use Type::EmailAddress qw/EmailAddress/;
use Types::Standard qw/Bool/;

our $VERSION = '0.924'; # VERSION

# TODO: Validate this? URI.pm seems to accept anything
# actually... does this really belong here???
has return_url => ( is => 'rw' );

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

has id         => ( is => 'rw' );
has gateway_id => ( is => 'rw' );

# Some gateways use the Full Name, others use the first and last separately.
# You can set both and let the driver decide what to send.
has full_name  => ( is => 'lazy' );
has first_name => ( is => 'rw' );
has last_name  => ( is => 'rw' );

has phone => (
    is     => 'rw',
    isa    => PhoneNumber,
    coerce => PhoneNumber->coercion,
);

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

has email => (
    is  => 'rw',
    isa => EmailAddress,
);

has birthdate => (
    is  => 'rw',
    isa => DateTime,
);

has registration_date => (
    is  => 'rw',
    isa => DateTime,
);

has is_business_account => ( is => 'rw', isa => Bool );

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

has business => ( 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 business => sub {
    my $orig = shift;
    my $self = shift;

    if (my $new_business = shift) {
        return $self->$orig( $self->_inflate_business($new_business) );
    }

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

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

    return $args if !$args->{_gateway}; # let it die elsewhere

    if (exists $args->{business}) {
        $args->{business} = $class->_inflate_business($args->{business}, $args->{_gateway});
    }

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

    return $args;
};

sub _build_full_name {
    my $self = shift;

    return $self->first_name . ' ' . $self->last_name;
}

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

    $gateway ||= $self->_gateway;

    $comp->{_gateway} = $gateway;

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

sub _inflate_business {
    my ($self, $comp, $gateway) = @_;

    $gateway ||= $self->_gateway;

    $comp->{_gateway} = $gateway;

    return $gateway->account_business_class->new($comp);
}

1;

__END__