File Coverage

blib/lib/Package/JSONable.pm

Criterion	Covered	Total	%
statement	59	60	98.3
branch	28	30	93.3
condition	7	9	77.7
subroutine	10	10	100.0
pod			n/a
total	104	109	95.4

# ABSTRACT: Add TO_JSON to your packages without the boilerplate
package Package::JSONable;
{
  $Package::JSONable::VERSION = '0.001';
}

use strict;
use warnings;
use Scalar::Util qw(reftype);
use Carp qw(croak);
use List::MoreUtils qw(none);
use JSON ();

sub import {
    my ( $class, %import_opts ) = @_;

    my ( $target ) = caller;

    my $to_json = sub {
        my ( $self, %opts ) = @_;

        $self = $target unless $self;

        %opts = %import_opts unless %opts;

        my @types = qw/Str Int Num Bool ArrayRef HashRef/;

        my %hash;
        foreach my $method ( keys %opts ) {
            my $type      = $opts{$method};
            my @value     = $self->$method;
            my ( $value ) = @value;
            my $reftype   = reftype $value;
            my $typetype  = reftype $type;

            if ($typetype) {
                croak sprintf('Invalid type: "%s"', $typetype)
                        if $typetype ne 'CODE';

                $hash{$method} = $type->($self, @value);
                next;
            }

            croak sprintf('Invalid type: "%s"', $type)
                    if none { /^$type$/ } @types;

            if (!defined $value && $type ne 'Bool') {
                $hash{$method} = $value;
                next;
            }

            if ( $type eq 'Str' ) {
                $hash{$method} = $value . "";
            }
            elsif ( $type eq 'Int' ) {
                $hash{$method} = int $value;
            }
            elsif ( $type eq 'Num' ) {
                $hash{$method} = $value += 0;
            }
            elsif ( $type eq 'ArrayRef' ) {
                if ($reftype && $reftype eq 'ARRAY') {
                    $hash{$method} = $value;
                }
                else {
                    $hash{$method} = [ @value ];
                }
            }
            elsif ( $type eq 'HashRef' ) {
                if ($reftype && $reftype eq 'HASH') {
                    $hash{$method} = $value;
                }
                else {
                    $hash{$method} = { @value };
                }
            }
            elsif ( $type eq 'Bool' ) {
                if ( $value ) {
                    $hash{$method} = JSON::true;
                }
                else {
                    $hash{$method} = JSON::false;
                }
            }
        }

        return \%hash;
    };

    no strict 'refs';
    *{"${target}::TO_JSON"} = $to_json;
}

1;

__END__