File Coverage

blib/lib/String/ZeroButTrue.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	2	100.0
condition	8	9	88.8
subroutine	7	7	100.0
pod	4	4	100.0
total	37	38	97.3

package String::ZeroButTrue;

use strict;
use warnings;

$String::ZeroButTrue::VERSION = '0.2';

use base 'Exporter';
@String::ZeroButTrue::EXPORT      = qw(get_zero_but_true is_zero_but_true);
@String::ZeroButTrue::EXPORT_OK   = qw(get_zero_but_true_uc get_zero_but_true_phrase);
%String::ZeroButTrue::EXPORT_TAGS = (
    'all' => [@String::ZeroButTrue::EXPORT, @String::ZeroButTrue::EXPORT_OK],
);

sub get_zero_but_true {
    return '0e0';
}

sub get_zero_but_true_uc {
    return '0E0';
}

sub get_zero_but_true_phrase {
    return '0 but true';
}

sub is_zero_but_true {
    my $string = shift;
    # We have to do a string eq because $string && $string == 0 it true when its a string being compared numerically:
    #     perl -Mstrict -we 'if ("hello world" == 0) { print "yes it is 0\n" }
    # no warnings 'numeric'; # string might *be* a string == Argument "$string" isn't numeric in numeric eq (==) at ...
    # return 1 if defined $string && $string && $string == 0;

    $string =~ tr/A-Z/a-z/;
    return 1 if defined $string && $string && ($string eq '0e0' || $string eq '0 but true');
    return;
}

1;

__END__