File Coverage

blib/lib/Keyword/Anonymous/Object.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	33	34	97.0

package Keyword::Anonymous::Object;

use 5.006;
use strict;
use warnings;
our $VERSION = '1.01';

use Anonymous::Object;

use base 'Import::Export';

our %EX = (
        object => [qw/all/]
);

our $ANON = Anonymous::Object->new({
        object_name => 'Keyword::Object::Anon'
});

sub object (\$@) {
        my (undef, $val, %spec) = @_;

        %spec = _build_spec(%spec);

        my $ref = ref $val;

        my $anon = $ref eq 'HASH' ? $ANON->hash_to_nested_object($val, %spec)
                : $ref eq 'ARRAY' ? $ANON->array_to_nested_object($val, %spec)
                : die "cannot create Anonymous::Object";

        ${$_[0]} = $anon;

        return $_[0];
}

sub _build_spec {
        return (
                clearer => 1,
                predicate => 1,
                get => 1,
                set => 1,
                ref => 1,
                reftype => 1,
                autotype => 1,
                @_
        );
}

1;

__END__