File Coverage

lib/Data/AsObject.pm

Criterion	Covered	Total	%
statement	44	46	95.6
branch	8	12	66.6
condition			n/a
subroutine	12	12	100.0
pod			n/a
total	64	70	91.4

package Data::AsObject;
BEGIN {
  $Data::AsObject::VERSION = '0.07';
}

# ABSTRACT: Easy OO access to complex perl data structures

use warnings;
use strict;
use Carp;
use Scalar::Util qw(reftype blessed);
use Data::AsObject::Hash;
use Data::AsObject::Array;
use namespace::clean;

our $__check_type = sub {
    my $data = shift;
    return unless $data;

    my $type = reftype($data);

    if (defined $type) {
        if ( $type eq "ARRAY" && ( !blessed($data) || ref($data) =~ /^Data::AsObject::Array::(Strict|Loose|Silent)/ ) ) {
            return "ARRAY";
        } elsif ( $type eq "HASH" && ( !blessed($data) || ref($data) =~ /^Data::AsObject::Hash::(Strict|Loose|Silent)/ ) ) {
            return "HASH";
        } else {
            return "";
        }
    } else {
        return "";
    }
};

sub __build_dao
{
    my ($class, $sub, $arg) = @_;
    my $mode = $arg->{mode} if $arg;

    return sub
    {
        my @result;
        push @result, __bless_dao($_, $mode) for @_;
        return wantarray ? @result : $result[0];
    }
}

sub __bless_dao
{
    my ($data, $mode) = @_;

    if ($mode)
    {
        croak "Unknown mode '$mode' for dao construction" unless $mode =~/^strict|loose|silent$/;
        $mode = ucfirst($mode);
    }
    else
    {
        $mode = 'Strict';
    }

    my $array_class = "Data::AsObject::Array::$mode";
    my $hash_class = "Data::AsObject::Hash::$mode";

    my $type = reftype($data);

    my $dao;

    if ($type eq "ARRAY")
    {
        $dao = bless $data, $array_class;
    }
    elsif ($type eq "HASH")
    {
        $dao = bless $data, $hash_class;
    }
    else
    {
        carp "Invalid argument to dao: must be hashref or arrayref!";
        $dao = undef;
    }
    return $dao;
}

use Sub::Exporter -setup => { exports => [ dao => \'__build_dao' ] };

1;




__END__