| Filename | /usr/libdata/perl5/OpenBSD/PackageRepositoryList.pm |
| Statements | Executed 51 statements in 670µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 2 | 1 | 1 | 89µs | 465ms | OpenBSD::PackageRepositoryList::do_something |
| 1 | 1 | 1 | 50µs | 1.27s | OpenBSD::PackageRepositoryList::match_locations |
| 2 | 1 | 1 | 35µs | 465ms | OpenBSD::PackageRepositoryList::find |
| 2 | 1 | 1 | 31µs | 31µs | OpenBSD::PackageRepositoryList::filter_new |
| 2 | 1 | 1 | 24µs | 55µs | OpenBSD::PackageRepositoryList::add |
| 1 | 1 | 1 | 18µs | 21µs | OpenBSD::PackageLocator::BEGIN@18 |
| 1 | 1 | 1 | 9µs | 17µs | OpenBSD::PackageLocator::BEGIN@19 |
| 1 | 1 | 1 | 5µs | 5µs | OpenBSD::PackageRepositoryList::new |
| 0 | 0 | 0 | 0s | 0s | OpenBSD::PackageRepositoryList::grabPlist |
| 0 | 0 | 0 | 0s | 0s | OpenBSD::PackageRepositoryList::prepend |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # ex:ts=8 sw=4: | ||||
| 2 | # $OpenBSD: PackageRepositoryList.pm,v 1.31 2017/05/29 12:28:54 espie Exp $ | ||||
| 3 | # | ||||
| 4 | # Copyright (c) 2003-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 | 2 | 36µs | 2 | 25µs | # spent 21µs (18+3) within OpenBSD::PackageLocator::BEGIN@18 which was called:
# once (18µs+3µs) by OpenBSD::PackageLocator::BEGIN@23 at line 18 # spent 21µs making 1 call to OpenBSD::PackageLocator::BEGIN@18
# spent 4µs making 1 call to strict::import |
| 19 | 2 | 405µs | 2 | 24µs | # spent 17µs (9+8) within OpenBSD::PackageLocator::BEGIN@19 which was called:
# once (9µs+8µs) by OpenBSD::PackageLocator::BEGIN@23 at line 19 # spent 17µs making 1 call to OpenBSD::PackageLocator::BEGIN@19
# spent 8µs making 1 call to warnings::import |
| 20 | |||||
| 21 | package OpenBSD::PackageRepositoryList; | ||||
| 22 | |||||
| 23 | sub new | ||||
| 24 | # spent 5µs within OpenBSD::PackageRepositoryList::new which was called:
# once (5µs+0s) by OpenBSD::PackageLocator::build_default_path at line 59 of OpenBSD/PackageLocator.pm | ||||
| 25 | 1 | 800ns | my ($class, $state) = @_; | ||
| 26 | 1 | 9µs | return bless {l => [], k => {}, state => $state}, $class; | ||
| 27 | } | ||||
| 28 | |||||
| 29 | sub filter_new | ||||
| 30 | # spent 31µs within OpenBSD::PackageRepositoryList::filter_new which was called 2 times, avg 15µs/call:
# 2 times (31µs+0s) by OpenBSD::PackageRepositoryList::add at line 45, avg 15µs/call | ||||
| 31 | 2 | 2µs | my $self = shift; | ||
| 32 | 2 | 3µs | my @l = (); | ||
| 33 | 2 | 5µs | for my $r (@_) { | ||
| 34 | 2 | 2µs | next if !defined $r; | ||
| 35 | 2 | 4µs | next if $self->{k}{$r}; | ||
| 36 | 2 | 6µs | $self->{k}{$r} = 1; | ||
| 37 | 2 | 5µs | push @l, $r; | ||
| 38 | } | ||||
| 39 | 2 | 8µs | return @l; | ||
| 40 | } | ||||
| 41 | |||||
| 42 | sub add | ||||
| 43 | # spent 55µs (24+31) within OpenBSD::PackageRepositoryList::add which was called 2 times, avg 27µs/call:
# 2 times (24µs+31µs) by OpenBSD::PackageLocator::add_default at line 50 of OpenBSD/PackageLocator.pm, avg 27µs/call | ||||
| 44 | 2 | 2µs | my $self = shift; | ||
| 45 | 2 | 17µs | 2 | 31µs | push @{$self->{l}}, $self->filter_new(@_); # spent 31µs making 2 calls to OpenBSD::PackageRepositoryList::filter_new, avg 15µs/call |
| 46 | } | ||||
| 47 | |||||
| 48 | sub prepend | ||||
| 49 | { | ||||
| 50 | my $self = shift; | ||||
| 51 | unshift @{$self->{l}}, $self->filter_new(@_); | ||||
| 52 | } | ||||
| 53 | |||||
| 54 | sub do_something | ||||
| 55 | # spent 465ms (89µs+465) within OpenBSD::PackageRepositoryList::do_something which was called 2 times, avg 232ms/call:
# 2 times (89µs+465ms) by OpenBSD::PackageRepositoryList::find at line 71, avg 232ms/call | ||||
| 56 | 2 | 3µs | my ($self, $do, $pkgname, @args) = @_; | ||
| 57 | 2 | 3µs | if (defined $pkgname && $pkgname eq '-') { | ||
| 58 | return OpenBSD::PackageRepository->pipe->new($self->{state})->$do($pkgname, @args); | ||||
| 59 | } | ||||
| 60 | 2 | 4µs | for my $repo (@{$self->{l}}) { | ||
| 61 | 4 | 54µs | 4 | 465ms | my $r = $repo->$do($pkgname, @args); # spent 465ms making 2 calls to OpenBSD::PackageRepository::HTTPorFTP::find, avg 232ms/call
# spent 253µs making 2 calls to OpenBSD::PackageRepository::find, avg 127µs/call |
| 62 | 4 | 28µs | return $r if defined $r; | ||
| 63 | } | ||||
| 64 | return undef; | ||||
| 65 | } | ||||
| 66 | |||||
| 67 | sub find | ||||
| 68 | # spent 465ms (35µs+465) within OpenBSD::PackageRepositoryList::find which was called 2 times, avg 232ms/call:
# 2 times (35µs+465ms) by OpenBSD::PackageLocator::find at line 102 of OpenBSD/PackageLocator.pm, avg 232ms/call | ||||
| 69 | 2 | 3µs | my ($self, @args) = @_; | ||
| 70 | |||||
| 71 | 2 | 24µs | 2 | 465ms | return $self->do_something('find', @args); # spent 465ms making 2 calls to OpenBSD::PackageRepositoryList::do_something, avg 232ms/call |
| 72 | } | ||||
| 73 | |||||
| 74 | sub grabPlist | ||||
| 75 | { | ||||
| 76 | my ($self, @args) = @_; | ||||
| 77 | return $self->do_something('grabPlist', @args); | ||||
| 78 | } | ||||
| 79 | |||||
| 80 | sub match_locations | ||||
| 81 | # spent 1.27s (50µs+1.27) within OpenBSD::PackageRepositoryList::match_locations which was called:
# once (50µs+1.27s) by OpenBSD::PackageLocator::match_locations at line 128 of OpenBSD/PackageLocator.pm | ||||
| 82 | 1 | 2µs | my ($self, @search) = @_; | ||
| 83 | 1 | 4µs | for my $repo (@{$self->{l}}) { | ||
| 84 | 2 | 20µs | 2 | 1.27s | my $l = $repo->match_locations(@search); # spent 1.27s making 2 calls to OpenBSD::PackageRepositoryBase::match_locations, avg 634ms/call |
| 85 | 2 | 18µs | if (@$l > 0) { | ||
| 86 | return $l; | ||||
| 87 | } | ||||
| 88 | } | ||||
| 89 | return []; | ||||
| 90 | } | ||||
| 91 | |||||
| 92 | 1 | 4µs | 1; |