← Index
NYTProf Performance Profile   « line view »
For bin/benchmark-perlformance
  Run on Fri Apr 17 15:31:48 2015
Reported on Fri Apr 17 15:32:03 2015

Filename/home/ss5/perl5/perlbrew/perls/tapper-perl/lib/site_perl/5.16.3/Sys/Info/Constants.pm
StatementsExecuted 56 statements in 662µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11114µs14µsSys::Info::Constants::::BEGIN@10Sys::Info::Constants::BEGIN@10
11113µs34µsSys::Info::Constants::::BEGIN@44Sys::Info::Constants::BEGIN@44
11111µs21µsSys::Info::Constants::::BEGIN@2Sys::Info::Constants::BEGIN@2
1119µs50µsSys::Info::Constants::::BEGIN@24Sys::Info::Constants::BEGIN@24
1118µs70µsSys::Info::Constants::::BEGIN@6Sys::Info::Constants::BEGIN@6
1117µs10µsSys::Info::Constants::::BEGIN@3Sys::Info::Constants::BEGIN@3
1117µs25µsSys::Info::Constants::::BEGIN@5Sys::Info::Constants::BEGIN@5
1117µs26µsSys::Info::Constants::::BEGIN@42Sys::Info::Constants::BEGIN@42
1117µs26µsSys::Info::Constants::::BEGIN@39Sys::Info::Constants::BEGIN@39
1116µs28µsSys::Info::Constants::::BEGIN@27Sys::Info::Constants::BEGIN@27
1116µs29µsSys::Info::Constants::::BEGIN@25Sys::Info::Constants::BEGIN@25
1116µs26µsSys::Info::Constants::::BEGIN@35Sys::Info::Constants::BEGIN@35
1116µs30µsSys::Info::Constants::::BEGIN@36Sys::Info::Constants::BEGIN@36
1116µs43µsSys::Info::Constants::::BEGIN@4Sys::Info::Constants::BEGIN@4
1116µs24µsSys::Info::Constants::::BEGIN@40Sys::Info::Constants::BEGIN@40
1116µs27µsSys::Info::Constants::::BEGIN@30Sys::Info::Constants::BEGIN@30
1116µs26µsSys::Info::Constants::::BEGIN@41Sys::Info::Constants::BEGIN@41
1116µs26µsSys::Info::Constants::::BEGIN@46Sys::Info::Constants::BEGIN@46
1116µs29µsSys::Info::Constants::::BEGIN@32Sys::Info::Constants::BEGIN@32
1116µs25µsSys::Info::Constants::::BEGIN@34Sys::Info::Constants::BEGIN@34
1116µs27µsSys::Info::Constants::::BEGIN@26Sys::Info::Constants::BEGIN@26
1116µs26µsSys::Info::Constants::::BEGIN@29Sys::Info::Constants::BEGIN@29
1115µs25µsSys::Info::Constants::::BEGIN@37Sys::Info::Constants::BEGIN@37
1115µs24µsSys::Info::Constants::::BEGIN@48Sys::Info::Constants::BEGIN@48
1112µs2µsSys::Info::Constants::::CORE:qrSys::Info::Constants::CORE:qr (opcode)
0000s0sSys::Info::Constants::::__ANON__[:20]Sys::Info::Constants::__ANON__[:20]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Sys::Info::Constants;
2220µs231µs
# spent 21µs (11+10) within Sys::Info::Constants::BEGIN@2 which was called: # once (11µs+10µs) by Sys::Info::BEGIN@6 at line 2
use strict;
# spent 21µs making 1 call to Sys::Info::Constants::BEGIN@2 # spent 10µs making 1 call to strict::import
3219µs213µs
# spent 10µs (7+3) within Sys::Info::Constants::BEGIN@3 which was called: # once (7µs+3µs) by Sys::Info::BEGIN@6 at line 3
use warnings;
# spent 10µs making 1 call to Sys::Info::Constants::BEGIN@3 # spent 3µs making 1 call to warnings::import
4218µs279µs
# spent 43µs (6+37) within Sys::Info::Constants::BEGIN@4 which was called: # once (6µs+37µs) by Sys::Info::BEGIN@6 at line 4
use vars qw( $VERSION @EXPORT_OK %EXPORT_TAGS );
# spent 43µs making 1 call to Sys::Info::Constants::BEGIN@4 # spent 37µs making 1 call to vars::import
5218µs244µs
# spent 25µs (7+18) within Sys::Info::Constants::BEGIN@5 which was called: # once (7µs+18µs) by Sys::Info::BEGIN@6 at line 5
use Carp qw( croak );
# spent 25µs making 1 call to Sys::Info::Constants::BEGIN@5 # spent 18µs making 1 call to Exporter::import
6278µs2132µs
# spent 70µs (8+62) within Sys::Info::Constants::BEGIN@6 which was called: # once (8µs+62µs) by Sys::Info::BEGIN@6 at line 6
use base qw( Exporter );
# spent 70µs making 1 call to Sys::Info::Constants::BEGIN@6 # spent 62µs making 1 call to base::import
7
81400ns$VERSION = '0.7804';
9
10
# spent 14µs within Sys::Info::Constants::BEGIN@10 which was called: # once (14µs+0s) by Sys::Info::BEGIN@6 at line 22
BEGIN {
1115µs if ( ! defined &OSID ) {
1212µs my %OS = (
13 MSWin32 => 'Windows',
14 MSWin64 => 'Windows',
15 linux => 'Linux',
16 darwin => 'OSX',
17 );
1814µs $OS{$_} = 'BSD' for qw( freebsd openbsd netbsd );
1911µs my $ID = $OS{ $^O } || 'Unknown';
20 *OSID = sub () { "$ID" }
2113µs }
22114µs114µs}
# spent 14µs making 1 call to Sys::Info::Constants::BEGIN@10
23
24221µs291µs
# spent 50µs (9+41) within Sys::Info::Constants::BEGIN@24 which was called: # once (9µs+41µs) by Sys::Info::BEGIN@6 at line 24
use constant DCPU_LOAD_LAST_01 => 0;
# spent 50µs making 1 call to Sys::Info::Constants::BEGIN@24 # spent 41µs making 1 call to constant::import
25218µs252µs
# spent 29µs (6+23) within Sys::Info::Constants::BEGIN@25 which was called: # once (6µs+23µs) by Sys::Info::BEGIN@6 at line 25
use constant DCPU_LOAD_LAST_05 => 1;
# spent 29µs making 1 call to Sys::Info::Constants::BEGIN@25 # spent 23µs making 1 call to constant::import
26223µs249µs
# spent 27µs (6+22) within Sys::Info::Constants::BEGIN@26 which was called: # once (6µs+22µs) by Sys::Info::BEGIN@6 at line 26
use constant DCPU_LOAD_LAST_10 => 2;
# spent 27µs making 1 call to Sys::Info::Constants::BEGIN@26 # spent 22µs making 1 call to constant::import
27220µs250µs
# spent 28µs (6+22) within Sys::Info::Constants::BEGIN@27 which was called: # once (6µs+22µs) by Sys::Info::BEGIN@6 at line 27
use constant DCPU_LOAD => (0..2);
# spent 28µs making 1 call to Sys::Info::Constants::BEGIN@27 # spent 22µs making 1 call to constant::import
28
29231µs248µs
# spent 26µs (6+21) within Sys::Info::Constants::BEGIN@29 which was called: # once (6µs+21µs) by Sys::Info::BEGIN@6 at line 29
use constant WIN_REG_HW_KEY => 'HKEY_LOCAL_MACHINE/HARDWARE/';
# spent 26µs making 1 call to Sys::Info::Constants::BEGIN@29 # spent 21µs making 1 call to constant::import
3014µs122µs
# spent 27µs (6+22) within Sys::Info::Constants::BEGIN@30 which was called: # once (6µs+22µs) by Sys::Info::BEGIN@6 at line 31
use constant WIN_REG_CPU_KEY => WIN_REG_HW_KEY
# spent 22µs making 1 call to constant::import
31118µs127µs . q{DESCRIPTION/System/CentralProcessor};
# spent 27µs making 1 call to Sys::Info::Constants::BEGIN@30
3214µs124µs
# spent 29µs (6+24) within Sys::Info::Constants::BEGIN@32 which was called: # once (6µs+24µs) by Sys::Info::BEGIN@6 at line 33
use constant WIN_REG_CDKEY => q{HKEY_LOCAL_MACHINE/Software/Microsoft/}
# spent 24µs making 1 call to constant::import
33116µs129µs . q{Windows NT/CurrentVersion//DigitalProductId};
# spent 29µs making 1 call to Sys::Info::Constants::BEGIN@32
34221µs245µs
# spent 25µs (6+20) within Sys::Info::Constants::BEGIN@34 which was called: # once (6µs+20µs) by Sys::Info::BEGIN@6 at line 34
use constant WIN_REG_OCDKEY => q{HKEY_LOCAL_MACHINE/Software/Microsoft/Office};
# spent 25µs making 1 call to Sys::Info::Constants::BEGIN@34 # spent 20µs making 1 call to constant::import
35223µs246µs
# spent 26µs (6+20) within Sys::Info::Constants::BEGIN@35 which was called: # once (6µs+20µs) by Sys::Info::BEGIN@6 at line 35
use constant WIN_WMI_DATE_TMPL => 'A4 A2 A2 A2 A2 A2';
# spent 26µs making 1 call to Sys::Info::Constants::BEGIN@35 # spent 20µs making 1 call to constant::import
36220µs254µs
# spent 30µs (6+24) within Sys::Info::Constants::BEGIN@36 which was called: # once (6µs+24µs) by Sys::Info::BEGIN@6 at line 36
use constant WIN_B24_DIGITS => qw( B C D F G H J K M P Q R T V W X Y 2 3 4 6 7 8 9 );
# spent 30µs making 1 call to Sys::Info::Constants::BEGIN@36 # spent 24µs making 1 call to constant::import
37225µs245µs
# spent 25µs (5+20) within Sys::Info::Constants::BEGIN@37 which was called: # once (5µs+20µs) by Sys::Info::BEGIN@6 at line 37
use constant WIN_USER_INFO_LEVEL => 3;
# spent 25µs making 1 call to Sys::Info::Constants::BEGIN@37 # spent 20µs making 1 call to constant::import
38
39222µs245µs
# spent 26µs (7+19) within Sys::Info::Constants::BEGIN@39 which was called: # once (7µs+19µs) by Sys::Info::BEGIN@6 at line 39
use constant DATE_WEEKDAYS => qw( Sun Mon Tue Wed Thu Fri Sat );
# spent 26µs making 1 call to Sys::Info::Constants::BEGIN@39 # spent 19µs making 1 call to constant::import
40219µs242µs
# spent 24µs (6+18) within Sys::Info::Constants::BEGIN@40 which was called: # once (6µs+18µs) by Sys::Info::BEGIN@6 at line 40
use constant DATE_MONTHS => qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
# spent 24µs making 1 call to Sys::Info::Constants::BEGIN@40 # spent 18µs making 1 call to constant::import
41221µs246µs
# spent 26µs (6+20) within Sys::Info::Constants::BEGIN@41 which was called: # once (6µs+20µs) by Sys::Info::BEGIN@6 at line 41
use constant DATE_MKTIME_YDAY => 0;
# spent 26µs making 1 call to Sys::Info::Constants::BEGIN@41 # spent 20µs making 1 call to constant::import
42228µs246µs
# spent 26µs (7+20) within Sys::Info::Constants::BEGIN@42 which was called: # once (7µs+20µs) by Sys::Info::BEGIN@6 at line 42
use constant DATE_MKTIME_ISDST => -1;
# spent 26µs making 1 call to Sys::Info::Constants::BEGIN@42 # spent 20µs making 1 call to constant::import
43
44232µs356µs
# spent 34µs (13+21) within Sys::Info::Constants::BEGIN@44 which was called: # once (13µs+21µs) by Sys::Info::BEGIN@6 at line 44
use constant UN_RE_BUILD => qr{\A Build \s+ (\d+) .* \z}xmsi;
# spent 34µs making 1 call to Sys::Info::Constants::BEGIN@44 # spent 20µs making 1 call to constant::import # spent 2µs making 1 call to Sys::Info::Constants::CORE:qr
45
46218µs245µs
# spent 26µs (6+20) within Sys::Info::Constants::BEGIN@46 which was called: # once (6µs+20µs) by Sys::Info::BEGIN@6 at line 46
use constant NEW_PERL => $] >= 5.008;
# spent 26µs making 1 call to Sys::Info::Constants::BEGIN@46 # spent 20µs making 1 call to constant::import
47
48277µs243µs
# spent 24µs (5+19) within Sys::Info::Constants::BEGIN@48 which was called: # once (5µs+19µs) by Sys::Info::BEGIN@6 at line 48
use constant USER_REAL_NAME_FIELD => 6;
# spent 24µs making 1 call to Sys::Info::Constants::BEGIN@48 # spent 19µs making 1 call to constant::import
49
5016µs%EXPORT_TAGS = (
51 device_cpu => [qw/
52 DCPU_LOAD_LAST_01
53 DCPU_LOAD_LAST_05
54 DCPU_LOAD_LAST_10
55 DCPU_LOAD
56 /],
57 windows_reg => [qw/
58 WIN_REG_HW_KEY
59 WIN_REG_CPU_KEY
60 WIN_REG_CDKEY
61 WIN_REG_OCDKEY
62 /],
63 windows_wmi => [qw/
64 WIN_WMI_DATE_TMPL
65 /],
66 windows_etc => [qw/
67 WIN_B24_DIGITS
68 WIN_USER_INFO_LEVEL
69 /],
70 date => [qw/
71 DATE_WEEKDAYS
72 DATE_MONTHS
73 DATE_MKTIME_YDAY
74 DATE_MKTIME_ISDST
75 /],
76
77 unknown => [qw/
78 UN_RE_BUILD
79 /],
80
81 general => [qw/
82 OSID
83 NEW_PERL
84 USER_REAL_NAME_FIELD
85 /],
86);
87
8816µs@EXPORT_OK = map { @{ $_ } } values %EXPORT_TAGS;
8911µs$EXPORT_TAGS{all} = \@EXPORT_OK;
90
9116µs1;
92
93__END__
 
# spent 2µs within Sys::Info::Constants::CORE:qr which was called: # once (2µs+0s) by Sys::Info::Constants::BEGIN@44 at line 44
sub Sys::Info::Constants::CORE:qr; # opcode