Profile of Class/XSAccessor/Heavy.pm

Filename	/usr/lib/perl5/Class/XSAccessor/Heavy.pm
Statements	Executed 15 statements in 400µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	17µs	17µs	Class::XSAccessor::Heavy::::BEGIN@4Class::XSAccessor::Heavy::BEGIN@4
1	1	1	12µs	33µs	Class::XSAccessor::Heavy::::BEGIN@30Class::XSAccessor::Heavy::BEGIN@30
1	1	1	12µs	26µs	Class::XSAccessor::Heavy::::BEGIN@27Class::XSAccessor::Heavy::BEGIN@27
1	1	1	9µs	14µs	Class::XSAccessor::Heavy::::BEGIN@6Class::XSAccessor::Heavy::BEGIN@6
1	1	1	8µs	49µs	Class::XSAccessor::Heavy::::BEGIN@7Class::XSAccessor::Heavy::BEGIN@7
1	1	1	8µs	22µs	Class::XSAccessor::Heavy::::BEGIN@5Class::XSAccessor::Heavy::BEGIN@5
0	0	0	0s	0s	Class::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
1					package # hide from PAUSE
2					Class::XSAccessor::Heavy;
3
4	2	54µs	1	17µs	# spent 17µs within Class::XSAccessor::Heavy::BEGIN@4 which was called: # once (17µs+0s) by Class::XSAccessor::BEGIN@6 at line 4 use 5.008; # spent 17µs making 1 call to Class::XSAccessor::Heavy::BEGIN@4
5	2	29µs	2	36µs	# spent 22µs (8+14) within Class::XSAccessor::Heavy::BEGIN@5 which was called: # once (8µs+14µs) by Class::XSAccessor::BEGIN@6 at line 5 use strict; # spent 22µs making 1 call to Class::XSAccessor::Heavy::BEGIN@5 # spent 14µs making 1 call to strict::import
6	2	26µs	2	19µs	# spent 14µs (9+5) within Class::XSAccessor::Heavy::BEGIN@6 which was called: # once (9µs+5µs) by Class::XSAccessor::BEGIN@6 at line 6 use warnings; # spent 14µs making 1 call to Class::XSAccessor::Heavy::BEGIN@6 # spent 5µs making 1 call to warnings::import
7	2	121µs	2	90µs	# spent 49µs (8+41) within Class::XSAccessor::Heavy::BEGIN@7 which was called: # once (8µs+41µs) by Class::XSAccessor::BEGIN@6 at line 7 use Carp; # spent 49µs making 1 call to Class::XSAccessor::Heavy::BEGIN@7 # spent 41µs making 1 call to Exporter::import
8
9	1	700ns			our $VERSION = '1.19';
10	1	1µs			our @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
18					sub 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					{
27	2	46µs	2	39µs	# spent 26µs (12+14) within Class::XSAccessor::Heavy::BEGIN@27 which was called: # once (12µs+14µs) by Class::XSAccessor::BEGIN@6 at line 27 no strict 'refs'; # spent 26µs making 1 call to Class::XSAccessor::Heavy::BEGIN@27 # spent 14µs making 1 call to strict::unimport
28					$sym = \%{"$sub_package"};
29					}
30	2	119µs	2	53µs	# spent 33µs (12+21) within Class::XSAccessor::Heavy::BEGIN@30 which was called: # once (12µs+21µs) by Class::XSAccessor::BEGIN@6 at line 30 no warnings; # spent 33µs making 1 call to Class::XSAccessor::Heavy::BEGIN@30 # spent 20µ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
39	1	4µs			1;
40
41					__END__