Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
Array	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
Handle	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
Hash	[ DIR ]	drwxr-xr-x	2016-10-10 17:40
Array.pm	7.15 KB	-r--r--r--	2014-12-27 11:48
ExtraHash.t	1.01 KB	-r--r--r--	2014-12-27 11:48
File.pm	75.56 KB	-r--r--r--	2014-12-27 11:49
Handle.pm	4.1 KB	-r--r--r--	2014-12-27 11:48
Hash.pm	7.46 KB	-r--r--r--	2014-12-27 11:48
Hash.t	318 B	-r--r--r--	2014-12-27 11:48
Memoize.pm	4.15 KB	-r--r--r--	2014-12-27 11:48
RefHash.pm	6.09 KB	-r--r--r--	2014-12-27 11:48
Scalar.pm	4.06 KB	-r--r--r--	2014-12-27 11:48
Scalar.t	2.97 KB	-r--r--r--	2014-12-27 11:48
StdHandle.pm	1.37 KB	-r--r--r--	2014-12-27 11:48
SubstrHash.pm	5.28 KB	-r--r--r--	2014-12-27 11:48
SubstrHash.t	2.27 KB	-r--r--r--	2014-12-27 11:48

Rename

#!./perl

use strict;
use warnings;
use Test::More tests => 11;
use_ok('Tie::Hash');

tie my %tied, 'Tie::ExtraHash';
%tied = (apple => 'tree', cow => 'field');
my %hash = (apple => 'tree', cow => 'field');

# TIEHASH
is_deeply(\%hash, \%tied, "TIEHASH");
ok(tied(%tied), "TIEHASH really does tie");

# FIRST/NEXTKEY
is_deeply([sort keys %hash], [sort keys %tied], "FIRSTKEY/NEXTKEY");
is_deeply([sort values %hash], [sort values %tied], "FIRSTKEY/NEXTKEY");

# EXISTS
ok(exists($tied{apple}) && exists($hash{apple}),
   'EXISTS works when it exists');

# DELETE and !EXISTS
delete($tied{apple}); delete($hash{apple});
ok(!exists($tied{apple}) && !exists($hash{apple}),
   'EXISTS works when it doesn\'t exist (as does DELETE)');

# STORE and FETCH
$tied{house} = $hash{house} = 'town';
ok($tied{house} eq 'town' && $tied{house} eq $hash{house},
   'STORE and FETCH');

# CLEAR
%tied = (); %hash = ();
ok(tied(%tied), "still tied after CLEAR");
is_deeply(\%tied, \%hash, "CLEAR");

# SCALAR
is(scalar(%tied), scalar(%hash), "SCALAR");