File Coverage

blib/lib/Boolean/Converter.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	9	10	90.0
condition	2	3	66.6
subroutine	12	12	100.0
pod	4	5	80.0
total	62	65	95.3

package Boolean::Converter;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.01";

use Carp qw/croak/;
use List::Util qw/reduce/;
use overload ();

our %DEFAULT_EVALUATE_METHODS = ();
our %DEFAULT_CONVERT_METHODS = (
    'JSON::PP'           => sub { $_[0] ? JSON::PP::true()          : JSON::PP::false()          },
    'JSON::XS'           => sub { $_[0] ? JSON::XS::true()          : JSON::XS::false()          },
    'Types::Serialiser'  => sub { $_[0] ? Types::Serialiser::true() : Types::Serialiser::false() },
    'Data::MessagePack'  => sub { $_[0] ? Data::MessagePack::true() : Data::MessagePack::false() },
    'boolean'            => sub { $_[0] ? boolean::true()           : boolean::false()           },
);

sub new {
    my ($class, %args) = @_;
    return bless {
        evaluator => {
            %DEFAULT_EVALUATE_METHODS,
            %{ $args{evaluator} || +{} },
        },
        converter => {
            %DEFAULT_CONVERT_METHODS,
            %{ $args{converter} || +{} },
        },
    } => $class;
}

sub can_evaluate {
    my ($self, $value) = @_;
    return !!1 unless ref $value;
    return exists $self->{evaluator}->{ref $value}
        || reduce { $a || $b } map {
               overload::Method($value, $_)
           } qw/0+ bool int !/;
}

sub evaluate {
    my ($self, $value) = @_;
    my $converter = $self->{evaluator}->{ref $value};
    return $converter->($value) if $converter;
    return !!$value;
}

sub can_convert_to {
    my ($self, $klass) = @_;
    return exists $self->{converter}->{$klass};
}

sub convert_to {
    my ($self, $value, $klass) = @_;
    my $boolean = $self->evaluate($value);
    my $converter = $self->{converter}->{$klass}
        or croak "Unsupported class: $klass";
    return $converter->($boolean);
}

1;
__END__