#!/usr/bin/perl -w
use strict;

use Const qw/Const ConstHash ConstArray/;

Const my $FOO => 42;
# tie my $FOO, 'Const', 42;

print "$FOO\n";         # prints "42"
$FOO = 43;              # croaks for attempted change
$FOO++;                 # same


ConstHash my %BOO => { foo => 'blah', moo => 41, 2 => 'no' };
# tie my %BOO, 'ConstHash', { foo => 'blah', moo => 41, 2 => 'no' };

print "$BOO{foo} $BOO{2}\n";  # prints "blah no"
$BOO{moo}++;            # croaks for attempted change
%BOO = ();              # same
print "$BOO{Foo}\n";    # croaks for non-existant element


ConstArray my @MOO => [ qw/foo 2 five seven/ ];
# tie my @MOO, 'ConstArray', [ qw/foo 2 five seven ];

print "$MOO[0] $MOO[3]\n";  # prints "foo seven"
$MOO[1]++;              # croaks for attemped change
$MOO[5] = 2;            # same
splice(@MOO,1,1,4);     # same again
print "$MOO[10]\n";     # croaks for non-existant element