← Index
NYTProf Performance Profile   « line view »
For ../prof.pl
  Run on Wed Dec 14 15:33:55 2022
Reported on Wed Dec 14 15:40:04 2022

Filename/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Data/Perl/Role/Collection/Hash.pm
StatementsExecuted 345351 statements in 610ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
7581511318ms6.02sData::Perl::Role::Collection::Hash::::getData::Perl::Role::Collection::Hash::get
3913811242ms260msData::Perl::Role::Collection::Hash::::kvData::Perl::Role::Collection::Hash::kv
6511616µs7.48msData::Perl::Role::Collection::Hash::::setData::Perl::Role::Collection::Hash::set
2933162µs178µsData::Perl::Role::Collection::Hash::::valuesData::Perl::Role::Collection::Hash::values
11155µs143µsData::Perl::Role::Collection::Hash::::BEGIN@5Data::Perl::Role::Collection::Hash::BEGIN@5
11117µs35µsData::Perl::Role::Collection::Hash::::BEGIN@77Data::Perl::Role::Collection::Hash::BEGIN@77
1116µs122µsData::Perl::Role::Collection::Hash::::BEGIN@7Data::Perl::Role::Collection::Hash::BEGIN@7
1116µs20µsData::Perl::Role::Collection::Hash::::BEGIN@9Data::Perl::Role::Collection::Hash::BEGIN@9
1115µs31µsData::Perl::Role::Collection::Hash::::BEGIN@8Data::Perl::Role::Collection::Hash::BEGIN@8
0000s0sData::Perl::Role::Collection::Hash::::_array_classData::Perl::Role::Collection::Hash::_array_class
0000s0sData::Perl::Role::Collection::Hash::::accessorData::Perl::Role::Collection::Hash::accessor
0000s0sData::Perl::Role::Collection::Hash::::allData::Perl::Role::Collection::Hash::all
0000s0sData::Perl::Role::Collection::Hash::::clearData::Perl::Role::Collection::Hash::clear
0000s0sData::Perl::Role::Collection::Hash::::countData::Perl::Role::Collection::Hash::count
0000s0sData::Perl::Role::Collection::Hash::::definedData::Perl::Role::Collection::Hash::defined
0000s0sData::Perl::Role::Collection::Hash::::deleteData::Perl::Role::Collection::Hash::delete
0000s0sData::Perl::Role::Collection::Hash::::existsData::Perl::Role::Collection::Hash::exists
0000s0sData::Perl::Role::Collection::Hash::::is_emptyData::Perl::Role::Collection::Hash::is_empty
0000s0sData::Perl::Role::Collection::Hash::::keysData::Perl::Role::Collection::Hash::keys
0000s0sData::Perl::Role::Collection::Hash::::newData::Perl::Role::Collection::Hash::new
0000s0sData::Perl::Role::Collection::Hash::::shallow_cloneData::Perl::Role::Collection::Hash::shallow_clone
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package Data::Perl::Role::Collection::Hash;
211µs$Data::Perl::Role::Collection::Hash::VERSION = '0.002011';
3# ABSTRACT: Wrapping class for Perl's built in hash structure.
4
5347µs3231µs
# spent 143µs (55+88) within Data::Perl::Role::Collection::Hash::BEGIN@5 which was called: # once (55µs+88µs) by Role::Tiny::_load_module at line 5
use strictures 1;
# spent 143µs making 1 call to Data::Perl::Role::Collection::Hash::BEGIN@5 # spent 62µs making 1 call to strictures::import # spent 26µs making 1 call to strictures::VERSION
6
7232µs2238µs
# spent 122µs (6+116) within Data::Perl::Role::Collection::Hash::BEGIN@7 which was called: # once (6µs+116µs) by Role::Tiny::_load_module at line 7
use Role::Tiny;
# spent 122µs making 1 call to Data::Perl::Role::Collection::Hash::BEGIN@7 # spent 116µs making 1 call to Role::Tiny::import
8226µs257µs
# spent 31µs (5+26) within Data::Perl::Role::Collection::Hash::BEGIN@8 which was called: # once (5µs+26µs) by Role::Tiny::_load_module at line 8
use Scalar::Util qw/blessed/;
# spent 31µs making 1 call to Data::Perl::Role::Collection::Hash::BEGIN@8 # spent 26µs making 1 call to Exporter::import
92521µs234µs
# spent 20µs (6+14) within Data::Perl::Role::Collection::Hash::BEGIN@9 which was called: # once (6µs+14µs) by Role::Tiny::_load_module at line 9
use Module::Runtime qw/use_package_optimistically/;
# spent 20µs making 1 call to Data::Perl::Role::Collection::Hash::BEGIN@9 # spent 14µs making 1 call to Module::Runtime::import
10
11sub new { my $cl = shift; bless({ @_ }, $cl) }
12
13sub _array_class { 'Data::Perl::Collection::Array' }
14
15
# spent 6.02s (318ms+5.70) within Data::Perl::Role::Collection::Hash::get which was called 75815 times, avg 79µs/call: # 75815 times (318ms+5.70s) by Data::Perl::Collection::Hash::MooseLike::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Data/Perl/Collection/Hash/MooseLike.pm:22] at line 14 of Data/Perl/Collection/Hash/MooseLike.pm, avg 79µs/call
sub get {
167581513.7ms my $self = shift;
17
1875815179ms if (@_ > 1) {
19 my @res = @{$self}{@_};
20
21 blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
22 }
23 else {
2475815128ms476685.70s $self->{$_[0]};
# spent 5.70s making 47668 calls to Mojo::URL::__ANON__[Mojo/URL.pm:3], avg 120µs/call
25 }
26}
27
28
# spent 7.48ms (616µs+6.87) within Data::Perl::Role::Collection::Hash::set which was called 65 times, avg 115µs/call: # 65 times (616µs+6.87ms) by Data::Perl::Collection::Hash::MooseLike::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Data/Perl/Collection/Hash/MooseLike.pm:22] at line 14 of Data/Perl/Collection/Hash/MooseLike.pm, avg 115µs/call
sub set {
296514µs my $self = shift;
3065105µs my @keys_idx = grep { ! ($_ % 2) } 0..$#_;
316554µs my @values_idx = grep { $_ % 2 } 0..$#_;
32
3365160µs393.69ms @{$self}{@_[@keys_idx]} = @_[@values_idx];
# spent 3.69ms making 39 calls to Mojo::URL::__ANON__[Mojo/URL.pm:3], avg 95µs/call
34
356572µs393.15ms my @res = @{$self}{@_[@keys_idx]};
# spent 3.15ms making 39 calls to Mojo::URL::__ANON__[Mojo/URL.pm:3], avg 81µs/call
36
3765266µs6527µs blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
# spent 27µs making 65 calls to Scalar::Util::blessed, avg 415ns/call
38}
39
40sub delete {
41 my $self = shift;
42 my @res = CORE::delete @{$self}{@_};
43
44 blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
45}
46
47sub keys {
48 my ($self) = @_;
49
50 my @res = keys %{$self};
51
52 blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
53}
54
55sub exists { CORE::exists $_[0]->{$_[1]} }
56
57sub defined { CORE::defined $_[0]->{$_[1]} }
58
59
# spent 178µs (162+16) within Data::Perl::Role::Collection::Hash::values which was called 29 times, avg 6µs/call: # 16 times (94µs+5µs) by JSON::Schema::Modern::_canonical_resources at line 17 of (eval 341)[Sub/Quote.pm:3], avg 6µs/call # 12 times (57µs+9µs) by JSON::Schema::Modern::Document::_canonical_resources at line 17 of (eval 296)[Sub/Quote.pm:3], avg 6µs/call # once (11µs+2µs) by JSON::Schema::Modern::_get_vocabulary_values at line 17 of (eval 352)[Sub/Quote.pm:3]
sub values {
602915µs my ($self) = @_;
61
622960µs my @res = CORE::values %{$_[0]};
63
6429122µs2916µs blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
# spent 16µs making 29 calls to Scalar::Util::blessed, avg 552ns/call
65}
66
67
# spent 260ms (242+18.5) within Data::Perl::Role::Collection::Hash::kv which was called 39138 times, avg 7µs/call: # 39138 times (242ms+18.5ms) by JSON::Schema::Modern::Document::resource_pairs at line 17 of (eval 294)[Sub/Quote.pm:3], avg 7µs/call
sub kv {
683913813.4ms my ($self) = @_;
69
7039138124ms my @res = CORE::map { [ $_, $self->{$_} ] } CORE::keys %{$self};
71
7239138149ms3913818.5ms blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
# spent 18.5ms making 39138 calls to Scalar::Util::blessed, avg 473ns/call
73}
74
75
76{
773369µs253µs
# spent 35µs (17+18) within Data::Perl::Role::Collection::Hash::BEGIN@77 which was called: # once (17µs+18µs) by Role::Tiny::_load_module at line 77
no warnings 'once';
# spent 35µs making 1 call to Data::Perl::Role::Collection::Hash::BEGIN@77 # spent 18µs making 1 call to warnings::unimport
78
79 sub all {
80 my ($self) = @_;
81
82 my @res = CORE::map { $_, $self->{$_} } CORE::keys %{$self};
83
84 @res;
85 }
86
8712µs *elements = *all;
88}
89
90sub clear { %{$_[0]} = () }
91
92sub count { CORE::scalar CORE::keys %{$_[0]} }
93
94sub is_empty { CORE::scalar CORE::keys %{$_[0]} ? 0 : 1 }
95
96sub accessor {
97 if (@_ == 2) {
98 $_[0]->{$_[1]};
99 }
100 elsif (@_ > 2) {
101 $_[0]->{$_[1]} = $_[2];
102 }
103}
104
105sub shallow_clone { blessed($_[0]) ? bless({%{$_[0]}}, ref $_[0]) : {%{$_[0]}} }
106
10716µs1;
108
109=pod
110
111=encoding UTF-8
112
113=head1 NAME
114
115Data::Perl::Role::Collection::Hash - Wrapping class for Perl's built in hash structure.
116
117=head1 VERSION
118
119version 0.002011
120
121=head1 SYNOPSIS
122
123 use Data::Perl qw/hash/;
124
125 my $hash = hash(a => 1, b => 2);
126
127 $hash->values; # (1, 2)
128
129 $hash->set('foo', 'bar'); # (a => 1, b => 2, foo => 'bar')
130
131=head1 DESCRIPTION
132
133This class provides a wrapper and methods for interacting with a hash.
134All methods that return a list do so via a Data::Perl::Collection::Array
135object.
136
137=head1 PROVIDED METHODS
138
139=over 4
140
141=item B<new($key, $value, ...)>
142
143Given an optional list of keys/values, constructs a new Data::Perl::Collection::Hash
144object initalized with keys/values and returns it.
145
146=item B<get($key, $key2, $key3...)>
147
148Returns a list of values in the hash for the given keys.
149
150This method requires at least one argument.
151
152=item B<set($key =E<gt> $value, $key2 =E<gt> $value2...)>
153
154Sets the elements in the hash to the given values. It returns the new values
155set for each key, in the same order as the keys passed to the method.
156
157This method requires at least two arguments, and expects an even number of
158arguments.
159
160=item B<delete($key, $key2, $key3...)>
161
162Removes the elements with the given keys.
163
164Returns a list of values in the hash for the deleted keys.
165
166=item B<keys>
167
168Returns the list of keys in the hash.
169
170This method does not accept any arguments.
171
172=item B<exists($key)>
173
174Returns true if the given key is present in the hash.
175
176This method requires a single argument.
177
178=item B<defined($key)>
179
180Returns true if the value of a given key is defined.
181
182This method requires a single argument.
183
184=item B<values>
185
186Returns the list of values in the hash.
187
188This method does not accept any arguments.
189
190=item B<kv>
191
192Returns the key/value pairs in the hash as an array of array references.
193
194 for my $pair ( $object->option_pairs ) {
195 print "$pair->[0] = $pair->[1]\n";
196 }
197
198This method does not accept any arguments.
199
200=item B<elements/all>
201
202Returns the key/value pairs in the hash as a flattened list..
203
204This method does not accept any arguments.
205
206=item B<clear>
207
208Resets the hash to an empty value, like C<%hash = ()>.
209
210This method does not accept any arguments.
211
212=item B<count>
213
214Returns the number of elements in the hash. Also useful for not empty:
215C<< has_options => 'count' >>.
216
217This method does not accept any arguments.
218
219=item B<is_empty>
220
221If the hash is populated, returns false. Otherwise, returns true.
222
223This method does not accept any arguments.
224
225=item B<accessor($key)>
226
227=item B<accessor($key, $value)>
228
229If passed one argument, returns the value of the specified key. If passed two
230arguments, sets the value of the specified key.
231
232When called as a setter, this method returns the value that was set.
233
234=item B<shallow_clone>
235
236This method returns a shallow clone of the hash reference. The return value
237is a reference to a new hash with the same keys and values. It is I<shallow>
238because any values that were references in the original will be the I<same>
239references in the clone.
240
241=item B<_array_class>
242
243The name of the class which returned lists are instances of; i.e.
244C<< Data::Perl::Collection::Array >>.
245
246Subclasses of this class can override this method.
247
248=back
249
250Note that C<each> is deliberately omitted, due to its stateful interaction
251with the hash iterator. C<keys> or C<kv> are much safer.
252
253=head1 SEE ALSO
254
255=over 4
256
257=item * L<Data::Perl>
258
259=item * L<MooX::HandlesVia>
260
261=back
262
263=head1 AUTHOR
264
265Matthew Phillips <mattp@cpan.org>
266
267=head1 COPYRIGHT AND LICENSE
268
269This software is copyright (c) 2020 by Matthew Phillips <mattp@cpan.org>.
270
271This is free software; you can redistribute it and/or modify it under
272the same terms as the Perl 5 programming language system itself.
273
274=cut
275
276__END__
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.