File Coverage

blib/lib/Object/eBay/Condition.pm

Criterion	Covered	Total	%
statement	27	28	96.4
branch	3	4	75.0
condition			n/a
subroutine	9	10	90.0
pod	3	4	75.0
total	42	46	91.3

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

use Class::Std; {
    use warnings;
    use strict;
    use Carp;

    my %display_name_for :ATTR( :get );
    my %condition_id_for :ATTR( :get );

    sub BUILD {
        my ( $self, $ident, $args_ref ) = @_;

        my $condition_id = $args_ref->{id};
        croak "Missing ConditionID\n" if not $condition_id;
        my $display_name = $args_ref->{name};
        croak "Missing ConditionDisplayName\n" if not $display_name;

        $display_name_for{$ident} = $display_name;
        $condition_id_for{$ident} = $condition_id;
    }

    sub as_string :STRINGIFY { shift->get_display_name }

    # aliases providing naming similar to other Object::eBay classes
    sub display_name           { $_[0]->get_display_name }
    sub condition_id :NUMERIFY { $_[0]->get_condition_id }
}

1;

__END__