Create an object/Native demonstration: Difference between revisions

Content added Content deleted
m (syntax highlighting fixup automation)
m (→‎{{header|Perl}}: future-proof for 5.36, explicit :prototype)
Line 668: Line 668:


=={{header|Perl}}==
=={{header|Perl}}==
<syntaxhighlight lang="perl">package LockedHash;
<syntaxhighlight lang="perl">use strict;

⚫
use parent Tie::Hash;
package LockedHash;
⚫
use parent 'Tie::Hash';
use Carp;
use Carp;
use strict;


sub TIEHASH {
sub TIEHASH {
Line 711: Line 712:
}
}


sub lock_hash(\%) {
sub lock_hash :prototype(\%) {
my $ref = shift;
my $ref = shift;
tie(%$ref, __PACKAGE__, %$ref);
tie(%$ref, __PACKAGE__, %$ref);
Retrieved from "https://rosettacode.org/wiki/Create_an_object/Native_demonstration"