File Coverage

blib/lib/Return/DataButBool.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	6	6	100.0
condition			n/a
subroutine	15	15	100.0
pod	3	3	100.0
total	56	56	100.0

package Return::DataButBool;

use warnings;
use strict;

use version; our $VERSION = qv('0.0.3');

use base 'Exporter';
our @EXPORT = qw(zero_but_true data_but_true data_but_false);

# bring in the big guns
use Contextual::Return;

sub zero_but_true {
    return '0e0';
}

sub data_but_true {
    my $num = _get_num_from( shift() );
    my $str = shift();
    $str    = $num if !defined $str;

    return (
        BOOL { 1; }
        NUM  { $num }
        STR  { $str }
    );
}

sub data_but_false {
    my $num = _get_num_from( shift() );
    my $str = shift();
    $str    = $num if !defined $str;

    return (
        BOOL { 0; }
        NUM  { $num }
        STR  { $str }
    );
}

# out in external num() func or something?
sub _get_num_from {
	my ($num) = @_;
	return $num =~ m{ \A ([-+]? \d+ (?: [.] \d+ )?) \z }xms ? $1 : int($num);
}

1;

__END__