Profile of vars.pm

Filename	/usr/libdata/perl5/vars.pm
Statements	Executed 28 statements in 576µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
2	2	2	71µs	86µs	vars::::importvars::import
1	1	1	25µs	25µs	vars::::BEGIN@3vars::BEGIN@3
9	3	1	14µs	14µs	vars::::CORE:matchvars::CORE:match (opcode)
1	1	1	14µs	234µs	vars::::BEGIN@7vars::BEGIN@7
1	1	1	8µs	35µs	vars::::BEGIN@8vars::BEGIN@8

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package vars;
2
3	2	76µs	1	25µs	# spent 25µs within vars::BEGIN@3 which was called: # once (25µs+0s) by File::Spec::BEGIN@4 at line 3 use 5.006; # spent 25µs making 1 call to vars::BEGIN@3
4
5	1	900ns			our $VERSION = '1.03';
6
7	2	36µs	2	455µs	# spent 234µs (14+221) within vars::BEGIN@7 which was called: # once (14µs+221µs) by File::Spec::BEGIN@4 at line 7 use warnings::register; # spent 234µs making 1 call to vars::BEGIN@7 # spent 221µs making 1 call to warnings::register::import
8	2	370µs	2	62µs	# spent 35µs (8+27) within vars::BEGIN@8 which was called: # once (8µs+27µs) by File::Spec::BEGIN@4 at line 8 use strict qw(vars subs); # spent 35µs making 1 call to vars::BEGIN@8 # spent 27µs making 1 call to strict::import
9
10					# spent 86µs (71+14) within vars::import which was called 2 times, avg 43µs/call: # once (39µs+10µs) by File::Spec::BEGIN@4 at line 4 of File/Spec.pm # once (32µs+5µs) by File::Spec::Unix::BEGIN@4 at line 4 of File/Spec/Unix.pm sub import {
11	2	2µs			my $callpack = caller;
12	2	14µs			my (undef, @imports) = @_;
13	2	1µs			my ($sym, $ch);
14	2	10µs			foreach (@imports) {
15	3	28µs	3	9µs	if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { # spent 9µs making 3 calls to vars::CORE:match, avg 3µs/call
16	3	10µs	3	3µs	if ($sym =~ /\W/) { # spent 3µs making 3 calls to vars::CORE:match, avg 900ns/call
17					# time for a more-detailed check-up
18					if ($sym =~ /^\w+[[{].*[]}]$/) {
19					require Carp;
20					Carp::croak("Can't declare individual elements of hash or array");
21					} elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) {
22					warnings::warn("No need to declare built-in vars");
23					} elsif (($^H &= strict::bits('vars'))) {
24					require Carp;
25					Carp::croak("'$_' is not a valid variable name under strict vars");
26					}
27					}
28	3	12µs	3	2µs	$sym = "${callpack}::$sym" unless $sym =~ /::/; # spent 2µs making 3 calls to vars::CORE:match, avg 800ns/call
29					*$sym =
30					( $ch eq "\$" ? \$$sym
31					: $ch eq "\@" ? \@$sym
32					: $ch eq "\%" ? \%$sym
33					: $ch eq "\" ? \$sym
34					: $ch eq "\&" ? \&$sym
35	3	11µs			: do {
36					require Carp;
37					Carp::croak("'$_' is not a valid variable name");
38					});
39					} else {
40					require Carp;
41					Carp::croak("'$_' is not a valid variable name");
42					}
43					}
44					};
45
46	1	4µs			1;
47					__END__

					# spent 14µs within vars::CORE:match which was called 9 times, avg 2µs/call: # 3 times (9µs+0s) by vars::import at line 15, avg 3µs/call # 3 times (3µs+0s) by vars::import at line 16, avg 900ns/call # 3 times (2µs+0s) by vars::import at line 28, avg 800ns/call sub vars::CORE:match; # opcode