File Coverage

blib/lib/JSON/Types/Flexible.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	4	4	100.0
condition	2	3	66.6
subroutine	9	9	100.0
pod			n/a
total	51	52	98.0

package JSON::Types::Flexible;
use strict;
use warnings;
use utf8;

our $VERSION = "0.02";

use JSON::Types ();
use List::MoreUtils qw/uniq/;
use Sub::Install;

use constant {
    SUB_ALIAS => {
        number  => 'number',
        string  => 'string',
        bool    => 'bool',
        boolean => 'bool',
    },
    STRICT_SUBS => [qw/
        number
        string
        boolean
    /],
    LOOSE_SUBS  => [qw/
        bool
    /],
};

BEGIN {
    for (keys %{SUB_ALIAS()}) {
        Sub::Install::install_sub({
          code => SUB_ALIAS->{$_},
          from => 'JSON::Types',
          into => __PACKAGE__,
          as   => $_,
        });
    }
}

sub import {
    my ($pkg, @args) = @_;
    my $class = caller;

    my @subs;
    if (@args == 0) {
        push @subs, @{STRICT_SUBS()};
    }
    elsif ($args[0] eq ':loose' || $args[0] eq ':all') {
        push @subs, @{STRICT_SUBS()}, @{LOOSE_SUBS()};
    }
    else {
        push @subs, @args;
    }

    for (uniq @subs) {
        Sub::Install::install_sub({
          code => SUB_ALIAS->{$_},
          from => 'JSON::Types',
          into => $class,
          as   => $_,
        });
    }
}

1;
__END__