Filename	/usr/share/perl/5.10/Tie/Hash.pm
Statements	Executed 9 statements in 904µs

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	24µs	98µs	Tie::Hash::::BEGIN@5 Tie::Hash::BEGIN@5
1	1	1	18µs	204µs	Tie::Hash::::BEGIN@6 Tie::Hash::BEGIN@6
1	1	1	7µs	7µs	Tie::StdHash::::TIEHASH Tie::StdHash::TIEHASH
0	0	0	0s	0s	Tie::ExtraHash::::CLEARTie::ExtraHash::CLEAR
0	0	0	0s	0s	Tie::ExtraHash::::DELETETie::ExtraHash::DELETE
0	0	0	0s	0s	Tie::ExtraHash::::EXISTSTie::ExtraHash::EXISTS
0	0	0	0s	0s	Tie::ExtraHash::::FETCHTie::ExtraHash::FETCH
0	0	0	0s	0s	Tie::ExtraHash::::FIRSTKEYTie::ExtraHash::FIRSTKEY
0	0	0	0s	0s	Tie::ExtraHash::::NEXTKEYTie::ExtraHash::NEXTKEY
0	0	0	0s	0s	Tie::ExtraHash::::SCALARTie::ExtraHash::SCALAR
0	0	0	0s	0s	Tie::ExtraHash::::STORETie::ExtraHash::STORE
0	0	0	0s	0s	Tie::ExtraHash::::TIEHASHTie::ExtraHash::TIEHASH
0	0	0	0s	0s	Tie::Hash::::CLEAR Tie::Hash::CLEAR
0	0	0	0s	0s	Tie::Hash::::EXISTS Tie::Hash::EXISTS
0	0	0	0s	0s	Tie::Hash::::TIEHASH Tie::Hash::TIEHASH
0	0	0	0s	0s	Tie::Hash::::new Tie::Hash::new
0	0	0	0s	0s	Tie::StdHash::::CLEAR Tie::StdHash::CLEAR
0	0	0	0s	0s	Tie::StdHash::::DELETE Tie::StdHash::DELETE
0	0	0	0s	0s	Tie::StdHash::::EXISTS Tie::StdHash::EXISTS
0	0	0	0s	0s	Tie::StdHash::::FETCH Tie::StdHash::FETCH
0	0	0	0s	0s	Tie::StdHash::::FIRSTKEY Tie::StdHash::FIRSTKEY
0	0	0	0s	0s	Tie::StdHash::::NEXTKEY Tie::StdHash::NEXTKEY
0	0	0	0s	0s	Tie::StdHash::::SCALAR Tie::StdHash::SCALAR
0	0	0	0s	0s	Tie::StdHash::::STORE Tie::StdHash::STORE

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Tie::Hash;
2
3	1	1µs			our $VERSION = '1.03';
4
5	3	43µs	2	172µs	# spent 98µs (24+74) within Tie::Hash::BEGIN@5 which was called: # once (24µs+74µs) by POSIX::SigRt::BEGIN@64 at line 5 use Carp; # spent 98µs making 1 call to Tie::Hash::BEGIN@5 # spent 74µs making 1 call to Exporter::import
6	3	847µs	2	390µs	# spent 204µs (18+186) within Tie::Hash::BEGIN@6 which was called: # once (18µs+186µs) by POSIX::SigRt::BEGIN@64 at line 6 use warnings::register; # spent 204µs making 1 call to Tie::Hash::BEGIN@6 # spent 186µs making 1 call to warnings::register::import
7
8					sub new {
9					my $pkg = shift;
10					$pkg->TIEHASH(@_);
11					}
12
13					# Grandfather "new"
14
15					sub TIEHASH {
16					my $pkg = shift;
17					if (defined &{"${pkg}::new"}) {
18					warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIEHASH is missing");
19					$pkg->new(@_);
20					}
21					else {
22					croak "$pkg doesn't define a TIEHASH method";
23					}
24					}
25
26					sub EXISTS {
27					my $pkg = ref $_[0];
28					croak "$pkg doesn't define an EXISTS method";
29					}
30
31					sub CLEAR {
32					my $self = shift;
33					my $key = $self->FIRSTKEY(@_);
34					my @keys;
35
36					while (defined $key) {
37					push @keys, $key;
38					$key = $self->NEXTKEY(@_, $key);
39					}
40					foreach $key (@keys) {
41					$self->DELETE(@_, $key);
42					}
43					}
44
45					# The Tie::StdHash package implements standard perl hash behaviour.
46					# It exists to act as a base class for classes which only wish to
47					# alter some parts of their behaviour.
48
49					package Tie::StdHash;
50					# @ISA = qw(Tie::Hash); # would inherit new() only
51
52	1	9µs			# spent 7µs within Tie::StdHash::TIEHASH which was called: # once (7µs+0s) by MARC::Charset::Table::BEGIN@36 at line 71 of POSIX.pm sub TIEHASH { bless {}, $_[0] }
53					sub STORE { $_[0]->{$_[1]} = $_[2] }
54					sub FETCH { $_[0]->{$_[1]} }
55					sub FIRSTKEY { my $a = scalar keys %{$_[0]}; each %{$_[0]} }
56					sub NEXTKEY { each %{$_[0]} }
57					sub EXISTS { exists $_[0]->{$_[1]} }
58					sub DELETE { delete $_[0]->{$_[1]} }
59					sub CLEAR { %{$_[0]} = () }
60					sub SCALAR { scalar %{$_[0]} }
61
62					package Tie::ExtraHash;
63
64					sub TIEHASH { my $p = shift; bless [{}, @_], $p }
65					sub STORE { $_[0][0]{$_[1]} = $_[2] }
66					sub FETCH { $_[0][0]{$_[1]} }
67					sub FIRSTKEY { my $a = scalar keys %{$_[0][0]}; each %{$_[0][0]} }
68					sub NEXTKEY { each %{$_[0][0]} }
69					sub EXISTS { exists $_[0][0]->{$_[1]} }
70					sub DELETE { delete $_[0][0]->{$_[1]} }
71					sub CLEAR { %{$_[0][0]} = () }
72					sub SCALAR { scalar %{$_[0][0]} }
73
74	1	4µs			1;