File Coverage

blib/lib/Object/eBay/User.pm

Criterion	Covered	Total	%
statement	12	15	80.0
branch			n/a
condition			n/a
subroutine	4	7	57.1
pod	3	3	100.0
total	19	25	76.0

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

use Class::Std; {
    use warnings;
    use strict;
    use base qw( Object::eBay );

    sub api_call       { "GetUser" };
    sub response_field { "User"    };

    __PACKAGE__->simple_attributes(qw{
        FeedbackScore
        UserID
    });

    __PACKAGE__->complex_attributes({
        Email => {
            undefined_value_ok => 1,
            convert_value => sub {
                my $email = shift;
                return if defined($email) and $email eq 'Invalid Request';
                return $email;
            },
        },
        FeedbackPrivate => {
            class => 'Boolean',
        }
    });

    # name the boolean method with is_ to be consistent
    sub is_feedback_private { shift->feedback_private }

}

1;

__END__