File Coverage

blib/lib/Data/Object/Autobox.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	6	6	100.0
condition	3	6	50.0
subroutine	6	6	100.0
pod			n/a
total	39	42	92.8

# ABSTRACT: An Autobox Implementation for Perl 5
package Data::Object::Autobox;

use 5.010;

use strict;
use warnings;

use base 'autobox';
use Data::Object 'load';

our $VERSION = '0.11'; # VERSION

sub import {
    my $class = shift;
    my $param = shift;

    my ($default, %options) = ('composite', @_);
    my ($flavor) = $param =~ /^[-:](autoload|composite|custom)$/ if $param;

    $flavor = $default if ! $flavor
        or $flavor eq 'custom' and ! keys %options;

    unless (lc $flavor eq 'custom') {
        %options = (
            ARRAY     => load "${class}::\u${flavor}::Array",
            CODE      => load "${class}::\u${flavor}::Code",
            FLOAT     => load "${class}::\u${flavor}::Float",
            HASH      => load "${class}::\u${flavor}::Hash",
            INTEGER   => load "${class}::\u${flavor}::Integer",
            NUMBER    => load "${class}::\u${flavor}::Number",
            SCALAR    => load "${class}::\u${flavor}::Scalar",
            STRING    => load "${class}::\u${flavor}::String",
            UNDEF     => load "${class}::\u${flavor}::Undef",
            UNIVERSAL => load "${class}::\u${flavor}::Universal",
        );
    }

    $class->SUPER::import(%options);

    return;
}

1;

__END__