Create an object/Native demonstration: Difference between revisions

eval {...} called at test.pl line 66</lang>

=={{header|Perl 6}}==

Here we use delegation to handle all the normal hash methods that we don't need to override to define our new class.

<lang perl6>class FixedHash {

has $.hash handles *;

method AT-KEY(FixedHash:D: $key is copy) is rw {

$!hash.EXISTS-KEY($key) ?? $!hash.AT-KEY($key) !! Failure.new(q{can't store value for unknown key});