Profile of Class/XSAccessor/Heavy.pm

Filename	/usr/local/lib/perl/5.18.2/Class/XSAccessor/Heavy.pm
Statements	Executed 15 statements in 439µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	18µs	35µs	Class::XSAccessor::Heavy::::BEGIN@5Class::XSAccessor::Heavy::BEGIN@5
1	1	1	18µs	18µs	Class::XSAccessor::Heavy::::BEGIN@4Class::XSAccessor::Heavy::BEGIN@4
1	1	1	14µs	29µs	Class::XSAccessor::Heavy::::BEGIN@27Class::XSAccessor::Heavy::BEGIN@27
1	1	1	11µs	25µs	Class::XSAccessor::Heavy::::BEGIN@30Class::XSAccessor::Heavy::BEGIN@30
1	1	1	10µs	58µs	Class::XSAccessor::Heavy::::BEGIN@7Class::XSAccessor::Heavy::BEGIN@7
1	1	1	9µs	15µs	Class::XSAccessor::Heavy::::BEGIN@6Class::XSAccessor::Heavy::BEGIN@6
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	50µs	1	18µs	# spent 18µs within Class::XSAccessor::Heavy::BEGIN@4 which was called: # once (18µs+0s) by Class::XSAccessor::BEGIN@6 at line 4 use 5.008; # spent 18µs making 1 call to Class::XSAccessor::Heavy::BEGIN@4
5	2	29µs	2	52µs	# spent 35µs (18+17) within Class::XSAccessor::Heavy::BEGIN@5 which was called: # once (18µs+17µs) by Class::XSAccessor::BEGIN@6 at line 5 use strict; # spent 35µs making 1 call to Class::XSAccessor::Heavy::BEGIN@5 # spent 17µs making 1 call to strict::import
6	2	25µs	2	21µs	# spent 15µs (9+6) within Class::XSAccessor::Heavy::BEGIN@6 which was called: # once (9µs+6µs) by Class::XSAccessor::BEGIN@6 at line 6 use warnings; # spent 15µs making 1 call to Class::XSAccessor::Heavy::BEGIN@6 # spent 6µs making 1 call to warnings::import
7	2	148µs	2	108µs	# spent 58µs (10+49) within Class::XSAccessor::Heavy::BEGIN@7 which was called: # once (10µs+49µs) by Class::XSAccessor::BEGIN@6 at line 7 use Carp; # spent 58µs making 1 call to Class::XSAccessor::Heavy::BEGIN@7 # spent 49µ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	48µs	2	44µs	# spent 29µs (14+15) within Class::XSAccessor::Heavy::BEGIN@27 which was called: # once (14µs+15µs) by Class::XSAccessor::BEGIN@6 at line 27 no strict 'refs'; # spent 29µs making 1 call to Class::XSAccessor::Heavy::BEGIN@27 # spent 15µs making 1 call to strict::unimport
28					$sym = \%{"$sub_package"};
29					}
30	2	133µs	2	39µs	# spent 25µs (11+14) within Class::XSAccessor::Heavy::BEGIN@30 which was called: # once (11µs+14µs) by Class::XSAccessor::BEGIN@6 at line 30 no warnings; # spent 25µs making 1 call to Class::XSAccessor::Heavy::BEGIN@30 # spent 14µ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__