#!/usr/bin/env perl

use Data::Dump;
use Data::Object::Immutable;

my $object = Data::Object::Immutable->new('abcedfghi');

$object->isa('Data::Object::String');
$object->length, 9;

eval { $object->uppercase };
dd $@;

eval { $$object = uc $$object };
dd $@;

dd $object;
