File Coverage

blib/lib/Games/Go/AGA/Parse.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch	6	8	75.0
condition	1	3	33.3
subroutine	8	9	88.8
pod	0	4	0.0
total	43	54	79.6

#===============================================================================
#         FILE:  Games::Go::AGA::Parse
#     ABSTRACT:  parsers for various AGA format files
#       AUTHOR:  Reid Augustin (REID),
#      COMPANY:  LucidPort Technology, Inc.
#      CREATED:  12/02/2010 08:51:22 AM PST
#===============================================================================

use 5.002;
use strict;
use warnings;

package Games::Go::AGA::Parse;

our $VERSION = '0.042'; # VERSION

sub new {
    my ($proto, %opts) = @_;

    my $class = ref $proto || $proto;
    my $self = bless {}, $class;
    foreach my $key (qw(
        filename
        handle
        )) {
        if ($opts{$key}) {
            no strict 'refs';   ## no critic
            $self->$key(delete $opts{$key});
        }
    }
    if (%opts) {
        die "unknown option(s): ", join("\n", %opts);
    }

    return $self;
}

sub filename {
    my $self = shift;

    $self->{filename} = $_[0] if(@_);
    return $self->{filename};
}

sub handle {
    my $self = shift;

    $self->{handle} = $_[0] if(@_);
    return $self->{handle};
}

*parse = \&parse_line;  # alias parse to parse_line
sub parse_line {

    Games::Go::AGA::Parse::Exception->throw(
        error => "Don't use Games::Go::AGA::Parse directly, use Games::Go::AGA::Parse::SOMETHING",
    );
}

sub _parse_error {
    my $self = shift;

    Games::Go::AGA::Parse::Exception->throw(
        @_,
        filename => $self->filename,
        handle   => $self->handle,
    );
}

1;

__END__