File Coverage

blib/lib/Data/Sah/Format/perl/boolstr.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch	5	8	62.5
condition	4	4	100.0
subroutine	5	5	100.0
pod	0	1	0.0
total	40	45	88.8

package Data::Sah::Format::perl::boolstr;

our $DATE = '2016-06-17'; # DATE
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;

use Data::Dmp;

our $styles = {
    yes_no     => ['yes', 'no'],
    Y_N        => ['Y', 'N'],
    true_false => ['true', 'false'],
    T_F        => ['T', 'F'],
    '1_0'      => ['1', '0'],
    on_off     => ['on', 'off'],
};

sub format {
    my %args = @_;

    my $dt    = $args{data_term};
    my $fargs = $args{args} // {};

    my ($true_str, $false_str);
    if (defined $fargs->{true_str}) {
        die "BUG: both true_str and false_str must be defined"
            unless defined $fargs->{false_str};
        $true_str  = $fargs->{true_str};
        $false_str = $fargs->{false_str};
    } elsif (defined $fargs->{false_str}) {
        die "BUG: both true_str and false_str must be defined";
    } else {
        my $style = $fargs->{style} // 'yes_no';
        $styles->{$style} or die "BUG: Unknown style '$style'";
        $true_str  = $styles->{$style}[0];
        $false_str = $styles->{$style}[1];
    }

    my $res = {};

    $res->{expr} = join(
        "",
        "!defined($dt) ? $dt : $dt ? ".dmp($true_str)." : ".dmp($false_str),
    );

    $res;
}

1;
# ABSTRACT: Format boolean as yes/no, etc

__END__