Profile of OpenBSD/Getopt.pm

Filename	/usr/libdata/perl5/OpenBSD/Getopt.pm
Statements	Executed 34 statements in 1.79ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	456µs	471µs	OpenBSD::PkgInfo::::BEGIN@22OpenBSD::PkgInfo::BEGIN@22
1	1	1	208µs	241µs	OpenBSD::Getopt::::BEGIN@37 OpenBSD::Getopt::BEGIN@37
1	1	1	110µs	349µs	OpenBSD::Getopt::::getopts OpenBSD::Getopt::getopts
1	1	1	97µs	103µs	OpenBSD::PkgInfo::::BEGIN@21OpenBSD::PkgInfo::BEGIN@21
1	1	1	27µs	27µs	OpenBSD::Getopt::::CORE:regcomp OpenBSD::Getopt::CORE:regcomp (opcode)
1	1	1	22µs	22µs	OpenBSD::Getopt::::handle_option OpenBSD::Getopt::handle_option
3	3	1	14µs	14µs	OpenBSD::Getopt::::CORE:match OpenBSD::Getopt::CORE:match (opcode)
1	1	1	12µs	32µs	OpenBSD::Getopt::::BEGIN@38 OpenBSD::Getopt::BEGIN@38

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					# ex:ts=8 sw=4:
2					# $OpenBSD: Getopt.pm,v 1.12 2012/04/10 16:57:12 espie Exp $
3					#
4					# Copyright (c) 2006 Marc Espie <espie@openbsd.org>
5					#
6					# Permission to use, copy, modify, and distribute this software for any
7					# purpose with or without fee is hereby granted, provided that the above
8					# copyright notice and this permission notice appear in all copies.
9					#
10					# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
11					# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
12					# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
13					# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
14					# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
15					# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
16					# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
17					#
18					# This is inspired by Getopt::Std, except for the ability to invoke subs
19					# on options.
20
21	2	380µs	2	110µs	# spent 103µs (97+6) within OpenBSD::PkgInfo::BEGIN@21 which was called: # once (97µs+6µs) by OpenBSD::PkgInfo::BEGIN@179 at line 21 use strict; # spent 103µs making 1 call to OpenBSD::PkgInfo::BEGIN@21 # spent 6µs making 1 call to strict::import
22	2	467µs	2	486µs	# spent 471µs (456+15) within OpenBSD::PkgInfo::BEGIN@22 which was called: # once (456µs+15µs) by OpenBSD::PkgInfo::BEGIN@179 at line 22 use warnings; # spent 471µs making 1 call to OpenBSD::PkgInfo::BEGIN@22 # spent 15µs making 1 call to warnings::import
23
24					package OpenBSD::Getopt;
25	1	1µs			require Exporter;
26
27	1	10µs			our @ISA = qw(Exporter);
28	1	1µs			our @EXPORT = qw(getopts);
29
30					sub handle_option
31					# spent 22µs within OpenBSD::Getopt::handle_option which was called: # once (22µs+0s) by OpenBSD::Getopt::getopts at line 71 {
32	1	2µs			my ($opt, $hash, $params) = @_;
33
34	1	14µs			if (defined $hash->{$opt} and ref($hash->{$opt}) eq 'CODE') {
35					&{$hash->{$opt}}($params);
36					} else {
37	2	60µs	2	274µs	# spent 241µs (208+33) within OpenBSD::Getopt::BEGIN@37 which was called: # once (208µs+33µs) by OpenBSD::PkgInfo::BEGIN@179 at line 37 no strict "refs"; # spent 241µs making 1 call to OpenBSD::Getopt::BEGIN@37 # spent 33µs making 1 call to strict::unimport
38	2	693µs	2	51µs	# spent 32µs (12+20) within OpenBSD::Getopt::BEGIN@38 which was called: # once (12µs+20µs) by OpenBSD::PkgInfo::BEGIN@179 at line 38 no strict "vars"; # spent 32µs making 1 call to OpenBSD::Getopt::BEGIN@38 # spent 20µs making 1 call to strict::unimport
39
40	1	3µs			if (defined $params) {
41	1	7µs			${"opt_$opt"} = $params;
42	1	2µs			$hash->{$opt} = $params;
43					} else {
44					${"opt_$opt"}++;
45					$hash->{$opt}++;
46					}
47	1	3µs			push(@EXPORT, "\$opt_$opt");
48					}
49					}
50
51					sub getopts($;$)
52					# spent 349µs (110+239) within OpenBSD::Getopt::getopts which was called: # once (110µs+239µs) by OpenBSD::State::__ANON__[/usr/libdata/perl5/OpenBSD/State.pm:287] at line 286 of OpenBSD/State.pm {
53	1	2µs			my ($args, $hash) = @_;
54
55	1	1µs			$hash = {} unless defined $hash;
56	1	15µs			local @EXPORT;
57
58	1	3µs			while ($_ = shift @ARGV) {
59	1	13µs	1	2µs	last if /^--$/o; # spent 2µs making 1 call to OpenBSD::Getopt::CORE:match
60	1	14µs	1	8µs	unless (m/^-(.)(.*)/so) { # spent 8µs making 1 call to OpenBSD::Getopt::CORE:match
61					unshift @ARGV, $_;
62					last;
63					}
64	1	6µs			my ($opt, $other) = ($1, $2);
65	1	50µs	2	31µs	if ($args =~ m/\Q$opt\E(\:?)/) { # spent 27µs making 1 call to OpenBSD::Getopt::CORE:regcomp # spent 4µs making 1 call to OpenBSD::Getopt::CORE:match
66	1	3µs			if ($1 eq ':') {
67	1	3µs			if ($other eq '') {
68	1	1µs			die "no argument for option -$opt" unless @ARGV;
69	1	2µs			$other = shift @ARGV;
70					}
71	1	5µs	1	22µs	handle_option($opt, $hash, $other); # spent 22µs making 1 call to OpenBSD::Getopt::handle_option
72					} else {
73					handle_option($opt, $hash);
74					if ($other ne '') {
75					$_ = "-$other";
76					redo;
77					}
78					}
79					} else {
80					delete $SIG{__DIE__};
81					die "Unknown option -$opt";
82					}
83					}
84	1	12µs			local $Exporter::ExportLevel = 1;
85	1	6µs	1	177µs	import OpenBSD::Getopt; # spent 177µs making 1 call to Exporter::import
86	1	7µs			return $hash;
87					}
88
89	1	7µs			1;

					# spent 14µs within OpenBSD::Getopt::CORE:match which was called 3 times, avg 5µs/call: # once (8µs+0s) by OpenBSD::Getopt::getopts at line 60 # once (4µs+0s) by OpenBSD::Getopt::getopts at line 65 # once (2µs+0s) by OpenBSD::Getopt::getopts at line 59 sub OpenBSD::Getopt::CORE:match; # opcode
					# spent 27µs within OpenBSD::Getopt::CORE:regcomp which was called: # once (27µs+0s) by OpenBSD::Getopt::getopts at line 65 sub OpenBSD::Getopt::CORE:regcomp; # opcode