File Coverage

blib/lib/Data/Object/Role/Constructor.pm

Criterion	Covered	Total	%
statement	14	16	87.5
branch	4	6	66.6
condition	7	12	58.3
subroutine	4	4	100.0
pod	0	1	0.0
total	29	39	74.3

# Generic Constructor Role for Perl 5
package Data::Object::Role::Constructor;

use 5.010;
use Data::Object::Role;

use Scalar::Util 'blessed';

our $VERSION = '0.41'; # VERSION

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

    my $role = 'Data::Object::Role::Type';

    $data = $data->data if blessed($data)
        and $data->can('does')
        and $data->does($role);

    if (blessed($data) && $data->isa('Regexp') && $^V <= v5.12.0) {
        $data = do {\(my $q = qr/$data/)};
    }

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

1;