File Coverage

blib/lib/List/Utils/MoveElement/PP.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	16	24	66.6
condition	4	12	33.3
subroutine	8	8	100.0
pod	0	4	0.0
total	61	81	75.3

package List::Utils::MoveElement::PP;

use 5.008;
use strict;
use warnings;
our @VERSION = 0.01;

use Carp qw/croak/;

sub to_beginning {
  my ($i, @array) = @_;
  croak 'Usage: to_beginning($n, @list)' if !defined($i) or !@array;
  croak 'Array index out of range' if $i > $#array;
  return @array if $i == 0; #no-op
  return @array[$i, 0 .. $i-1, $i+1 .. $#array];
}

sub to_end {
  my ($i, @array) = @_;
  croak 'Usage: to_end($n, @list)' if !defined($i) or !@array;
  croak 'Array index out of range' if $i > $#array;
  return @array if $i == $#array; #no-op
  return @array[0 .. $i-1, $i+1 .. $#array, $i];
}

sub left {
  my ($i, @array) = @_;
  croak 'Usage: move_left($n, @list)' if !defined($i) or !@array;
  croak 'Array index out of range' if $i > $#array;
  return @array if $i == 0; #no-op
  ($array[$i-1], $array[$i]) = ($array[$i], $array[$i-1]);
  return @array;
}

sub right {
  my ($i, @array) = @_;
  croak 'Usage: move_left($n, @list)' if !defined($i) or !@array;
  croak 'Array index out of range' if $i > $#array;
  return @array if $i == $#array; #no-op
  ($array[$i+1], $array[$i]) = ($array[$i], $array[$i+1]);
  return @array;
}

1;