File Coverage

blib/lib/NG/Array.pm

Criterion	Covered	Total	%
statement	9	39	23.0
branch	0	2	0.0
condition			n/a
subroutine	3	13	23.0
pod	0	10	0.0
total	12	64	18.7

package Array;

use strict;
use warnings;
use base qw(Object);

sub new {
    my $pkg  = shift;
    my @args = @_;
    return bless \@args, $pkg;
}

sub each {
    my ( $self, $sub ) = @_;
    for my $i ( 0 .. scalar(@$self) - 1 ) {
        $sub->( $self->[$i], $i );
    }
    return $self;
}

sub pop {
    my ($self) = @_;
    return pop @$self;
}

sub push {
    my ( $self, $value ) = @_;
    push @$self, $value;
    return $self;
}

sub shift {
    my ($self) = @_;
    return shift @$self;
}

sub unshift {
    my ( $self, $value ) = @_;
    unshift @$self, $value;
    return $self;
}

sub sort {
    my ( $self, $sub ) = @_;
    my @tmp;
    if ( defined $sub ) {
        @tmp = sort { $sub->( $a, $b ) } @$self;
    }
    else {
        @tmp = sort @$self;
    }
    return Array->new(@tmp);
}

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

sub get {
    my ( $self, $index ) = @_;
    return $self->[$index];
}

sub join {
    my ( $self, $expr ) = @_;
    return join( $expr, @$self );
}

1;