File Coverage

blib/lib/Data/Object/Array.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch	0	2	0.0
condition	0	6	0.0
subroutine	4	5	80.0
pod	0	1	0.0
total	16	31	51.6

# ABSTRACT: An Array Object for Perl 5
package Data::Object::Array;

use 5.10.0;

use Moo 'with';
use Scalar::Util 'blessed';
use Types::Standard 'ArrayRef';

with 'Data::Object::Role::Array';

our $VERSION = '0.02'; # VERSION

sub new {
    my $class = shift;
    my $data  = shift;

    $class = ref($class) || $class;
    $data  = ArrayRef->($data)
        unless blessed($data) && $data->isa($class);

    return bless $data, $class;
}

1;

__END__