File Coverage

blib/lib/Object/eBay/Boolean.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	6	6	100.0
condition	6	8	75.0
subroutine	11	11	100.0
pod	4	5	80.0
total	55	58	94.8

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

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

    my %value_for :ATTR( :get );

    sub BUILD {
        my ($self, $ident, $args_ref) = @_;
        my $details = $args_ref->{object_details} || q{};
        croak "Invalid boolean value '$details'\n"
            unless $details eq 'true' || $details eq 'false';
        $value_for{$ident} = $details && $details eq 'true' ? 1 : 0;
    }

    sub as_string :STRINGIFY {
        my ($self) = @_;
        return $self->get_value() ? 'true' : 'false';
    }

    sub as_boolean :BOOLIFY {
        my ($self) = @_;
        return $self->get_value();
    }

    sub true  { shift->new({ object_details => 'true' })  }
    sub false { shift->new({ object_details => 'false' }) }
}

1;

__END__