File Coverage

blib/lib/Data/Object/Immutable.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	4	4	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.03'; # VERSION

sub new {
    my $self = Data::Object->new(pop);
    my $type = $self->objtype;

    if    ($type eq 'HASH')  { Readonly::Hash   %$self => %$self; }
    elsif ($type eq 'ARRAY') { Readonly::Array  @$self => @$self; }
    else                     { Readonly::Scalar $$self => $$self; }

    return $self;
}

1;

__END__