← Index
NYTProf Performance Profile   « line view »
For ./view
  Run on Fri Jul 31 18:42:36 2015
Reported on Fri Jul 31 18:48:13 2015

Filename/var/www/foswikidev/core/bin/setlib.cfg
StatementsExecuted 17 statements in 712µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1115.70ms6.15msFoswiki::::BEGIN@28Foswiki::BEGIN@28
11133µs78µsFoswiki::::BEGIN@18Foswiki::BEGIN@18
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# See bottom of file for license and copyright information
2#
3# setlib.cfg: determines the defaults for Foswiki and Perl library paths
4
5###########################################################################
6# DO NOT CHANGE THIS FILE - instead, create a file called LocalLib.cfg #
7# using the LocalLib.cfg.txt template file and customise your settings in #
8# there. They will override any settings in this file. #
9###########################################################################
10
11# for development, you can enable ASSERTS by adding
12# $ENV{FOSWIKI_ASSERTS} = 1;
13# to your bin/LocalLib.cfg
14
15# Declare package Foswiki, so globals end up in $Foswiki space
16package Foswiki;
17
182143µs2123µs
# spent 78µs (33+45) within Foswiki::BEGIN@18 which was called: # once (33µs+45µs) by main::BEGIN@8 at line 18
use vars qw( $foswikiLibPath @localPerlLibPath );
# spent 78µs making 1 call to Foswiki::BEGIN@18 # spent 45µs making 1 call to vars::import
19
2011µsmy $LocalLib = __FILE__; # the dir where this setlib.cfg resides
2116µs$LocalLib =~ s/setlib.cfg$/LocalLib.cfg/;
2215µsrequire $LocalLib if -r $LocalLib;
23# if foswikiLibPath isn't defined, then see if $twikiLibPath is
24# for compatibility
251700ns$foswikiLibPath = $twikiLibPath unless defined( $foswikiLibPath );
26
2711µsunless (( defined ($foswikiLibPath) ) and (-e $foswikiLibPath)) {
282482µs26.20ms
# spent 6.15ms (5.70+448µs) within Foswiki::BEGIN@28 which was called: # once (5.70ms+448µs) by main::BEGIN@8 at line 28
use Cwd qw( abs_path );
# spent 6.15ms making 1 call to Foswiki::BEGIN@28 # spent 45µs making 1 call to Exporter::import
291500ns my $bindir = __FILE__;
3012µs $bindir =~ s/setlib.cfg$//;
31148µs129µs ( $foswikiLibPath ) = ($foswikiLibPath = Cwd::abs_path( "$bindir../lib" )) =~ /(.*)/;
# spent 29µs making 1 call to Cwd::abs_path
32}
331600nsif ($foswikiLibPath eq "") {
34 $foswikiLibPath = "../lib";
35 warn "using relative path for libs - some plugins may break";
36}
37
38# Prepend to @INC, the Perl search path for modules
3912µsunshift @INC, $foswikiLibPath;
401500nsunshift @INC, @localPerlLibPath if @localPerlLibPath;
41# Append lib/CPAN/lib for absolutely needed dependencies
4212µspush @INC, "$foswikiLibPath/CPAN/lib";
43
44119µs1; # Return success for module loading
45
46__END__