Filename | /home/ss5/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/x86_64-linux/Class/XSAccessor.pm |
Statements | Executed 4245 statements in 3.09ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
63 | 1 | 1 | 1.53ms | 2.31ms | import | Class::XSAccessor::
63 | 1 | 1 | 290µs | 552µs | _generate_method | Class::XSAccessor::
504 | 8 | 1 | 235µs | 235µs | _make_hash | Class::XSAccessor::
1 | 1 | 1 | 225µs | 303µs | BEGIN@6 | Class::XSAccessor::
52 | 1 | 1 | 216µs | 216µs | newxs_getter (xsub) | Class::XSAccessor::
63 | 1 | 1 | 19µs | 19µs | CORE:match (opcode) | Class::XSAccessor::
7 | 1 | 1 | 18µs | 18µs | newxs_accessor (xsub) | Class::XSAccessor::
1 | 1 | 1 | 16µs | 16µs | BEGIN@2 | Class::XSAccessor::
3 | 1 | 1 | 7µs | 7µs | newxs_setter (xsub) | Class::XSAccessor::
1 | 1 | 1 | 6µs | 14µs | BEGIN@84 | Class::XSAccessor::
1 | 1 | 1 | 6µs | 17µs | BEGIN@3 | Class::XSAccessor::
1 | 1 | 1 | 5µs | 22µs | BEGIN@5 | Class::XSAccessor::
1 | 1 | 1 | 5µs | 8µs | BEGIN@4 | Class::XSAccessor::
1 | 1 | 1 | 4µs | 4µs | BEGIN@7 | Class::XSAccessor::
1 | 1 | 1 | 3µs | 3µs | END (xsub) | Class::XSAccessor::
1 | 1 | 1 | 2µs | 2µs | newxs_exists_predicate (xsub) | Class::XSAccessor::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Class::XSAccessor; | ||||
2 | 2 | 60µs | 1 | 16µs | # spent 16µs within Class::XSAccessor::BEGIN@2 which was called:
# once (16µs+0s) by Module::Runtime::require_module at line 2 # spent 16µs making 1 call to Class::XSAccessor::BEGIN@2 |
3 | 2 | 13µs | 2 | 28µs | # spent 17µs (6+11) within Class::XSAccessor::BEGIN@3 which was called:
# once (6µs+11µs) by Module::Runtime::require_module at line 3 # spent 17µs making 1 call to Class::XSAccessor::BEGIN@3
# spent 11µs making 1 call to strict::import |
4 | 2 | 16µs | 2 | 11µs | # spent 8µs (5+3) within Class::XSAccessor::BEGIN@4 which was called:
# once (5µs+3µs) by Module::Runtime::require_module at line 4 # spent 8µs making 1 call to Class::XSAccessor::BEGIN@4
# spent 3µs making 1 call to warnings::import |
5 | 2 | 15µs | 2 | 38µs | # spent 22µs (5+17) within Class::XSAccessor::BEGIN@5 which was called:
# once (5µs+17µs) by Module::Runtime::require_module at line 5 # spent 22µs making 1 call to Class::XSAccessor::BEGIN@5
# spent 17µs making 1 call to Exporter::import |
6 | 2 | 58µs | 1 | 303µs | # spent 303µs (225+78) within Class::XSAccessor::BEGIN@6 which was called:
# once (225µs+78µs) by Module::Runtime::require_module at line 6 # spent 303µs making 1 call to Class::XSAccessor::BEGIN@6 |
7 | 2 | 274µs | 1 | 4µs | # spent 4µs within Class::XSAccessor::BEGIN@7 which was called:
# once (4µs+0s) by Module::Runtime::require_module at line 7 # spent 4µs making 1 call to Class::XSAccessor::BEGIN@7 |
8 | |||||
9 | 1 | 300ns | our $VERSION = '1.19'; | ||
10 | |||||
11 | 1 | 208µs | 1 | 204µs | XSLoader::load('Class::XSAccessor', $VERSION); # spent 204µs making 1 call to XSLoader::load |
12 | |||||
13 | # spent 235µs within Class::XSAccessor::_make_hash which was called 504 times, avg 466ns/call:
# 63 times (63µs+0s) by Class::XSAccessor::import at line 37, avg 995ns/call
# 63 times (27µs+0s) by Class::XSAccessor::import at line 38, avg 427ns/call
# 63 times (26µs+0s) by Class::XSAccessor::import at line 40, avg 405ns/call
# 63 times (25µs+0s) by Class::XSAccessor::import at line 39, avg 390ns/call
# 63 times (24µs+0s) by Class::XSAccessor::import at line 43, avg 386ns/call
# 63 times (24µs+0s) by Class::XSAccessor::import at line 41, avg 378ns/call
# 63 times (24µs+0s) by Class::XSAccessor::import at line 44, avg 373ns/call
# 63 times (23µs+0s) by Class::XSAccessor::import at line 42, avg 371ns/call | ||||
14 | 504 | 41µs | my $ref = shift; | ||
15 | |||||
16 | 504 | 76µs | if (ref ($ref)) { | ||
17 | if (ref($ref) eq 'ARRAY') { | ||||
18 | $ref = { map { $_ => $_ } @$ref } | ||||
19 | } | ||||
20 | } else { | ||||
21 | $ref = { $ref, $ref }; | ||||
22 | } | ||||
23 | |||||
24 | 504 | 407µs | return $ref; | ||
25 | } | ||||
26 | |||||
27 | # spent 2.31ms (1.53+787µs) within Class::XSAccessor::import which was called 63 times, avg 37µs/call:
# 63 times (1.53ms+787µs) by Method::Generate::Accessor::_generate_xs at line 646 of Method/Generate/Accessor.pm, avg 37µs/call | ||||
28 | 63 | 11µs | my $own_class = shift; | ||
29 | 63 | 37µs | my ($caller_pkg) = caller(); | ||
30 | |||||
31 | # Support both { getters => ... } and plain getters => ... | ||||
32 | 63 | 62µs | my %opts = ref($_[0]) eq 'HASH' ? %{$_[0]} : @_; | ||
33 | |||||
34 | 63 | 28µs | $caller_pkg = $opts{class} if defined $opts{class}; | ||
35 | |||||
36 | # TODO: Refactor. Move more duplicated code to ::Heavy | ||||
37 | 63 | 50µs | 63 | 63µs | my $read_subs = _make_hash($opts{getters} || {}); # spent 63µs making 63 calls to Class::XSAccessor::_make_hash, avg 995ns/call |
38 | 63 | 39µs | 63 | 27µs | my $set_subs = _make_hash($opts{setters} || {}); # spent 27µs making 63 calls to Class::XSAccessor::_make_hash, avg 427ns/call |
39 | 63 | 33µs | 63 | 25µs | my $acc_subs = _make_hash($opts{accessors} || {}); # spent 25µs making 63 calls to Class::XSAccessor::_make_hash, avg 390ns/call |
40 | 63 | 31µs | 63 | 26µs | my $lvacc_subs = _make_hash($opts{lvalue_accessors} || {}); # spent 26µs making 63 calls to Class::XSAccessor::_make_hash, avg 405ns/call |
41 | 63 | 31µs | 63 | 24µs | my $pred_subs = _make_hash($opts{predicates} || {}); # spent 24µs making 63 calls to Class::XSAccessor::_make_hash, avg 378ns/call |
42 | 63 | 30µs | 63 | 23µs | my $ex_pred_subs = _make_hash($opts{exists_predicates} || {}); # spent 23µs making 63 calls to Class::XSAccessor::_make_hash, avg 371ns/call |
43 | 63 | 31µs | 63 | 24µs | my $def_pred_subs = _make_hash($opts{defined_predicates} || {}); # spent 24µs making 63 calls to Class::XSAccessor::_make_hash, avg 386ns/call |
44 | 63 | 29µs | 63 | 24µs | my $test_subs = _make_hash($opts{__tests__} || {}); # spent 24µs making 63 calls to Class::XSAccessor::_make_hash, avg 373ns/call |
45 | 63 | 25µs | my $construct_subs = $opts{constructors} || [defined($opts{constructor}) ? $opts{constructor} : ()]; | ||
46 | 63 | 13µs | my $true_subs = $opts{true} || []; | ||
47 | 63 | 12µs | my $false_subs = $opts{false} || []; | ||
48 | |||||
49 | 63 | 160µs | foreach my $subtype ( ["getter", $read_subs], | ||
50 | ["setter", $set_subs], | ||||
51 | ["accessor", $acc_subs], | ||||
52 | ["lvalue_accessor", $lvacc_subs], | ||||
53 | ["test", $test_subs], | ||||
54 | ["ex_predicate", $ex_pred_subs], | ||||
55 | ["def_predicate", $def_pred_subs], | ||||
56 | ["def_predicate", $pred_subs] ) | ||||
57 | { | ||||
58 | 504 | 50µs | my $subs = $subtype->[1]; | ||
59 | 504 | 262µs | foreach my $subname (keys %$subs) { | ||
60 | 63 | 12µs | my $hashkey = $subs->{$subname}; | ||
61 | 63 | 64µs | 63 | 552µs | _generate_method($caller_pkg, $subname, $hashkey, \%opts, $subtype->[0]); # spent 552µs making 63 calls to Class::XSAccessor::_generate_method, avg 9µs/call |
62 | } | ||||
63 | } | ||||
64 | |||||
65 | 63 | 171µs | foreach my $subtype ( ["constructor", $construct_subs], | ||
66 | ["true", $true_subs], | ||||
67 | ["false", $false_subs] ) | ||||
68 | { | ||||
69 | 189 | 65µs | foreach my $subname (@{$subtype->[1]}) { | ||
70 | _generate_method($caller_pkg, $subname, "", \%opts, $subtype->[0]); | ||||
71 | } | ||||
72 | } | ||||
73 | } | ||||
74 | |||||
75 | # spent 552µs (290+262) within Class::XSAccessor::_generate_method which was called 63 times, avg 9µs/call:
# 63 times (290µs+262µs) by Class::XSAccessor::import at line 61, avg 9µs/call | ||||
76 | 63 | 22µs | my ($caller_pkg, $subname, $hashkey, $opts, $type) = @_; | ||
77 | |||||
78 | 63 | 11µs | croak("Cannot use undef as a hash key for generating an XS $type accessor. (Sub: $subname)") | ||
79 | if not defined $hashkey; | ||||
80 | |||||
81 | 63 | 112µs | 63 | 19µs | $subname = "${caller_pkg}::$subname" if $subname !~ /::/; # spent 19µs making 63 calls to Class::XSAccessor::CORE:match, avg 297ns/call |
82 | |||||
83 | 63 | 24µs | Class::XSAccessor::Heavy::check_sub_existence($subname) if not $opts->{replace}; | ||
84 | 2 | 97µs | 2 | 22µs | # spent 14µs (6+8) within Class::XSAccessor::BEGIN@84 which was called:
# once (6µs+8µs) by Module::Runtime::require_module at line 84 # spent 14µs making 1 call to Class::XSAccessor::BEGIN@84
# spent 8µs making 1 call to warnings::unimport |
85 | |||||
86 | 63 | 378µs | 56 | 225µs | if ($type eq 'getter') { # spent 216µs making 52 calls to Class::XSAccessor::newxs_getter, avg 4µs/call
# spent 7µs making 3 calls to Class::XSAccessor::newxs_setter, avg 2µs/call
# spent 2µs making 1 call to Class::XSAccessor::newxs_exists_predicate |
87 | newxs_getter($subname, $hashkey); | ||||
88 | } | ||||
89 | elsif ($type eq 'lvalue_accessor') { | ||||
90 | newxs_lvalue_accessor($subname, $hashkey); | ||||
91 | } | ||||
92 | elsif ($type eq 'setter') { | ||||
93 | newxs_setter($subname, $hashkey, $opts->{chained}||0); | ||||
94 | } | ||||
95 | elsif ($type eq 'def_predicate') { | ||||
96 | newxs_defined_predicate($subname, $hashkey); | ||||
97 | } | ||||
98 | elsif ($type eq 'ex_predicate') { | ||||
99 | newxs_exists_predicate($subname, $hashkey); | ||||
100 | } | ||||
101 | elsif ($type eq 'constructor') { | ||||
102 | newxs_constructor($subname); | ||||
103 | } | ||||
104 | elsif ($type eq 'true') { | ||||
105 | newxs_boolean($subname, 1); | ||||
106 | } | ||||
107 | elsif ($type eq 'false') { | ||||
108 | newxs_boolean($subname, 0); | ||||
109 | } | ||||
110 | elsif ($type eq 'test') { | ||||
111 | newxs_test($subname, $hashkey); | ||||
112 | } | ||||
113 | else { | ||||
114 | 7 | 33µs | 7 | 18µs | newxs_accessor($subname, $hashkey, $opts->{chained}||0); # spent 18µs making 7 calls to Class::XSAccessor::newxs_accessor, avg 3µs/call |
115 | } | ||||
116 | } | ||||
117 | |||||
118 | 1 | 3µs | 1; | ||
119 | |||||
120 | __END__ | ||||
# spent 19µs within Class::XSAccessor::CORE:match which was called 63 times, avg 297ns/call:
# 63 times (19µs+0s) by Class::XSAccessor::_generate_method at line 81, avg 297ns/call | |||||
# spent 3µs within Class::XSAccessor::END which was called:
# once (3µs+0s) by main::RUNTIME at line 0 of /home/ss5/perl5/perlbrew/perls/perl-5.22.0/bin/benchmarkanything-storage | |||||
# spent 18µs within Class::XSAccessor::newxs_accessor which was called 7 times, avg 3µs/call:
# 7 times (18µs+0s) by Class::XSAccessor::_generate_method at line 114, avg 3µs/call | |||||
# spent 2µs within Class::XSAccessor::newxs_exists_predicate which was called:
# once (2µs+0s) by Class::XSAccessor::_generate_method at line 86 | |||||
# spent 216µs within Class::XSAccessor::newxs_getter which was called 52 times, avg 4µs/call:
# 52 times (216µs+0s) by Class::XSAccessor::_generate_method at line 86, avg 4µs/call | |||||
# spent 7µs within Class::XSAccessor::newxs_setter which was called 3 times, avg 2µs/call:
# 3 times (7µs+0s) by Class::XSAccessor::_generate_method at line 86, avg 2µs/call |