File Coverage

blib/lib/WWW/Scraper/ISBN/Record.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	9	9	100.0
pod	6	6	100.0
total	45	46	97.8

package WWW::Scraper::ISBN::Record;

use strict;
use warnings;

our $VERSION = '1.05';

#----------------------------------------------------------------------------
# Public API

sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my $self = {
        ISBN        => undef,
        FOUND       => 0,
        FOUND_IN    => undef,
        BOOK        => undef,
        ERROR       => '',
    };

    bless ($self, $class);
    return $self;
}

sub isbn        { my $self = shift; return $self->_accessor('ISBN',@_)     }
sub found       { my $self = shift; return $self->_accessor('FOUND',@_)    }
sub found_in    { my $self = shift; return $self->_accessor('FOUND_IN',@_) }
sub book        { my $self = shift; return $self->_accessor('BOOK',@_)     }
sub error       { my $self = shift; return $self->_accessor('ERROR',@_)    }

sub _accessor {
    my $self     = shift;
    my $accessor = shift;
    if (@_) { $self->{$accessor} = shift };
    return $self->{$accessor};
}

1;

__END__