File Coverage

blib/lib/List/Utils/MoveElement.pm

Criterion	Covered	Total	%
statement	43	44	97.7
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	51	53	96.2

package List::Utils::MoveElement;

use 5.008;
use strict;
use warnings;
use Exporter;

BEGIN {
  our $VERSION   = qw/0.02/;
  our @ISA       = qw/Exporter/;
  our @EXPORT    = qw/move_element_left move_element_right move_element_to_beginning move_element_to_end/;
  our $xs_loaded;

  # Load XS version if available, otherwise load PP version
  local $@;
  eval {
    require XSLoader;
    XSLoader::load('List::Utils::MoveElement', $VERSION);
    $xs_loaded = 1;
  } or do {
    require List::Utils::MoveElement::PP;
    no strict 'refs';
    *left          = \&{'List::Utils::MoveElement::PP::left'};
    *right         = \&{'List::Utils::MoveElement::PP::right'};
    *to_beginning  = \&{'List::Utils::MoveElement::PP::to_beginning'};
    *to_end        = \&{'List::Utils::MoveElement::PP::to_end'};
  };

  # Alias long names to short names
  {
    no strict 'refs';
    *move_element_left         = \&{__PACKAGE__ . '::left'};
    *move_element_right        = \&{__PACKAGE__ . '::right'};
    *move_element_to_beginning = \&{__PACKAGE__ . '::to_beginning'};
    *move_element_to_end       = \&{__PACKAGE__ . '::to_end'};
  }
}

1;

__END__