File Coverage

blib/lib/Text/Diff3/ListMixin.pm

Criterion	Covered	Total	%
statement	31	45	68.8
branch	0	2	0.0
condition			n/a
subroutine	11	15	73.3
pod	10	10	100.0
total	52	72	72.2

package Text::Diff3::ListMixin;
use 5.006;
use strict;
use warnings;
use Carp;

use version; our $VERSION = '0.08';

## no critic (BuiltinHomonyms AmbiguousNames)

sub at {
    my($self, $x) = @_;
    return $self->list->[$x];
}

sub push {
    my($self, @arg) = @_;
    return CORE::push @{$self->list}, @arg;
}

sub pop {
    my($self) = @_;
    return CORE::pop @{$self->list};
}

sub unshift {
    my($self, @arg) = @_;
    return CORE::unshift @{$self->list}, @arg;
}

sub shift  {
    my($self) = @_;
    return CORE::shift @{$self->list};
}

sub is_empty {
    my($self) = @_;
    return ! (scalar @{$self->list});
}

sub size {
    my($self) = @_;
    return scalar @{$self->list};
}

sub first {
    my($self) = @_;
    return $self->list->[0];
}

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

sub each {
    my($self, $yield) = @_;
    ref $yield eq 'CODE' or croak 'requires coderef';
    for (@{$self->list}) {
        $yield->($_);
    }
    return $self;
}

1;

__END__