← Index
NYTProf Performance Profile   « line view »
For /home/ss5/perl5/perlbrew/perls/perl-5.22.0/bin/benchmarkanything-storage
  Run on Mon Jan 29 16:55:34 2018
Reported on Mon Jan 29 16:57:07 2018

Filename/home/ss5/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/x86_64-linux/Class/XSAccessor/Heavy.pm
StatementsExecuted 15 statements in 203µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1118µs8µsClass::XSAccessor::Heavy::::BEGIN@4Class::XSAccessor::Heavy::BEGIN@4
1116µs18µsClass::XSAccessor::Heavy::::BEGIN@30Class::XSAccessor::Heavy::BEGIN@30
1115µs16µsClass::XSAccessor::Heavy::::BEGIN@27Class::XSAccessor::Heavy::BEGIN@27
1114µs24µsClass::XSAccessor::Heavy::::BEGIN@7Class::XSAccessor::Heavy::BEGIN@7
1114µs5µsClass::XSAccessor::Heavy::::BEGIN@5Class::XSAccessor::Heavy::BEGIN@5
1114µs7µsClass::XSAccessor::Heavy::::BEGIN@6Class::XSAccessor::Heavy::BEGIN@6
0000s0sClass::XSAccessor::Heavy::::check_sub_existenceClass::XSAccessor::Heavy::check_sub_existence
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package # hide from PAUSE
2 Class::XSAccessor::Heavy;
3
4222µs18µs
# spent 8µs within Class::XSAccessor::Heavy::BEGIN@4 which was called: # once (8µs+0s) by Class::XSAccessor::BEGIN@6 at line 4
use 5.008;
# spent 8µs making 1 call to Class::XSAccessor::Heavy::BEGIN@4
5210µs26µs
# spent 5µs (4+1) within Class::XSAccessor::Heavy::BEGIN@5 which was called: # once (4µs+1µs) by Class::XSAccessor::BEGIN@6 at line 5
use strict;
# spent 5µs making 1 call to Class::XSAccessor::Heavy::BEGIN@5 # spent 1µs making 1 call to strict::import
6210µs210µs
# spent 7µs (4+3) within Class::XSAccessor::Heavy::BEGIN@6 which was called: # once (4µs+3µs) by Class::XSAccessor::BEGIN@6 at line 6
use warnings;
# spent 7µs making 1 call to Class::XSAccessor::Heavy::BEGIN@6 # spent 3µs making 1 call to warnings::import
7266µs245µs
# spent 24µs (4+20) within Class::XSAccessor::Heavy::BEGIN@7 which was called: # once (4µs+20µs) by Class::XSAccessor::BEGIN@6 at line 7
use Carp;
# spent 24µs making 1 call to Class::XSAccessor::Heavy::BEGIN@7 # spent 20µs making 1 call to Exporter::import
8
91200nsour $VERSION = '1.19';
101600nsour @CARP_NOT = qw(
11 Class::XSAccessor
12 Class::XSAccessor::Array
13);
14
15# TODO Move more duplicated code from XSA and XSA::Array here
16
17
18sub check_sub_existence {
19 my $subname = shift;
20
21 my $sub_package = $subname;
22 $sub_package =~ s/([^:]+)$// or die;
23 my $bare_subname = $1;
24
25 my $sym;
26 {
27226µs227µs
# spent 16µs (5+11) within Class::XSAccessor::Heavy::BEGIN@27 which was called: # once (5µs+11µs) by Class::XSAccessor::BEGIN@6 at line 27
no strict 'refs';
# spent 16µs making 1 call to Class::XSAccessor::Heavy::BEGIN@27 # spent 11µs making 1 call to strict::unimport
28 $sym = \%{"$sub_package"};
29 }
30265µs230µs
# spent 18µs (6+12) within Class::XSAccessor::Heavy::BEGIN@30 which was called: # once (6µs+12µs) by Class::XSAccessor::BEGIN@6 at line 30
no warnings;
# spent 18µs making 1 call to Class::XSAccessor::Heavy::BEGIN@30 # spent 12µs making 1 call to warnings::unimport
31 local *s = $sym->{$bare_subname};
32 my $coderef = *s{CODE};
33 if ($coderef) {
34 $sub_package =~ s/::$//;
35 Carp::croak("Cannot replace existing subroutine '$bare_subname' in package '$sub_package' with an XS implementation. If you wish to force a replacement, add the 'replace => 1' parameter to the arguments of 'use ".(caller())[0]."'.");
36 }
37}
38
3913µs1;
40
41__END__