← Index
NYTProf Performance Profile   « block view • line view • sub view »
For C:/lo/libo-master/solenv/bin/make_installer.pl
  Run on Mon Sep 24 00:52:54 2012
Reported on Mon Sep 24 07:34:45 2012

Filename/usr/lib/perl5/5.14/i686-cygwin-threads-64int/lib.pm
StatementsExecuted 31 statements in 7.33ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1115.22ms15.8mslib::::BEGIN@6lib::BEGIN@6
441463µs463µslib::::CORE:ftdirlib::CORE:ftdir (opcode)
111134µs134µslib::::CORE:ftislib::CORE:ftis (opcode)
111114µs736µslib::::importlib::import
11118µs18µslib::::_get_dirslib::_get_dirs
11117µs22µslib::::BEGIN@8lib::BEGIN@8
1117µs7µslib::::CORE:matchlib::CORE:match (opcode)
0000s0slib::::unimportlib::unimport
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package lib;
2
3# THIS FILE IS AUTOMATICALLY GENERATED FROM lib_pm.PL.
4# ANY CHANGES TO THIS FILE WILL BE OVERWRITTEN BY THE NEXT PERL BUILD.
5
625.63ms215.9ms
# spent 15.8ms (5.22+10.6) within lib::BEGIN@6 which was called: # once (5.22ms+10.6ms) by main::BEGIN@31 at line 6
use Config;
# spent 15.8ms making 1 call to lib::BEGIN@6 # spent 114µs making 1 call to Config::import
7
82886µs227µs
# spent 22µs (17+5) within lib::BEGIN@8 which was called: # once (17µs+5µs) by main::BEGIN@31 at line 8
use strict;
# spent 22µs making 1 call to lib::BEGIN@8 # spent 5µs making 1 call to strict::import
9
10116µs19µsmy $archname = $Config{archname};
# spent 9µs making 1 call to Config::FETCH
1118µs15µsmy $version = $Config{version};
# spent 5µs making 1 call to Config::FETCH
12114µs14µsmy @inc_version_list = reverse split / /, $Config{inc_version_list};
# spent 4µs making 1 call to Config::FETCH
13
14
1518µsour @ORIG_INC = @INC; # take a handy copy of 'original' value
1611µsour $VERSION = '0.63';
17
18
# spent 736µs (114+622) within lib::import which was called: # once (114µs+622µs) by main::BEGIN@31 at line 31 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/make_installer.pl
sub import {
191500ns shift;
20
211600ns my %names;
2213µs foreach (reverse @_) {
2311µs my $path = $_; # we'll be modifying it, so break the alias
241500ns if ($path eq '') {
25 require Carp;
26 Carp::carp("Empty compile time value given to use lib");
27 }
28
291172µs3144µs if ($path !~ /\.par$/i && -e $path && ! -d _) {
# spent 134µs making 1 call to lib::CORE:ftis # spent 7µs making 1 call to lib::CORE:match # spent 2µs making 1 call to lib::CORE:ftdir
30 require Carp;
31 Carp::carp("Parameter to use lib must be directory, not file");
32 }
3313µs unshift(@INC, $path);
34 # Add any previous version directories we found at configure time
3513µs foreach my $incver (@inc_version_list)
36 {
37 my $dir = "$path/$incver";
38 unshift(@INC, $dir) if -d $dir;
39 }
40 # Put a corresponding archlib directory in front of $path if it
41 # looks like $path has an archlib directory below it.
4215µs118µs my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir)
# spent 18µs making 1 call to lib::_get_dirs
43 = _get_dirs($path);
441176µs1169µs unshift(@INC, $arch_dir) if -d $arch_auto_dir;
# spent 169µs making 1 call to lib::CORE:ftdir
451167µs1160µs unshift(@INC, $version_dir) if -d $version_dir;
# spent 160µs making 1 call to lib::CORE:ftdir
461140µs1131µs unshift(@INC, $version_arch_dir) if -d $version_arch_dir;
# spent 131µs making 1 call to lib::CORE:ftdir
47 }
48
49 # remove trailing duplicates
50136µs @INC = grep { ++$names{$_} == 1 } @INC;
51111µs return;
52}
53
54
55sub unimport {
56 shift;
57
58 my %names;
59 foreach my $path (@_) {
60 my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir)
61 = _get_dirs($path);
62 ++$names{$path};
63 ++$names{$arch_dir} if -d $arch_auto_dir;
64 ++$names{$version_dir} if -d $version_dir;
65 ++$names{$version_arch_dir} if -d $version_arch_dir;
66 }
67
68 # Remove ALL instances of each named directory.
69 @INC = grep { !exists $names{$_} } @INC;
70 return;
71}
72
73
# spent 18µs within lib::_get_dirs which was called: # once (18µs+0s) by lib::import at line 42
sub _get_dirs {
7412µs my($dir) = @_;
7511µs my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir);
76
7713µs $arch_auto_dir = "$dir/$archname/auto";
7812µs $arch_dir = "$dir/$archname";
7912µs $version_dir = "$dir/$version";
8013µs $version_arch_dir = "$dir/$version/$archname";
81
8219µs return($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir);
83}
84
85127µs1;
86__END__
 
# spent 463µs within lib::CORE:ftdir which was called 4 times, avg 116µs/call: # once (169µs+0s) by lib::import at line 44 # once (160µs+0s) by lib::import at line 45 # once (131µs+0s) by lib::import at line 46 # once (2µs+0s) by lib::import at line 29
sub lib::CORE:ftdir; # opcode
# spent 134µs within lib::CORE:ftis which was called: # once (134µs+0s) by lib::import at line 29
sub lib::CORE:ftis; # opcode
# spent 7µs within lib::CORE:match which was called: # once (7µs+0s) by lib::import at line 29
sub lib::CORE:match; # opcode