File Coverage

blib/lib/Data/Object/Universal.pm

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

# ABSTRACT: A Universal Object for Perl 5
package Data::Object::Universal;

use 5.10.0;

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

with 'Data::Object::Role::Universal';

our $VERSION = '0.02'; # VERSION

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

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

    return bless ref($data) ? $data : \$data, $class;
}

1;

__END__