| Filename | /usr/sbin/pkg_info |
| Statements | Executed 14 statements in 6.57ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 5.61ms | 5.70ms | main::BEGIN@20 |
| 1 | 1 | 1 | 3.98ms | 2.14s | main::run |
| 1 | 1 | 1 | 1.04ms | 1.33ms | main::BEGIN@19 |
| 111 | 3 | 1 | 176µs | 176µs | Internals::SvREADONLY (xsub) |
| 14 | 14 | 6 | 147µs | 147µs | UNIVERSAL::VERSION (xsub) |
| 83 | 1 | 1 | 130µs | 130µs | mro::method_changed_in (xsub) |
| 4 | 1 | 1 | 8µs | 8µs | UNIVERSAL::isa (xsub) |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 0 | 2 | 196µs | Profile data that couldn't be associated with a specific line: # spent 175µs making 1 call to OpenBSD::PackageRepository::END
# spent 21µs making 1 call to OpenBSD::Temp::END | ||
| 1 | 1 | 4µs | #! /usr/bin/perl | ||
| 2 | # ex:ts=8 sw=4: | ||||
| 3 | # $OpenBSD: pkg_add,v 1.483 2014/12/27 23:59:44 espie Exp $ | ||||
| 4 | # | ||||
| 5 | # Copyright (c) 2010 Marc Espie <espie@openbsd.org> | ||||
| 6 | # | ||||
| 7 | # Permission to use, copy, modify, and distribute this software for any | ||||
| 8 | # purpose with or without fee is hereby granted, provided that the above | ||||
| 9 | # copyright notice and this permission notice appear in all copies. | ||||
| 10 | # | ||||
| 11 | # THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | ||||
| 12 | # WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | ||||
| 13 | # MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | ||||
| 14 | # ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | ||||
| 15 | # WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | ||||
| 16 | # ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | ||||
| 17 | # OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | ||||
| 18 | |||||
| 19 | 2 | 628µs | 2 | 1.35ms | # spent 1.33ms (1.04+286µs) within main::BEGIN@19 which was called:
# once (1.04ms+286µs) by main::NULL at line 19 # spent 1.33ms making 1 call to main::BEGIN@19
# spent 22µs making 1 call to strict::import |
| 20 | 2 | 5.56ms | 2 | 5.78ms | # spent 5.70ms (5.61+89µs) within main::BEGIN@20 which was called:
# once (5.61ms+89µs) by main::NULL at line 20 # spent 5.70ms making 1 call to main::BEGIN@20
# spent 76µs making 1 call to warnings::import |
| 21 | |||||
| 22 | sub run | ||||
| 23 | # spent 2.14s (3.98ms+2.13) within main::run which was called:
# once (3.98ms+2.13s) by main::RUNTIME at line 46 | ||||
| 24 | 1 | 2µs | my ($cmd, $m) = @_; | ||
| 25 | 1 | 3µs | my $module = "OpenBSD::$m"; | ||
| 26 | 1 | 48µs | eval "require $module"; # spent 295µs executing statements in string eval | ||
| 27 | 1 | 800ns | if ($@) { | ||
| 28 | die $@; | ||||
| 29 | } | ||||
| 30 | 1 | 128µs | 1 | 2.09s | exit($module->parse_and_run($cmd)); # spent 2.09s making 1 call to OpenBSD::PkgInfo::parse_and_run |
| 31 | } | ||||
| 32 | |||||
| 33 | 1 | 9µs | my $choices = { | ||
| 34 | pkg_add => 'PkgAdd', | ||||
| 35 | pkg_check => 'PkgCheck', | ||||
| 36 | pkg_create => 'PkgCreate', | ||||
| 37 | pkg_delete => 'PkgDelete', | ||||
| 38 | pkg_info => 'PkgInfo', | ||||
| 39 | pkg_sign => 'PkgSign', | ||||
| 40 | fw_update => 'FwUpdate', | ||||
| 41 | }; | ||||
| 42 | |||||
| 43 | 1 | 4µs | my @l = qw(add check create delete info sign); | ||
| 44 | |||||
| 45 | 1 | 24µs | while (my ($cmd, $module) = each %$choices) { | ||
| 46 | 2 | 168µs | 5 | 2.14s | if ($0 =~ m/\/?\Q$cmd\E$/) { # spent 2.14s making 1 call to main::run
# spent 66µs making 2 calls to main::CORE:regcomp, avg 33µs/call
# spent 23µs making 2 calls to main::CORE:match, avg 12µs/call |
| 47 | run($cmd, $module); | ||||
| 48 | } | ||||
| 49 | } | ||||
| 50 | |||||
| 51 | # defaults to pkg_info personality but keeps the command name | ||||
| 52 | run($0, 'PkgInfo'); | ||||
# spent 176µs within Internals::SvREADONLY which was called 111 times, avg 2µs/call:
# 109 times (172µs+0s) by constant::import at line 164 of constant.pm, avg 2µs/call
# once (3µs+0s) by constant::BEGIN@24 at line 33 of constant.pm
# once (1µs+0s) by constant::BEGIN@24 at line 34 of constant.pm | |||||
# spent 147µs within UNIVERSAL::VERSION which was called 14 times, avg 11µs/call:
# once (26µs+0s) by IO::Uncompress::RawInflate::BEGIN@8 at line 8 of IO/Uncompress/RawInflate.pm
# once (15µs+0s) by IO::Compress::Base::Common::BEGIN@8 at line 23 of Scalar/Util.pm
# once (12µs+0s) by IO::Uncompress::RawInflate::BEGIN@9 at line 9 of IO/Uncompress/RawInflate.pm
# once (11µs+0s) by IO::Compress::Zlib::Extra::BEGIN@13 at line 13 of IO/Compress/Zlib/Extra.pm
# once (10µs+0s) by IO::Uncompress::Base::BEGIN@17 at line 17 of IO/Uncompress/Base.pm
# once (10µs+0s) by IO::Uncompress::RawInflate::BEGIN@11 at line 11 of IO/Uncompress/RawInflate.pm
# once (9µs+0s) by IO::Uncompress::RawInflate::BEGIN@12 at line 12 of IO/Uncompress/RawInflate.pm
# once (9µs+0s) by IO::Uncompress::Adapter::Inflate::BEGIN@7 at line 7 of IO/Uncompress/Adapter/Inflate.pm
# once (9µs+0s) by IO::Uncompress::Gunzip::BEGIN@16 at line 16 of IO/Uncompress/Gunzip.pm
# once (8µs+0s) by IO::Uncompress::Adapter::Inflate::BEGIN@8 at line 8 of IO/Uncompress/Adapter/Inflate.pm
# once (8µs+0s) by IO::Uncompress::Gunzip::BEGIN@12 at line 12 of IO/Uncompress/Gunzip.pm
# once (8µs+0s) by IO::Uncompress::Gunzip::BEGIN@17 at line 17 of IO/Uncompress/Gunzip.pm
# once (7µs+0s) by IO::Uncompress::Gunzip::BEGIN@14 at line 14 of IO/Uncompress/Gunzip.pm
# once (6µs+0s) by IO::Uncompress::Gunzip::BEGIN@15 at line 15 of IO/Uncompress/Gunzip.pm | |||||
# spent 8µs within UNIVERSAL::isa which was called 4 times, avg 2µs/call:
# 4 times (8µs+0s) by IO::Compress::Base::Common::isaFilehandle at line 115 of IO/Compress/Base/Common.pm, avg 2µs/call | |||||
# spent 130µs within mro::method_changed_in which was called 83 times, avg 2µs/call:
# 83 times (130µs+0s) by constant::import at line 198 of constant.pm, avg 2µs/call |