File Coverage

blib/lib/Data/Object/Immutable.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	6	6	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	32	33	96.9

# ABSTRACT: Immutable Data Type Objects for Perl 5
package Data::Object::Immutable;

use 5.10.0;
use strict;
use warnings;

use Data::Object;
use Readonly;

our $VERSION = '0.04'; # VERSION

sub new {
    my $self = Data::Object->new($_[1]);

    Readonly::Hash   %$self => %$self if UNIVERSAL::isa($self, 'HASH');
    Readonly::Array  @$self => @$self if UNIVERSAL::isa($self, 'ARRAY');
    Readonly::Scalar $$self => $$self if UNIVERSAL::isa($self, 'SCALAR');

    return $self;
}

1;

__END__