← Index
NYTProf Performance Profile   « line view »
For /usr/sbin/pkg_info
  Run on Mon Aug 7 09:39:31 2017
Reported on Mon Aug 7 09:40:21 2017

Filename/usr/libdata/perl5/OpenBSD/PackageRepository/Installed.pm
StatementsExecuted 747 statements in 33.0ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
126622.95ms12.0msOpenBSD::PackageRepositoryBase::::url OpenBSD::PackageRepositoryBase::url
80211.25ms1.08sOpenBSD::PackageRepositoryBase::::close_now OpenBSD::PackageRepositoryBase::close_now
4011405µs1.01msOpenBSD::PackageRepositoryBase::::new_location OpenBSD::PackageRepositoryBase::new_location
4011229µs258µsOpenBSD::PackageRepositoryBase::::canonicalize OpenBSD::PackageRepositoryBase::canonicalize
221143µs5.43msOpenBSD::PackageRepositoryBase::::parse_url OpenBSD::PackageRepositoryBase::parse_url
401166µs66µsOpenBSD::PackageRepositoryBase::::locationClassName OpenBSD::PackageRepositoryBase::locationClassName
22150µs61µsOpenBSD::PackageRepositoryBase::::strip_urlscheme OpenBSD::PackageRepositoryBase::strip_urlscheme
21150µs2.06sOpenBSD::PackageRepositoryBase::::match_locations OpenBSD::PackageRepositoryBase::match_locations
433141µs41µsOpenBSD::PackageRepositoryBase::::CORE:subst OpenBSD::PackageRepositoryBase::CORE:subst (opcode)
11133µs3.06msOpenBSD::PackageRepositoryBase::::expand_locations OpenBSD::PackageRepositoryBase::expand_locations
11130µs35µsOpenBSD::PackageLocator::::BEGIN@18.13 OpenBSD::PackageLocator::BEGIN@18.13
84129µs29µsOpenBSD::PackageRepositoryBase::::CORE:match OpenBSD::PackageRepositoryBase::CORE:match (opcode)
11120µs199µsOpenBSD::PackageRepository::Installed::::BEGIN@197OpenBSD::PackageRepository::Installed::BEGIN@197
11117µs30µsOpenBSD::PackageLocator::::BEGIN@19.14 OpenBSD::PackageLocator::BEGIN@19.14
21112µs12µsOpenBSD::PackageRepositoryBase::::CORE:substcont OpenBSD::PackageRepositoryBase::CORE:substcont (opcode)
0000s0sOpenBSD::PackageRepository::Installed::::availableOpenBSD::PackageRepository::Installed::available
0000s0sOpenBSD::PackageRepository::Installed::::canonicalizeOpenBSD::PackageRepository::Installed::canonicalize
0000s0sOpenBSD::PackageRepository::Installed::::closeOpenBSD::PackageRepository::Installed::close
0000s0sOpenBSD::PackageRepository::Installed::::findOpenBSD::PackageRepository::Installed::find
0000s0sOpenBSD::PackageRepository::Installed::::grabPlistOpenBSD::PackageRepository::Installed::grabPlist
0000s0sOpenBSD::PackageRepository::Installed::::listOpenBSD::PackageRepository::Installed::list
0000s0sOpenBSD::PackageRepository::Installed::::locationClassNameOpenBSD::PackageRepository::Installed::locationClassName
0000s0sOpenBSD::PackageRepository::Installed::::make_error_fileOpenBSD::PackageRepository::Installed::make_error_file
0000s0sOpenBSD::PackageRepository::Installed::::may_existOpenBSD::PackageRepository::Installed::may_exist
0000s0sOpenBSD::PackageRepository::Installed::::newOpenBSD::PackageRepository::Installed::new
0000s0sOpenBSD::PackageRepository::Installed::::relative_urlOpenBSD::PackageRepository::Installed::relative_url
0000s0sOpenBSD::PackageRepository::Installed::::stemlistOpenBSD::PackageRepository::Installed::stemlist
0000s0sOpenBSD::PackageRepository::Installed::::urlschemeOpenBSD::PackageRepository::Installed::urlscheme
0000s0sOpenBSD::PackageRepository::Installed::::wipe_infoOpenBSD::PackageRepository::Installed::wipe_info
0000s0sOpenBSD::PackageRepositoryBase::::close_after_error OpenBSD::PackageRepositoryBase::close_after_error
0000s0sOpenBSD::PackageRepositoryBase::::close_with_client_error OpenBSD::PackageRepositoryBase::close_with_client_error
0000s0sOpenBSD::PackageRepositoryBase::::finish_and_close OpenBSD::PackageRepositoryBase::finish_and_close
0000s0sOpenBSD::PackageRepositoryBase::::is_local_file OpenBSD::PackageRepositoryBase::is_local_file
0000s0sOpenBSD::PackageRepositoryBase::::locations_list OpenBSD::PackageRepositoryBase::locations_list
0000s0sOpenBSD::PackageRepositoryBase::::parse_fullurl OpenBSD::PackageRepositoryBase::parse_fullurl
0000s0sOpenBSD::PackageRepositoryBase::::reinitialize OpenBSD::PackageRepositoryBase::reinitialize
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: Installed.pm,v 1.38 2017/03/11 11:25:01 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
182319µs239µs
# spent 35µs (30+5) within OpenBSD::PackageLocator::BEGIN@18.13 which was called: # once (30µs+5µs) by OpenBSD::PackageLocator::BEGIN@24.12 at line 18
use strict;
# spent 35µs making 1 call to OpenBSD::PackageLocator::BEGIN@18.13 # spent 5µs making 1 call to strict::import
19220.2ms242µs
# spent 30µs (17+13) within OpenBSD::PackageLocator::BEGIN@19.14 which was called: # once (17µs+13µs) by OpenBSD::PackageLocator::BEGIN@24.12 at line 19
use warnings;
# spent 30µs making 1 call to OpenBSD::PackageLocator::BEGIN@19.14 # spent 13µs making 1 call to warnings::import
20
21# XXX: we want to be able to load PackageRepository::Installed stand-alone,
22# so we put the only common method into PackageRepositoryBase.
23#
24# later, when we load the base PackageRepository, we tweak the inheritance
25# of PackageRepository::Installed to have full access...
26
27package OpenBSD::PackageRepositoryBase;
28
291800nsmy ($version, $current);
30
31sub is_local_file
32{
33 return 0;
34}
35
36sub expand_locations
37
# spent 3.06ms (33µs+3.03) within OpenBSD::PackageRepositoryBase::expand_locations which was called: # once (33µs+3.03ms) by OpenBSD::PackageRepositoryBase::parse_url at line 67
{
3812µs my ($class, $string, $state) = @_;
3911µs require OpenBSD::Paths;
40129µs13.03ms if ($string eq '%a') {
# spent 3.03ms making 1 call to OpenBSD::Paths::machine_architecture
41 return OpenBSD::Paths->machine_architecture;
42 } elsif ($string eq '%v') {
43 return OpenBSD::Paths->os_version;
44 } elsif ($string eq '%m') {
45 return join('/',
46 'pub/OpenBSD',
47 '%c',
48 'packages',
49 OpenBSD::Paths->machine_architecture);
50 }
51}
52
53sub parse_url
54
# spent 5.43ms (143µs+5.29) within OpenBSD::PackageRepositoryBase::parse_url which was called 2 times, avg 2.71ms/call: # once (116µs+5.28ms) by OpenBSD::PackageRepository::Distant::parse_url at line 586 of OpenBSD/PackageRepository.pm # once (27µs+6µs) by OpenBSD::PackageRepository::Local::parse_fullurl at line 482 of OpenBSD/PackageRepository.pm
{
5522µs my ($class, $r, $state) = @_;
56
5721µs my $path;
58
59211µs23µs if ($$r =~ m/^(.*?)\:(.*)/) {
# spent 3µs making 2 calls to OpenBSD::PackageRepositoryBase::CORE:match, avg 1µs/call
6011µs $path = $1;
6112µs $$r = $2;
62 } else {
631900ns $path = $$r;
641900ns $$r = '';
65 }
66
67336µs53.08ms $path =~ s/\%[vam]\b/$class->expand_locations($&, $state)/ge;
# spent 3.06ms making 1 call to OpenBSD::PackageRepositoryBase::expand_locations # spent 12µs making 2 calls to OpenBSD::PackageRepositoryBase::CORE:substcont, avg 6µs/call # spent 3µs making 2 calls to OpenBSD::PackageRepositoryBase::CORE:subst, avg 2µs/call
68 # make %c magical: if we're on a release, we expand into
69 # stable, and leave the release dir for the full object with
70 # host to push back
7121µs my $release;
72223µs213µs if ($path =~ m/\%c\b/) {
# spent 13µs making 2 calls to OpenBSD::PackageRepositoryBase::CORE:match, avg 7µs/call
73134µs22.18ms my $d = $state->defines('snap') ?
# spent 2.14ms making 1 call to OpenBSD::Paths::os_directory # spent 33µs making 1 call to OpenBSD::State::defines
74 'snapshots' : OpenBSD::Paths->os_directory;
7512µs if ($d ne 'snapshots' && $path =~ m,\%c/packages/,) {
76 $release = $path;
77 $release =~ s,\%c\b,$d,;
78 $path =~ s,\%c/packages/,$d/packages-stable/,;
79 } else {
80113µs19µs $path =~ s,\%c\b,$d,;
# spent 9µs making 1 call to OpenBSD::PackageRepositoryBase::CORE:subst
81 }
82 }
83213µs27µs $path .= '/' unless $path =~ m/\/$/;
# spent 7µs making 2 calls to OpenBSD::PackageRepositoryBase::CORE:match, avg 4µs/call
84241µs bless { path => $path, release => $release, state => $state }, $class;
85}
86
87sub parse_fullurl
88{
89 my ($class, $r, $state) = @_;
90
91 $class->strip_urlscheme($r) or return undef;
92 return $class->parse_url($r, $state);
93}
94
95sub strip_urlscheme
96
# spent 61µs (50+10) within OpenBSD::PackageRepositoryBase::strip_urlscheme which was called 2 times, avg 30µs/call: # once (34µs+6µs) by OpenBSD::PackageRepository::Local::parse_fullurl at line 481 of OpenBSD/PackageRepository.pm # once (17µs+4µs) by OpenBSD::PackageRepository::parse_fullurl at line 97 of OpenBSD/PackageRepository.pm
{
9722µs my ($class, $r) = @_;
98216µs26µs if ($$r =~ m/^(.*?)\:(.*)$/) {
# spent 6µs making 2 calls to OpenBSD::PackageRepositoryBase::CORE:match, avg 3µs/call
99217µs my $scheme = lc($1);
10027µs24µs if ($scheme eq $class->urlscheme) {
# spent 2µs making 1 call to OpenBSD::PackageRepository::Local::urlscheme # spent 2µs making 1 call to OpenBSD::PackageRepository::HTTP::urlscheme
10111µs $$r = $2;
10214µs return 1;
103 }
104 }
10515µs return 0;
106}
107
108sub match_locations
109
# spent 2.06s (50µs+2.06) within OpenBSD::PackageRepositoryBase::match_locations which was called 2 times, avg 1.03s/call: # 2 times (50µs+2.06s) by OpenBSD::PackageRepositoryList::match_locations at line 84 of OpenBSD/PackageRepositoryList.pm, avg 1.03s/call
{
11022µs my ($self, $search, @filters) = @_;
111229µs22.06s my $l = $search->match_locations($self);
# spent 2.06s making 2 calls to OpenBSD::Search::match_locations, avg 1.03s/call
11225µs while (my $filter = (shift @filters)) {
113 last if @$l == 0; # don't bother filtering empty list
114 $l = $filter->filter_locations($l);
115 }
116213µs return $l;
117}
118
119sub url
120
# spent 12.0ms (2.95+9.06) within OpenBSD::PackageRepositoryBase::url which was called 126 times, avg 95µs/call: # 41 times (748µs+911µs) by OpenBSD::PackageRepository::parse_problems at line 286 of OpenBSD/PackageRepository.pm, avg 40µs/call # 40 times (452µs+5.54ms) by OpenBSD::PackageLocation::url at line 41 of OpenBSD/PackageLocation.pm, avg 150µs/call # 40 times (1.68ms+2.54ms) by OpenBSD::PackageLocation::_opened at line 88 of OpenBSD/PackageLocation.pm, avg 106µs/call # 2 times (38µs+33µs) by OpenBSD::PackageRepository::unique at line 75 of OpenBSD/PackageRepository.pm, avg 36µs/call # 2 times (15µs+20µs) by OpenBSD::PackageRepository::unique at line 78 of OpenBSD/PackageRepository.pm, avg 17µs/call # once (10µs+13µs) by OpenBSD::PackageRepository::HTTPorFTP::get_http_list at line 909 of OpenBSD/PackageRepository.pm
{
121126229µs my ($self, $name) = @_;
1221262.37ms2529.06ms return $self->urlscheme.':'.$self->relative_url($name);
# spent 8.12ms making 126 calls to OpenBSD::PackageRepository::relative_url, avg 64µs/call # spent 937µs making 124 calls to OpenBSD::PackageRepository::HTTP::urlscheme, avg 8µs/call # spent 3µs making 2 calls to OpenBSD::PackageRepository::Local::urlscheme, avg 2µs/call
123}
124
125sub finish_and_close
126{
127 my ($self, $object) = @_;
128 $self->close($object);
129}
130
131sub close_now
132
# spent 1.08s (1.25ms+1.08) within OpenBSD::PackageRepositoryBase::close_now which was called 80 times, avg 13.5ms/call: # 40 times (926µs+1.08s) by OpenBSD::PackageLocation::close_now at line 264 of OpenBSD/PackageLocation.pm, avg 27.0ms/call # 40 times (325µs+720µs) by OpenBSD::PackageLocation::wipe_info at line 210 of OpenBSD/PackageLocation.pm, avg 26µs/call
{
1338096µs my ($self, $object) = @_;
13480682µs801.08s $self->close($object, 0);
# spent 1.08s making 80 calls to OpenBSD::PackageRepository::close, avg 13.5ms/call
135}
136
137sub close_after_error
138{
139 my ($self, $object) = @_;
140 $self->close($object, 1);
141}
142
143sub close_with_client_error
144{
145 my ($self, $object) = @_;
146 $self->close($object, 1);
147}
148
149sub canonicalize
150
# spent 258µs (229+28) within OpenBSD::PackageRepositoryBase::canonicalize which was called 40 times, avg 6µs/call: # 40 times (229µs+28µs) by OpenBSD::PackageLocation::new at line 31 of OpenBSD/PackageLocation.pm, avg 6µs/call
{
1514026µs my ($self, $name) = @_;
152
1534048µs if (defined $name) {
15440119µs4028µs $name =~ s/\.tgz$//o;
# spent 28µs making 40 calls to OpenBSD::PackageRepositoryBase::CORE:subst, avg 713ns/call
155 }
1564098µs return $name;
157}
158
159sub new_location
160
# spent 1.01ms (405µs+605µs) within OpenBSD::PackageRepositoryBase::new_location which was called 40 times, avg 25µs/call: # 40 times (405µs+605µs) by OpenBSD::Search::match_locations at line 27 of OpenBSD/Search.pm, avg 25µs/call
{
1614033µs my ($self, @args) = @_;
162
16340244µs80605µs return $self->locationClassName->new($self, @args);
# spent 539µs making 40 calls to OpenBSD::PackageLocation::new, avg 13µs/call # spent 66µs making 40 calls to OpenBSD::PackageRepositoryBase::locationClassName, avg 2µs/call
164}
165
166sub locationClassName
16740190µs
# spent 66µs within OpenBSD::PackageRepositoryBase::locationClassName which was called 40 times, avg 2µs/call: # 40 times (66µs+0s) by OpenBSD::PackageRepositoryBase::new_location at line 163, avg 2µs/call
{ "OpenBSD::PackageLocation" }
168
169sub locations_list
170{
171 my $self = shift;
172 if (!defined $self->{locations}) {
173 my $l = [];
174 require OpenBSD::PackageLocation;
175
176 for my $name (@{$self->list}) {
177 push @$l, $self->new_location($name);
178 }
179 $self->{locations} = $l;
180 }
181 return $self->{locations};
182}
183
184sub reinitialize
185{
186}
187
188package OpenBSD::PackageRepository::Installed;
189
190114µsour @ISA = (qw(OpenBSD::PackageRepositoryBase));
191
192sub urlscheme
193{
194 return 'inst';
195}
196
19712µs
# spent 199µs (20+178) within OpenBSD::PackageRepository::Installed::BEGIN@197 which was called: # once (20µs+178µs) by OpenBSD::PackageLocator::BEGIN@24.12 at line 198
use OpenBSD::PackageInfo (qw(is_installed installed_info
19818.00ms2378µs installed_packages installed_stems installed_name));
# spent 199µs making 1 call to OpenBSD::PackageRepository::Installed::BEGIN@197 # spent 178µs making 1 call to Exporter::import
199
200sub new
201{
202 my ($class, $all, $state) = @_;
203 return bless { all => $all, state => $state }, $class;
204}
205
206sub relative_url
207{
208 my ($self, $name) = @_;
209 $name or '';
210}
211
212sub close
213{
214}
215
216sub make_error_file
217{
218}
219
220sub canonicalize
221{
222 my ($self, $name) = @_;
223 return installed_name($name);
224}
225
226sub find
227{
228 my ($repository, $name, $arch) = @_;
229 my $self;
230
231 if (is_installed($name)) {
232 require OpenBSD::PackageLocation;
233
234 $self = $repository->new_location($name);
235 $self->{dir} = installed_info($name);
236 }
237 return $self;
238}
239
240sub locationClassName
241{ "OpenBSD::PackageLocation::Installed" }
242
243sub grabPlist
244{
245 my ($repository, $name, $arch, $code) = @_;
246 require OpenBSD::PackingList;
247 return OpenBSD::PackingList->from_installation($name, $code);
248}
249
250sub available
251{
252 my $self = shift;
253 return installed_packages($self->{all});
254}
255
256sub list
257{
258 my $self = shift;
259 my @list = installed_packages($self->{all});
260 return \@list;
261}
262
263sub stemlist
264{
265 return installed_stems();
266}
267
268sub wipe_info
269{
270}
271
272sub may_exist
273{
274 my ($self, $name) = @_;
275 return is_installed($name);
276}
277
27818µs1;
 
# spent 29µs within OpenBSD::PackageRepositoryBase::CORE:match which was called 8 times, avg 4µs/call: # 2 times (13µs+0s) by OpenBSD::PackageRepositoryBase::parse_url at line 72, avg 7µs/call # 2 times (7µs+0s) by OpenBSD::PackageRepositoryBase::parse_url at line 83, avg 4µs/call # 2 times (6µs+0s) by OpenBSD::PackageRepositoryBase::strip_urlscheme at line 98, avg 3µs/call # 2 times (3µs+0s) by OpenBSD::PackageRepositoryBase::parse_url at line 59, avg 1µs/call
sub OpenBSD::PackageRepositoryBase::CORE:match; # opcode
# spent 41µs within OpenBSD::PackageRepositoryBase::CORE:subst which was called 43 times, avg 960ns/call: # 40 times (28µs+0s) by OpenBSD::PackageRepositoryBase::canonicalize at line 154, avg 713ns/call # 2 times (3µs+0s) by OpenBSD::PackageRepositoryBase::parse_url at line 67, avg 2µs/call # once (9µs+0s) by OpenBSD::PackageRepositoryBase::parse_url at line 80
sub OpenBSD::PackageRepositoryBase::CORE:subst; # opcode
# spent 12µs within OpenBSD::PackageRepositoryBase::CORE:substcont which was called 2 times, avg 6µs/call: # 2 times (12µs+0s) by OpenBSD::PackageRepositoryBase::parse_url at line 67, avg 6µs/call
sub OpenBSD::PackageRepositoryBase::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.