← Index
NYTProf Performance Profile   « line view »
For /usr/sbin/pkg_info
  Run on Fri Aug 4 10:12:01 2017
Reported on Fri Aug 4 10:12:17 2017

Filename/usr/libdata/perl5/OpenBSD/State.pm
StatementsExecuted 205 statements in 6.76ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
11121.4ms22.3msOpenBSD::State::::BEGIN@86 OpenBSD::State::BEGIN@86
1114.33ms5.04msOpenBSD::State::::BEGIN@88 OpenBSD::State::BEGIN@88
1111.95ms2.03msOpenBSD::State::::BEGIN@87 OpenBSD::State::BEGIN@87
311741µs13.0msOpenBSD::State::::locator OpenBSD::State::locator
258292µs92µsOpenBSD::State::::opt OpenBSD::State::opt
31171µs108µsOpenBSD::State::::f OpenBSD::State::f
11167µs323µsOpenBSD::State::::handle_options OpenBSD::State::handle_options
11165µs110µsOpenBSD::State::::__ANON__[:137] OpenBSD::State::__ANON__[:137]
31157µs279µsOpenBSD::State::::fhsay OpenBSD::State::fhsay
31154µs54µsOpenBSD::State::::CORE:print OpenBSD::State::CORE:print (opcode)
31151µs114µsOpenBSD::State::::_fhprint OpenBSD::State::_fhprint
21142µs465msOpenBSD::PackageRepositoryFactory::::findOpenBSD::PackageRepositoryFactory::find
32141µs13.0msOpenBSD::PackageRepositoryFactory::::locatorOpenBSD::PackageRepositoryFactory::locator
31141µs79µsOpenBSD::PackageRepositoryFactory::::installedOpenBSD::PackageRepositoryFactory::installed
11137µs45µsOpenBSD::State::::init OpenBSD::State::init
63134µs34µsOpenBSD::State::::repo OpenBSD::State::repo
32233µs57µsOpenBSD::State::::defines OpenBSD::State::defines
31132µs310µsOpenBSD::State::::say OpenBSD::State::say
11131µs38µsmain::::BEGIN@19.3 main::BEGIN@19.3
31124µs24µsOpenBSD::State::::CORE:subst OpenBSD::State::CORE:subst (opcode)
11123µs1.29sOpenBSD::PackageRepositoryFactory::::match_locationsOpenBSD::PackageRepositoryFactory::match_locations
11123µs23µsOpenBSD::State::::CORE:open OpenBSD::State::CORE:open (opcode)
11119µs62µsOpenBSD::State::::BEGIN@300 OpenBSD::State::BEGIN@300
11118µs18µsOpenBSD::State::::CORE:readline OpenBSD::State::CORE:readline (opcode)
11118µs31µsmain::::BEGIN@20.4 main::BEGIN@20.4
11115µs60µsOpenBSD::State::::new OpenBSD::State::new
11114µs224µsOpenBSD::State::::do_options OpenBSD::State::do_options
61113µs13µsOpenBSD::State::::CORE:substcont OpenBSD::State::CORE:substcont (opcode)
11112µs31µsOpenBSD::State::::BEGIN@301 OpenBSD::State::BEGIN@301
3118µs8µsOpenBSD::State::::sync_display OpenBSD::State::sync_display
5517µs7µsOpenBSD::State::::CORE:match OpenBSD::State::CORE:match (opcode)
1117µs184µsOpenBSD::State::::__ANON__[:287] OpenBSD::State::__ANON__[:287]
1116µs190µsOpenBSD::State::::__ANON__[:269] OpenBSD::State::__ANON__[:269]
1115µs5µsOpenBSD::PackageRepositoryFactory::::newOpenBSD::PackageRepositoryFactory::new
1115µs5µsOpenBSD::State::::verbose OpenBSD::State::verbose
1114µs4µsOpenBSD::State::::usage_is OpenBSD::State::usage_is
0000s0sOpenBSD::PackageRepositoryFactory::::grabPlistOpenBSD::PackageRepositoryFactory::grabPlist
0000s0sOpenBSD::PackageRepositoryFactory::::pathOpenBSD::PackageRepositoryFactory::path
0000s0sOpenBSD::PackageRepositoryFactory::::path_parseOpenBSD::PackageRepositoryFactory::path_parse
0000s0sOpenBSD::PackageRepositoryFactory::::reinitializeOpenBSD::PackageRepositoryFactory::reinitialize
0000s0sOpenBSD::State::::__ANON__[:271] OpenBSD::State::__ANON__[:271]
0000s0sOpenBSD::State::::__ANON__[:280] OpenBSD::State::__ANON__[:280]
0000s0sOpenBSD::State::::__ANON__[:283] OpenBSD::State::__ANON__[:283]
0000s0sOpenBSD::State::::__ANON__[:347] OpenBSD::State::__ANON__[:347]
0000s0sOpenBSD::State::::__ANON__[:351] OpenBSD::State::__ANON__[:351]
0000s0sOpenBSD::State::::__ANON__[:366] OpenBSD::State::__ANON__[:366]
0000s0sOpenBSD::State::::__ANON__[:436] OpenBSD::State::__ANON__[:436]
0000s0sOpenBSD::State::::__ANON__[:441] OpenBSD::State::__ANON__[:441]
0000s0sOpenBSD::State::::_errprint OpenBSD::State::_errprint
0000s0sOpenBSD::State::::_fatal OpenBSD::State::_fatal
0000s0sOpenBSD::State::::_print OpenBSD::State::_print
0000s0sOpenBSD::State::::_system OpenBSD::State::_system
0000s0sOpenBSD::State::::child_error OpenBSD::State::child_error
0000s0sOpenBSD::State::::copy OpenBSD::State::copy
0000s0sOpenBSD::State::::copy_file OpenBSD::State::copy_file
0000s0sOpenBSD::State::::errprint OpenBSD::State::errprint
0000s0sOpenBSD::State::::errsay OpenBSD::State::errsay
0000s0sOpenBSD::State::::fatal OpenBSD::State::fatal
0000s0sOpenBSD::State::::fhprint OpenBSD::State::fhprint
0000s0sOpenBSD::State::::fillup_names OpenBSD::State::fillup_names
0000s0sOpenBSD::State::::find_signal OpenBSD::State::find_signal
0000s0sOpenBSD::State::::find_window_size OpenBSD::State::find_window_size
0000s0sOpenBSD::State::::height OpenBSD::State::height
0000s0sOpenBSD::State::::print OpenBSD::State::print
0000s0sOpenBSD::State::::system OpenBSD::State::system
0000s0sOpenBSD::State::::unlink OpenBSD::State::unlink
0000s0sOpenBSD::State::::usage OpenBSD::State::usage
0000s0sOpenBSD::State::::verbose_system OpenBSD::State::verbose_system
0000s0sOpenBSD::State::::width OpenBSD::State::width
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: State.pm,v 1.46 2017/05/29 12:28:54 espie Exp $
3#
4# Copyright (c) 2007-2014 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
19250µs244µs
# spent 38µs (31+7) within main::BEGIN@19.3 which was called: # once (31µs+7µs) by main::BEGIN@22 at line 19
use strict;
# spent 38µs making 1 call to main::BEGIN@19.3 # spent 7µs making 1 call to strict::import
202687µs245µs
# spent 31µs (18+13) within main::BEGIN@20.4 which was called: # once (18µs+13µs) by main::BEGIN@22 at line 20
use warnings;
# spent 31µs making 1 call to main::BEGIN@20.4 # spent 13µs making 1 call to warnings::import
21
22package OpenBSD::PackageRepositoryFactory;
23sub new
24
# spent 5µs within OpenBSD::PackageRepositoryFactory::new which was called: # once (5µs+0s) by OpenBSD::State::init at line 112
{
2511µs my ($class, $state) = @_;
2619µs bless {state => $state}, $class;
27}
28
29sub locator
30
# spent 13.0ms (41µs+13.0) within OpenBSD::PackageRepositoryFactory::locator which was called 3 times, avg 4.33ms/call: # 2 times (24µs+7µs) by OpenBSD::PackageRepositoryFactory::find at line 54, avg 16µs/call # once (17µs+13.0ms) by OpenBSD::PackageRepositoryFactory::match_locations at line 65
{
3133µs my $self = shift;
32330µs313.0ms return $self->{state}->locator;
# spent 13.0ms making 3 calls to OpenBSD::State::locator, avg 4.32ms/call
33}
34
35sub installed
36
# spent 79µs (41+38) within OpenBSD::PackageRepositoryFactory::installed which was called 3 times, avg 26µs/call: # 3 times (41µs+38µs) by OpenBSD::PkgInfo::find_pkg at line 237 of OpenBSD/PkgInfo.pm, avg 26µs/call
{
3734µs my ($self, $all) = @_;
3835µs require OpenBSD::PackageRepository::Installed;
39
40350µs338µs return OpenBSD::PackageRepository::Installed->new($all, $self->{state});
# spent 38µs making 3 calls to OpenBSD::PackageRepository::Installed::new, avg 13µs/call
41}
42
43sub path_parse
44{
45 my ($self, $pkgname) = @_;
46
47 return $self->locator->path_parse($pkgname, $self->{state});
48}
49
50sub find
51
# spent 465ms (42µs+465) within OpenBSD::PackageRepositoryFactory::find which was called 2 times, avg 233ms/call: # 2 times (42µs+465ms) by OpenBSD::PkgInfo::find_pkg_in at line 222 of OpenBSD/PkgInfo.pm, avg 233ms/call
{
5222µs my ($self, $pkg) = @_;
53
54247µs4465ms return $self->locator->find($pkg, $self->{state});
# spent 465ms making 2 calls to OpenBSD::PackageLocator::find, avg 232ms/call # spent 32µs making 2 calls to OpenBSD::PackageRepositoryFactory::locator, avg 16µs/call
55}
56
57sub reinitialize
58{
59}
60
61sub match_locations
62
# spent 1.29s (23µs+1.29) within OpenBSD::PackageRepositoryFactory::match_locations which was called: # once (23µs+1.29s) by OpenBSD::PkgInfo::parse_and_run at line 606 of OpenBSD/PkgInfo.pm
{
631900ns my $self = shift;
64
65123µs21.29s return $self->locator->match_locations(@_, $self->{state});
# spent 1.27s making 1 call to OpenBSD::PackageLocator::match_locations # spent 13.0ms making 1 call to OpenBSD::PackageRepositoryFactory::locator
66}
67
68sub grabPlist
69{
70 my ($self, $url, $code) = @_;
71
72 return $self->locator->grabPlist($url, $code, $self->{state});
73}
74
75sub path
76{
77 my $self = shift;
78 require OpenBSD::PackageRepositoryList;
79
80 return OpenBSD::PackageRepositoryList->new($self->{state});
81}
82
83# common routines to everything state.
84# in particular, provides "singleton-like" access to UI.
85package OpenBSD::State;
862339µs222.4ms
# spent 22.3ms (21.4+841µs) within OpenBSD::State::BEGIN@86 which was called: # once (21.4ms+841µs) by main::BEGIN@22 at line 86
use Carp;
# spent 22.3ms making 1 call to OpenBSD::State::BEGIN@86 # spent 167µs making 1 call to Exporter::import
872269µs12.03ms
# spent 2.03ms (1.95+78µs) within OpenBSD::State::BEGIN@87 which was called: # once (1.95ms+78µs) by main::BEGIN@22 at line 87
use OpenBSD::Subst;
# spent 2.03ms making 1 call to OpenBSD::State::BEGIN@87
8822.95ms25.16ms
# spent 5.04ms (4.33+703µs) within OpenBSD::State::BEGIN@88 which was called: # once (4.33ms+703µs) by main::BEGIN@22 at line 88
use OpenBSD::Error;
# spent 5.04ms making 1 call to OpenBSD::State::BEGIN@88 # spent 125µs making 1 call to Exporter::import
8911µsrequire Exporter;
9017µsour @ISA = qw(Exporter);
911800nsour @EXPORT = ();
92
93sub locator
94
# spent 13.0ms (741µs+12.2) within OpenBSD::State::locator which was called 3 times, avg 4.32ms/call: # 3 times (741µs+12.2ms) by OpenBSD::PackageRepositoryFactory::locator at line 32, avg 4.32ms/call
{
953130µs require OpenBSD::PackageLocator;
96322µs return "OpenBSD::PackageLocator";
97}
98
99sub new
100
# spent 60µs (15+45) within OpenBSD::State::new which was called: # once (15µs+45µs) by OpenBSD::PkgInfo::parse_and_run at line 529 of OpenBSD/PkgInfo.pm
{
10111µs my $class = shift;
1021800ns my $cmd = shift;
10312µs my $o = bless {cmd => $cmd}, $class;
10416µs145µs $o->init(@_);
# spent 45µs making 1 call to OpenBSD::State::init
10515µs return $o;
106}
107
108sub init
109
# spent 45µs (37+8) within OpenBSD::State::init which was called: # once (37µs+8µs) by OpenBSD::State::new at line 104
{
1101900ns my $self = shift;
111119µs13µs $self->{subst} = OpenBSD::Subst->new;
# spent 3µs making 1 call to OpenBSD::Subst::new
11214µs15µs $self->{repo} = OpenBSD::PackageRepositoryFactory->new($self);
# spent 5µs making 1 call to OpenBSD::PackageRepositoryFactory::new
11315µs $self->{export_level} = 1;
114}
115
116sub repo
117
# spent 34µs within OpenBSD::State::repo which was called 6 times, avg 6µs/call: # 3 times (23µs+0s) by OpenBSD::PkgInfo::find_pkg at line 237 of OpenBSD/PkgInfo.pm, avg 8µs/call # 2 times (7µs+0s) by OpenBSD::PkgInfo::find_pkg at line 246 of OpenBSD/PkgInfo.pm, avg 3µs/call # once (4µs+0s) by OpenBSD::PkgInfo::parse_and_run at line 606 of OpenBSD/PkgInfo.pm
{
11865µs my $self = shift;
119633µs return $self->{repo};
120}
121
122sub sync_display
123310µs
# spent 8µs within OpenBSD::State::sync_display which was called 3 times, avg 3µs/call: # 3 times (8µs+0s) by OpenBSD::State::_fhprint at line 205, avg 3µs/call
{
124}
125
126OpenBSD::Auto::cache(installpath,
127
# spent 110µs (65+46) within OpenBSD::State::__ANON__[/usr/libdata/perl5/OpenBSD/State.pm:137] which was called: # once (65µs+46µs) by OpenBSD::Auto::__ANON__[/usr/libdata/perl5/OpenBSD/Error.pm:28] at line 27 of OpenBSD/Error.pm
sub {
1281800ns my $self = shift;
12912µs require OpenBSD::Paths;
130144µs224µs open(my $fh, '<', OpenBSD::Paths->installurl) or return undef;
# spent 23µs making 1 call to OpenBSD::State::CORE:open # spent 1µs making 1 call to OpenBSD::Paths::installurl
131124µs118µs while (<$fh>) {
# spent 18µs making 1 call to OpenBSD::State::CORE:readline
13211µs chomp;
13315µs12µs next if m/^\s*\#/;
# spent 2µs making 1 call to OpenBSD::State::CORE:match
13415µs12µs next if m/^\s*$/;
# spent 2µs making 1 call to OpenBSD::State::CORE:match
135131µs return "$_/%c/packages/%a/";
136 }
13716µs113µs });
# spent 13µs making 1 call to OpenBSD::Auto::cache
138
139sub usage_is
140
# spent 4µs within OpenBSD::State::usage_is which was called: # once (4µs+0s) by OpenBSD::State::handle_options at line 284
{
14111µs my ($self, @usage) = @_;
14214µs $self->{usage} = \@usage;
143}
144
145sub verbose
146
# spent 5µs within OpenBSD::State::verbose which was called: # once (5µs+0s) by OpenBSD::PkgInfo::parse_and_run at line 604 of OpenBSD/PkgInfo.pm
{
14711µs my $self = shift;
14817µs return $self->{v};
149}
150
151sub opt
152
# spent 92µs within OpenBSD::State::opt which was called 25 times, avg 4µs/call: # 11 times (25µs+0s) by OpenBSD::PkgInfo::State::hasanyopt at line 151 of OpenBSD/PkgInfo.pm, avg 2µs/call # 6 times (42µs+0s) by OpenBSD::PkgInfo::print_info at line 393 of OpenBSD/PkgInfo.pm, avg 7µs/call # 3 times (10µs+0s) by OpenBSD::PkgInfo::print_info at line 409 of OpenBSD/PkgInfo.pm, avg 3µs/call # once (4µs+0s) by OpenBSD::State::handle_options at line 288 # once (4µs+0s) by OpenBSD::PkgInfo::parse_and_run at line 605 of OpenBSD/PkgInfo.pm # once (3µs+0s) by OpenBSD::PkgInfo::parse_and_run at line 601 of OpenBSD/PkgInfo.pm # once (3µs+0s) by OpenBSD::PkgInfo::parse_and_run at line 564 of OpenBSD/PkgInfo.pm # once (2µs+0s) by OpenBSD::PkgInfo::State::lock at line 72 of OpenBSD/PkgInfo.pm
{
1532526µs my ($self, $k) = @_;
1542588µs return $self->{opt}{$k};
155}
156
157sub usage
158{
159 my $self = shift;
160 my $code = 0;
161 if (@_) {
162 print STDERR "$self->{cmd}: ", $self->f(@_), "\n";
163 $code = 1;
164 }
165 print STDERR "Usage: $self->{cmd} ", shift(@{$self->{usage}}), "\n";
166 for my $l (@{$self->{usage}}) {
167 print STDERR " $l\n";
168 }
169 exit($code);
170}
171
172sub f
173
# spent 108µs (71+37) within OpenBSD::State::f which was called 3 times, avg 36µs/call: # 3 times (71µs+37µs) by OpenBSD::State::fhsay at line 234, avg 36µs/call
{
17433µs my $self = shift;
17533µs if (@_ == 0) {
176 return undef;
177 }
178317µs my ($fmt, @l) = @_;
179 # make it so that #0 is #
18035µs unshift(@l, '#');
181368µs937µs $fmt =~ s,\#(\d+),($l[$1] // "<Undefined #$1>"),ge;
# spent 24µs making 3 calls to OpenBSD::State::CORE:subst, avg 8µs/call # spent 13µs making 6 calls to OpenBSD::State::CORE:substcont, avg 2µs/call
182318µs return $fmt;
183}
184
185sub _fatal
186{
187 my $self = shift;
188 # implementation note: to print "fatal errors" elsewhere,
189 # the way is to eval { croak @_}; and decide what to do with $@.
190 delete $SIG{__DIE__};
191 $self->sync_display;
192 croak "Fatal error: ", @_, "\n";
193}
194
195sub fatal
196{
197 my $self = shift;
198 $self->_fatal($self->f(@_));
199}
200
201sub _fhprint
202
# spent 114µs (51+63) within OpenBSD::State::_fhprint which was called 3 times, avg 38µs/call: # 3 times (51µs+63µs) by OpenBSD::State::fhsay at line 234, avg 38µs/call
{
20333µs my $self = shift;
20433µs my $fh = shift;
205313µs38µs $self->sync_display;
# spent 8µs making 3 calls to OpenBSD::State::sync_display, avg 3µs/call
206389µs354µs print $fh @_;
# spent 54µs making 3 calls to OpenBSD::State::CORE:print, avg 18µs/call
207}
208sub _print
209{
210 my $self = shift;
211 $self->_fhprint(\*STDOUT, @_);
212}
213
214sub _errprint
215{
216 my $self = shift;
217 $self->_fhprint(\*STDERR, @_);
218}
219
220sub fhprint
221{
222 my $self = shift;
223 my $fh = shift;
224 $self->_fhprint($fh, $self->f(@_));
225}
226
227sub fhsay
228
# spent 279µs (57+222) within OpenBSD::State::fhsay which was called 3 times, avg 93µs/call: # 3 times (57µs+222µs) by OpenBSD::State::say at line 247, avg 93µs/call
{
22933µs my $self = shift;
23033µs my $fh = shift;
231315µs if (@_ == 0) {
232 $self->_fhprint($fh, "\n");
233 } else {
234331µs6222µs $self->_fhprint($fh, $self->f(@_), "\n");
# spent 114µs making 3 calls to OpenBSD::State::_fhprint, avg 38µs/call # spent 108µs making 3 calls to OpenBSD::State::f, avg 36µs/call
235 }
236}
237
238sub print
239{
240 my $self = shift;
241 $self->fhprint(\*STDOUT, @_);
242}
243
244sub say
245
# spent 310µs (32+279) within OpenBSD::State::say which was called 3 times, avg 104µs/call: # 3 times (32µs+279µs) by OpenBSD::PkgInfo::print_info at line 409 of OpenBSD/PkgInfo.pm, avg 104µs/call
{
24633µs my $self = shift;
247325µs3279µs $self->fhsay(\*STDOUT, @_);
# spent 279µs making 3 calls to OpenBSD::State::fhsay, avg 93µs/call
248}
249
250sub errprint
251{
252 my $self = shift;
253 $self->fhprint(\*STDERR, @_);
254}
255
256sub errsay
257{
258 my $self = shift;
259 $self->fhsay(\*STDERR, @_);
260}
261
262sub do_options
263
# spent 224µs (14+210) within OpenBSD::State::do_options which was called: # once (14µs+210µs) by OpenBSD::State::handle_options at line 287
{
2641900ns my ($state, $sub) = @_;
265 # this could be nicer...
266
267
# spent 190µs (6+184) within OpenBSD::State::__ANON__[/usr/libdata/perl5/OpenBSD/State.pm:269] which was called: # once (6µs+184µs) by OpenBSD::Error::try at line 175 of OpenBSD/Error.pm
try {
26815µs1184µs &$sub;
# spent 184µs making 1 call to OpenBSD::State::__ANON__[OpenBSD/State.pm:287]
269 } catchall {
270 $state->usage("#1", $_);
271114µs2210µs };
# spent 207µs making 1 call to OpenBSD::Error::try # spent 3µs making 1 call to OpenBSD::Error::catchall
272}
273
274sub handle_options
275
# spent 323µs (67+256) within OpenBSD::State::handle_options which was called: # once (67µs+256µs) by OpenBSD::PkgInfo::parse_and_run at line 560 of OpenBSD/PkgInfo.pm
{
27612µs my ($state, $opt_string, @usage) = @_;
27711µs require OpenBSD::Getopt;
278
27917µs12µs $state->{opt}{v} = 0 unless $opt_string =~ m/v/;
# spent 2µs making 1 call to OpenBSD::State::CORE:match
28015µs11µs $state->{opt}{h} = sub { $state->usage; } unless $opt_string =~ m/h/;
# spent 1µs making 1 call to OpenBSD::State::CORE:match
281 $state->{opt}{D} = sub {
282 $state->{subst}->parse_option(shift);
28316µs1900ns } unless $opt_string =~ m/D/;
# spent 900ns making 1 call to OpenBSD::State::CORE:match
28415µs14µs $state->usage_is(@usage);
# spent 4µs making 1 call to OpenBSD::State::usage_is
285
# spent 184µs (7+177) within OpenBSD::State::__ANON__[/usr/libdata/perl5/OpenBSD/State.pm:287] which was called: # once (7µs+177µs) by OpenBSD::State::__ANON__[/usr/libdata/perl5/OpenBSD/State.pm:269] at line 268
$state->do_options(sub {
28617µs1177µs OpenBSD::Getopt::getopts($opt_string.'hvD:', $state->{opt});
# spent 177µs making 1 call to OpenBSD::Getopt::getopts
287113µs1224µs });
# spent 224µs making 1 call to OpenBSD::State::do_options
28816µs14µs $state->{v} = $state->opt('v');
# spent 4µs making 1 call to OpenBSD::State::opt
289
29017µs220µs if ($state->defines('unsigned')) {
# spent 20µs making 2 calls to OpenBSD::State::defines, avg 10µs/call
291 $state->{signature_style} //= 'unsigned';
292 } elsif ($state->defines('oldsign')) {
293 $state->fatal('old style signature no longer supported');
294 } else {
29511µs $state->{signature_style} //= 'new';
296 }
297
29815µs return if $state->{no_exports};
299 # XXX
300262µs2104µs
# spent 62µs (19+43) within OpenBSD::State::BEGIN@300 which was called: # once (19µs+43µs) by main::BEGIN@22 at line 300
no strict "refs";
# spent 62µs making 1 call to OpenBSD::State::BEGIN@300 # spent 43µs making 1 call to strict::unimport
30121.29ms250µs
# spent 31µs (12+19) within OpenBSD::State::BEGIN@301 which was called: # once (12µs+19µs) by main::BEGIN@22 at line 301
no strict "vars";
# spent 31µs making 1 call to OpenBSD::State::BEGIN@301 # spent 19µs making 1 call to strict::unimport
302 for my $k (keys %{$state->{opt}}) {
303 ${"opt_$k"} = $state->opt($k);
304 push(@EXPORT, "\$opt_$k");
305 }
306 local $Exporter::ExportLevel = $state->{export_level};
307 import OpenBSD::State;
308}
309
310sub defines
311
# spent 57µs (33+24) within OpenBSD::State::defines which was called 3 times, avg 19µs/call: # 2 times (12µs+7µs) by OpenBSD::State::handle_options at line 290, avg 10µs/call # once (21µs+17µs) by OpenBSD::PackageRepositoryBase::parse_url at line 73 of OpenBSD/PackageRepository/Installed.pm
{
31236µs my ($self, $k) = @_;
313339µs324µs return $self->{subst}->value($k);
# spent 24µs making 3 calls to OpenBSD::Subst::value, avg 8µs/call
314}
315
316sub width
317{
318 my $self = shift;
319 if (!defined $self->{width}) {
320 $self->find_window_size;
321 }
322 return $self->{width};
323}
324
325sub height
326{
327 my $self = shift;
328 if (!defined $self->{height}) {
329 $self->find_window_size;
330 }
331 return $self->{height};
332}
333
334sub find_window_size
335{
336 my $self = shift;
337 require Term::ReadKey;
338 my @l = Term::ReadKey::GetTermSizeGWINSZ(\*STDOUT);
339 if (@l != 4) {
340 $self->{width} = 80;
341 $self->{height} = 24;
342 } else {
343 $self->{width} = $l[0];
344 $self->{height} = $l[1];
345 $SIG{'WINCH'} = sub {
346 $self->find_window_size;
347 };
348 }
349 $SIG{'CONT'} = sub {
350 $self->find_window_size(1);
351 }
352}
353
354OpenBSD::Auto::cache(signer_list,
355 sub {
356 my $self = shift;
357 if ($self->defines('SIGNER')) {
358 return [split /,/, $self->{subst}->value('SIGNER')];
359 } else {
360 if ($self->defines('FW_UPDATE')) {
361 return [qr{^.*fw$}];
362 } else {
363 return [qr{^.*pkg$}];
364 }
365 }
36614µs17µs });
# spent 7µs making 1 call to OpenBSD::Auto::cache
367
3681800nsmy @signal_name = ();
369sub fillup_names
370{
371 {
372 # XXX force autoload
373 package verylocal;
374
375 require POSIX;
376 POSIX->import(qw(signal_h));
377 }
378
379 for my $sym (keys %POSIX::) {
380 next unless $sym =~ /^SIG([A-Z].*)/;
381 $signal_name[eval "&POSIX::$sym()"] = $1;
382 }
383 # extra BSD signals
384 $signal_name[5] = 'TRAP';
385 $signal_name[7] = 'IOT';
386 $signal_name[10] = 'BUS';
387 $signal_name[12] = 'SYS';
388 $signal_name[16] = 'URG';
389 $signal_name[23] = 'IO';
390 $signal_name[24] = 'XCPU';
391 $signal_name[25] = 'XFSZ';
392 $signal_name[26] = 'VTALRM';
393 $signal_name[27] = 'PROF';
394 $signal_name[28] = 'WINCH';
395 $signal_name[29] = 'INFO';
396}
397
398sub find_signal
399{
400 my $number = shift;
401
402 if (@signal_name == 0) {
403 fillup_names();
404 }
405
406 return $signal_name[$number] || $number;
407}
408
409sub child_error
410{
411 my $self = shift;
412 my $error = $?;
413
414 my $extra = "";
415
416 if ($error & 128) {
417 $extra = $self->f(" (core dumped)");
418 }
419 if ($error & 127) {
420 return $self->f("killed by signal #1#2",
421 find_signal($error & 127), $extra);
422 } else {
423 return $self->f("exit(#1)#2", ($error >> 8), $extra);
424 }
425}
426
427sub _system
428{
429 my $self = shift;
430 $self->sync_display;
431 my $r = fork;
432 my ($todo, $todo2);
433 if (ref $_[0] eq 'CODE') {
434 $todo = shift;
435 } else {
436 $todo = sub {};
437 }
438 if (ref $_[0] eq 'CODE') {
439 $todo2 = shift;
440 } else {
441 $todo2 = sub {};
442 }
443 if (!defined $r) {
444 return 1;
445 } elsif ($r == 0) {
446 &$todo;
447 exec {$_[0]} @_ or return 1;
448 } else {
449 &$todo2;
450 waitpid($r, 0);
451 return $?;
452 }
453}
454
455sub system
456{
457 my $self = shift;
458 my $r = $self->_system(@_);
459 if ($r != 0) {
460 if (ref $_[0] eq 'CODE') {
461 shift;
462 }
463 if (ref $_[0] eq 'CODE') {
464 shift;
465 }
466 $self->say("system(#1) failed: #2",
467 join(", ", @_), $self->child_error);
468 }
469 return $r;
470}
471
472sub verbose_system
473{
474 my $self = shift;
475 my @p = @_;
476 if (ref $p[0]) {
477 shift @p;
478 }
479 if (ref $p[0]) {
480 shift @p;
481 }
482
483 $self->print("Running #1", join(' ', @p));
484 my $r = $self->_system(@_);
485 if ($r != 0) {
486 $self->say("... failed: #1", $self->child_error);
487 } else {
488 $self->say;
489 }
490}
491
492sub copy_file
493{
494 my $self = shift;
495 require File::Copy;
496
497 my $r = File::Copy::copy(@_);
498 if (!$r) {
499 $self->say("copy(#1) failed: #2", join(',', @_), $!);
500 }
501 return $r;
502}
503
504sub unlink
505{
506 my $self = shift;
507 my $verbose = shift;
508 my $r = unlink @_;
509 if ($r != @_) {
510 $self->say("rm #1 failed: removed only #2 targets, #3",
511 join(' ', @_), $r, $!);
512 } elsif ($verbose) {
513 $self->say("rm #1", join(' ', @_));
514 }
515 return $r;
516}
517
518sub copy
519{
520 my $self = shift;
521 require File::Copy;
522
523 my $r = File::Copy::copy(@_);
524 if (!$r) {
525 $self->say("copy(#1) failed: #2", join(',', @_), $!);
526 }
527 return $r;
528}
529
53017µs1;
 
# spent 7µs within OpenBSD::State::CORE:match which was called 5 times, avg 1µs/call: # once (2µs+0s) by OpenBSD::State::__ANON__[/usr/libdata/perl5/OpenBSD/State.pm:137] at line 134 # once (2µs+0s) by OpenBSD::State::handle_options at line 279 # once (2µs+0s) by OpenBSD::State::__ANON__[/usr/libdata/perl5/OpenBSD/State.pm:137] at line 133 # once (1µs+0s) by OpenBSD::State::handle_options at line 280 # once (900ns+0s) by OpenBSD::State::handle_options at line 283
sub OpenBSD::State::CORE:match; # opcode
# spent 23µs within OpenBSD::State::CORE:open which was called: # once (23µs+0s) by OpenBSD::State::__ANON__[/usr/libdata/perl5/OpenBSD/State.pm:137] at line 130
sub OpenBSD::State::CORE:open; # opcode
# spent 54µs within OpenBSD::State::CORE:print which was called 3 times, avg 18µs/call: # 3 times (54µs+0s) by OpenBSD::State::_fhprint at line 206, avg 18µs/call
sub OpenBSD::State::CORE:print; # opcode
# spent 18µs within OpenBSD::State::CORE:readline which was called: # once (18µs+0s) by OpenBSD::State::__ANON__[/usr/libdata/perl5/OpenBSD/State.pm:137] at line 131
sub OpenBSD::State::CORE:readline; # opcode
# spent 24µs within OpenBSD::State::CORE:subst which was called 3 times, avg 8µs/call: # 3 times (24µs+0s) by OpenBSD::State::f at line 181, avg 8µs/call
sub OpenBSD::State::CORE:subst; # opcode
# spent 13µs within OpenBSD::State::CORE:substcont which was called 6 times, avg 2µs/call: # 6 times (13µs+0s) by OpenBSD::State::f at line 181, avg 2µs/call
sub OpenBSD::State::CORE:substcont; # opcode
Report produced by the NYTProf 6.04 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.