File Coverage

blib/lib/Data/Object/Immutable.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	34	35	97.1

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

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

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

    return $self;
}

1;

__END__