File Coverage

blib/lib/MDOM/Rule/Simple.pm

Criterion	Covered	Total	%
statement	42	52	80.7
branch	16	26	61.5
condition	2	3	66.6
subroutine	8	10	80.0
pod	0	5	0.0
total	68	96	70.8

package MDOM::Rule::Simple;

use strict;
use warnings;

#use Smart::Comments;
use base 'MDOM::Rule';
use MDOM::Util qw( trim_tokens );

sub targets {
    my ($self) = @_;
    $self->_parse if !$self->{colon};
    my $tokens = $self->{targets};
    wantarray ? @$tokens : $tokens;
}

sub normal_prereqs {
    my ($self) = @_;
    $self->_parse if !$self->{colon};
    my $tokens = $self->{normal_prereqs};
    wantarray ? @$tokens : $tokens;
}

sub order_prereqs {
    my ($self) = @_;
    $self->_parse if !$self->{colon};
    my $tokens = $self->{order_prereqs};
    wantarray ? @$tokens : $tokens;
}
sub colon {
    my ($self) = @_;
    $self->_parse if !$self->{colon};
    $self->{colon};
}

sub command {
    my ($self) = @_;
    $self->_parse if !$self->{colon};
    $self->{command};
}

sub _parse {
    my ($self) = @_;
    my @elems = $self->elements;
    my (@targets, $colon, @normal_prereqs, @order_prereqs, $command);
    my $prereqs = \@normal_prereqs;
    ## @elems
    for my $elem (@elems) {
        if (!$colon) {
            if ($elem->class eq 'MDOM::Token::Separator') {
                $colon = $elem->content;
            } else {
                push @targets, $elem;
            }
        } elsif ($elem->class eq 'MDOM::Token::Comment') {
            last;
        } elsif ($elem->class eq 'MDOM::Command') {
            $command = $elem;
            last;
        } elsif ($elem->class eq 'MDOM::Token::Bare' and
                 $elem->content eq '|') {
            $prereqs = \@order_prereqs;
        } else {
            push @$prereqs, $elem;
        }
    }
    trim_tokens(\@targets);
    trim_tokens(\@normal_prereqs);
    trim_tokens(\@order_prereqs);
    $self->{targets} = \@targets;
    $self->{colon}   = $colon;
    $self->{normal_prereqs} = \@normal_prereqs;
    $self->{order_prereqs} = \@order_prereqs;
    $self->{command} = $command;
    ### $self
}

1;