File Coverage

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

Criterion	Covered	Total	%
statement	27	27	100.0
branch	5	8	62.5
condition	12	14	85.7
subroutine	7	7	100.0
pod			n/a
total	51	56	91.0

package Business::CPI::Role::Buyer;
# ABSTRACT: Information about the client
use Moo::Role;
use Locale::Country ();
use Business::CPI::Util::Types qw/Country/;
use Types::Standard qw/Str/;
use Type::EmailAddress qw/EmailAddress/;

our $VERSION = '0.923'; # VERSION

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

has name => (
    isa => Str,
    is => 'ro',
);

has address_line1      => ( is => 'lazy' );
has address_line2      => ( is => 'lazy' );

has address_street     => ( is => 'ro', required => 0 );
has address_number     => ( is => 'ro', required => 0 );
has address_district   => ( is => 'ro', required => 0 );
has address_complement => ( is => 'ro', required => 0 );
has address_zip_code   => ( is => 'ro', required => 0 );
has address_city       => ( is => 'ro', required => 0 );
has address_state      => ( is => 'ro', required => 0 );
has address_country    => (
    is => 'ro',
    required => 0,
    isa => Country,
    coerce => Country->coercion,
);

sub _build_address_line1 {
    my $self = shift;

    my $street = $self->address_street || '';
    my $number = $self->address_number || '';

    return unless $street;

    return $street unless $number;

    return "$street, $number";
}

sub _build_address_line2 {
    my $self = shift;

    my $distr = $self->address_district   || '';
    my $compl = $self->address_complement || '';

    return $distr if ($distr && !$compl);
    return $compl if (!$distr && $compl);

    return "$distr - $compl";
}

# TODO
# add all the other attrs.
#
# try and find the common ones between PagSeguro / PayPal / etc, and keep them
# here. Specific attrs can stay in Business::CPI::${gateway}::Buyer

1;

__END__