File Coverage

blib/lib/String/Palindrome.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	20	20	100.0
condition	3	3	100.0
subroutine	8	8	100.0
pod	1	1	100.0
total	64	64	100.0

use warnings;
use strict;
use utf8;

package String::Palindrome;
BEGIN {
  $String::Palindrome::VERSION = '2.000001';
}
BEGIN {
  $String::Palindrome::AUTHORITY = 'cpan:LESPEA';
}

require Exporter;

use vars qw(@EXPORT_OK);
use base qw(Exporter);
@EXPORT_OK  = qw(is_palindrome);  # symbols to export on request


# ABSTRACT: Determine if a string is a palindrome




sub is_palindrome {  ## no critic 'Subroutines::RequireArgUnpacking'
    #  Get the args out
    my $arg  =  @_ > 1  ?  \@_
             :             $_[0]
             ;

    #  If no arg was given, then return undef
    if ( !defined $arg ) {
        return;
    }

    #  Check to see if we're dealing with a reference
    elsif  (ref $arg) {
        #  Return immediately if this isn't an array ref or the array ref
        #  contains no values
        return  unless  ref $arg eq 'ARRAY';
        return  unless  @$arg;

        for  (my ($i, $j) = (0, $#{$arg});  $i < $j;  $i++, $j--) {  ## no critic 'ControlStructures::ProhibitCStyleForLoops ValuesAndExpressions::ProhibitCommaSeparatedStatements'
            my ($a, $b) = @{$arg}[$i, $j];
            if  (!defined $a) {
                return 0  if  defined $b;
            }
            elsif (!defined $b) {
                return 0;
            }
            else {
                return 0  unless  $a eq $b;
            }
        }
        return 1;
    }

    else {
        return  ($arg ne q{}  and  $arg eq reverse $arg)  ?  1  :  0;
    }
}


1; # End of String::Palindrome

__END__