File Coverage

blib/lib/MooseX/App/ParsedArgv/Element.pm

Criterion	Covered	Total	%
statement	22	34	64.7
branch	5	16	31.2
condition	1	3	33.3
subroutine	8	10	80.0
pod	7	7	100.0
total	43	70	61.4

# ============================================================================
package MooseX::App::ParsedArgv::Element;
# ============================================================================

use 5.010;
use utf8;

use Moose;

has 'key' => (
    is              => 'ro',
    isa             => 'Str',
    required        => 1,
);

has 'value' => (
    is              => 'ro',
    isa             => 'ArrayRef[MooseX::App::ParsedArgv::Value]',
    traits          => ['Array'],
    default         => sub { [] },
    handles         => {
        push_value      => 'push',
        count_values    => 'count',
        list_values     => 'elements',
    }
);

has 'consumed' => (
    is              => 'rw',
    isa             => 'Bool',
    default         => sub {0},
);

has 'type' => (
    is              => 'ro',
    isa             => 'Str',
    required        => 1,
);


sub original {
    my ($self) = @_;

    # TODO fixthis
    if ($self->count_values && $self->value->[-1]->has_raw) {
        return $self->value->[-1]->has_raw;
    } else {
        return $self->key;
    }
}

sub add_value {
    my ($self,$value,$position,$raw) = @_;

    $self->push_value(MooseX::App::ParsedArgv::Value->new(
        value       => $value,
        (defined $position ? (position => $position):()),
        (defined $raw ? (raw => $raw):()),
    ));
    return $value;
}

sub all_scalar_values { ## no perlcritic(RequireArgUnpacking)
    return map { $_->value }
        $_[0]->all_values;
}

sub all_values { ## no perlcritic(RequireArgUnpacking)
    return sort { $a->position <=> $b->position }
        $_[0]->list_values;
}

sub last_value {
    my ($self) = @_;
    return ($self->all_values)[-1];
}

sub consume {
    my ($self,$attribute) = @_;

    Moose->throw_error('Element '.$self->type.' '.$self->key.' is already consumed')
        if $self->consumed;
    $self->consumed(1);

    return $self;
}

sub serialize {
    my ($self) = @_;
    my $type = $self->type;
    if ($type eq 'extra') {
        return $self->key;
    } elsif ($type eq 'parameter') {
        return $self->key;
    } elsif ($type eq 'option') {
        my $key = (length $self->key == 1 ? '-':'--').$self->key;
        return join(' ',map { $key.' '.$_->value } $self->all_values);
    }

    return;
}

__PACKAGE__->meta->make_immutable();
1;

=pod

=head1 NAME

MooseX::App::ParsedArgv::Element - Parsed logical element from @ARGV

=head1 DESCRIPTION

Every instance of this class represents a logical entity from @ARGV

=head1 METHODS

=head2 key

Parameter value or option key

=head2 value

Arrayref of values. A value is represented by a L<MooseX::App::ParsedArgv::Value>
object.

=head2 add_value

Append a value

=head2 all_scalar_values

All values as scalars (in supplied order)

=head2 all_values

All values as L<MooseX::App::ParsedArgv::Value> objects (in supplied order)

=head2 last_value

Last value as L<MooseX::App::ParsedArgv::Value> object (as given by supplied order)

=head2 type

Type of element. Can be 'option', 'parameter' or 'extra'

=head2 consumed

Flag that indicates if element was already consumed

=head2 consume

Consumes element. Dies if element is already consumed

=head2 serialize

Serializes element (Does not procuce output that is identical with original @ARGV)

=head2 original

Tries to re-create the original input

=cut