File Coverage

blib/lib/MARC/Spec/Subspec.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	13	13	100.0

package MARC::Spec::Subspec;

use Moo;
use namespace::clean;

our $VERSION = '1.0.0';

has left => (
    is => 'rw',
    isa => sub {
        croak ('Left subterm is not an instance of MARC::Spec or MARC::Spec::Comparisonstring.')
            unless(ref $_[0] eq 'MARC::Spec' or ref $_[0] eq 'MARC::Spec::Comparisonstring')
    }
);

has right => (
    is => 'rw',
    isa => sub {
        croak ('Right subterm is not an instance of MARC::Spec or MARC::Spec::Comparisonstring.')
            unless(ref $_[0] eq 'MARC::Spec' or ref $_[0] eq 'MARC::Spec::Comparisonstring')
    }
);

has operator => (
    is => 'rw',
    default => sub { "?" }
);


sub to_string {
    my ($self) = @_;
    my $string = $self->left->to_string().$self->operator.$self->right->to_string();
    return $string;
}
1;

__END__