File Coverage

blib/lib/Net/Flotum/Object/CreditCard.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	29	31	93.5

package Net::Flotum::Object::CreditCard;
use strict;
use warnings;
use utf8;
use Carp qw/croak/;
use Moo;
use namespace::clean;

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

has [
    qw/
      verified_by_any_merchant
      created_at

      mask
      validity
      conjecture_brand

      /
] => ( is => 'ro' );

has [
    qw/
      id
      merchant_customer_id
      /
] => ( is => 'ro', required => 1 );

sub remove {
    my ($self) = @_;

    my $cc = $self->flotum->_remove_customer_credit_cards(
        id                   => $self->id,
        merchant_customer_id => $self->merchant_customer_id
    );

    return $cc eq '' ? 1 : 0;

}

1;

__END__