File Coverage

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

Criterion	Covered	Total	%
statement	14	16	87.5
branch	3	4	75.0
condition	5	9	55.5
subroutine	4	4	100.0
pod	0	1	0.0
total	26	34	76.4

# A 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.20'; # VERSION

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

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

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

1;