File Coverage

blib/lib/MARC/Spec/Comparisonstring.pm

Criterion	Covered	Total	%
statement	19	22	86.3
branch	3	4	75.0
condition			n/a
subroutine	5	6	83.3
pod	1	3	33.3
total	28	35	80.0

package MARC::Spec::Comparisonstring;

use Carp qw(croak);
use Moo;
use namespace::clean;

our $VERSION = '1.0.0';

has raw => (
    is => 'rwp',
    required => 1
);

has comparable => (
    is => 'rwp'
);

sub BUILDARGS {
   my ( $class, @args ) = @_;
   unshift @args, "raw" if @args % 2 == 1;
   return { @args };
}

sub BUILD {
    my ($self, $args) = @_;

    # char of list ${}!=~?|\s must be escaped if not at index 0*
    croak "MARCspec Comparisonstring exception. Unescaped character detected. Tried to parse: ".$self->raw
        unless($self->raw =~ /^(.(?:[^\$\{\}\!\=\~\?\|\s]|(?<=\\\\)[\$\{\}\!\=\~\?\|])*)$/s);

    my $comparable = $self->raw;
    my $replace = ' ';
    $comparable =~ s{\\s}{$replace}g;
    $self->_set_comparable($comparable);
    return;
}

sub to_string {
    my ($self) = @_;
    my $string = '\\'.$self->raw;
    return $string;
}
1;

__END__