File Coverage

blib/lib/Parse/Crontab/Entry/Env.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	35	35	100.0

package Parse::Crontab::Entry::Env;
use 5.008_001;
use strict;
use warnings;
use Mouse;
extends 'Parse::Crontab::Entry';

has _pair => (
    is  => 'ro',
    isa => 'ArrayRef',
    default => sub {
        my $self = shift;
        [split /=/, $self->line, 2];
    },
    auto_deref => 1,
);

has key => (
    is  => 'ro',
    isa => 'Str',
    default => sub {
        my $self = shift;
        $self->_handle_kv($self->_pair->[0]);
    }
);

has value => (
    is  => 'ro',
    isa => 'Str',
    default => sub {
        my $self = shift;
        $self->_handle_kv($self->_pair->[1]);
    }
);

no Mouse;

sub _handle_kv {
    my ($self, $str) = @_;
    my $org_str = $str;

    $str =~ s/^\s+//;
    $str =~ s/\s+$//;

    if (my ($quote) = $str =~ /^(['"])/) {
        $str =~ s/^$quote(.*)$quote/$1/;

        if ($str =~ /$quote/) {
            $self->set_error("value: $org_str is not valid.");
            return '';
        }
    }
    $str;
}

__PACKAGE__->meta->make_immutable;