view release on metacpan or  search on metacpan

t/tests.t  view on Meta::CPAN

STRUCTURE->[0] = 4;
is_deeply STRUCTURE, [4, {2 => 3}], 'Can modify array references';

STRUCTURE->[1]{2} = 7;
is_deeply STRUCTURE, [4, {2 => 7}], 'Can modify hash references';

push @{(STRUCTURE)}, 'hello';
is_deeply STRUCTURE, [4, {2 => 7}, 'hello'], 'Can push to arrays';

$#{(STRUCTURE)} = 0;
is_deeply STRUCTURE, [4], 'Can change length of array reference in structure';