File Coverage

blib/lib/Object/eBay/Attribute.pm

Criterion	Covered	Total	%
statement	15	20	75.0
branch			n/a
condition	0	2	0.0
subroutine	5	6	83.3
pod	0	1	0.0
total	20	29	68.9

package Object::eBay::Attribute;
our $VERSION = '0.5.1';

use Class::Std; {
    use warnings;
    use strict;
    use overload
        q{""}    => 'get_value_literal',
        q{0+}    => 'get_value_id',
        fallback => 1
    ;
    use Carp;

    my %attribute_id_for  :ATTR( :get  );
    my %value_id_for      :ATTR( :get      );
    my %value_literal_for :ATTR( :get );

    sub BUILD {
        my ( $self, $ident, $args_ref ) = @_;
        my $hash = $args_ref->{attribute} || {};
        $attribute_id_for{$ident}  = $hash->{attributeID};
        $value_id_for{$ident}      = $hash->{Value}{ValueID};
        $value_literal_for{$ident} = $hash->{Value}{ValueLiteral};
    }
}

1;

__END__