← Index
NYTProf Performance Profile   « line view »
For webmerge/scripts/webmerge.pl
  Run on Mon Oct 7 02:42:42 2013
Reported on Mon Oct 7 03:03:25 2013

Filename/home/ocbnet/domain/ocbnet.ch/vhost/webmerge/htdocs/webmerge/scripts/modules/RTP/Webmerge/Optimize/GZ.pm
StatementsExecuted 20 statements in 2.08ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11188µs376µsRTP::Webmerge::Optimize::GZ::::BEGIN@8RTP::Webmerge::Optimize::GZ::BEGIN@8
11157µs90µsRTP::Webmerge::Optimize::GZ::::BEGIN@10RTP::Webmerge::Optimize::GZ::BEGIN@10
11156µs828µsRTP::Webmerge::Optimize::GZ::::BEGIN@29RTP::Webmerge::Optimize::GZ::BEGIN@29
11154µs140µsRTP::Webmerge::Optimize::GZ::::BEGIN@9RTP::Webmerge::Optimize::GZ::BEGIN@9
11152µs52µsRTP::Webmerge::Optimize::GZ::::__ANON__[:47]RTP::Webmerge::Optimize::GZ::__ANON__[:47]
11124µs24µsRTP::Webmerge::Optimize::GZ::::BEGIN@16RTP::Webmerge::Optimize::GZ::BEGIN@16
11122µs22µsRTP::Webmerge::Optimize::GZ::::BEGIN@24RTP::Webmerge::Optimize::GZ::BEGIN@24
11119µs19µsRTP::Webmerge::Optimize::GZ::::__ANON__[:72]RTP::Webmerge::Optimize::GZ::__ANON__[:72]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1###################################################################################################
2# Copyright 2013 by Marcel Greter
3# This file is part of Webmerge (GPL3)
4###################################################################################################
5package RTP::Webmerge::Optimize::GZ;
6###################################################################################################
7
82165µs2664µs
# spent 376µs (88+288) within RTP::Webmerge::Optimize::GZ::BEGIN@8 which was called: # once (88µs+288µs) by main::BEGIN@52 at line 8
use Carp;
# spent 376µs making 1 call to RTP::Webmerge::Optimize::GZ::BEGIN@8 # spent 288µs making 1 call to Exporter::import
92162µs2225µs
# spent 140µs (54+86) within RTP::Webmerge::Optimize::GZ::BEGIN@9 which was called: # once (54µs+86µs) by main::BEGIN@52 at line 9
use strict;
# spent 140µs making 1 call to RTP::Webmerge::Optimize::GZ::BEGIN@9 # spent 86µs making 1 call to strict::import
102244µs2122µs
# spent 90µs (57+33) within RTP::Webmerge::Optimize::GZ::BEGIN@10 which was called: # once (57µs+33µs) by main::BEGIN@52 at line 10
use warnings;
# spent 90µs making 1 call to RTP::Webmerge::Optimize::GZ::BEGIN@10 # spent 33µs making 1 call to warnings::import
11
12###################################################################################################
13
14# setup some global settings
15BEGIN
16
# spent 24µs within RTP::Webmerge::Optimize::GZ::BEGIN@16 which was called: # once (24µs+0s) by main::BEGIN@52 at line 19
{
17 # enable (or disable) different optimizer executables
18127µs $ENV{'WEBMERGE_ADVDEF'} = 1 unless exists $ENV{'WEBMERGE_ADVDEF'};
191143µs124µs}
# spent 24µs making 1 call to RTP::Webmerge::Optimize::GZ::BEGIN@16
20
21###################################################################################################
22
23# define our version string
241148µs122µs
# spent 22µs within RTP::Webmerge::Optimize::GZ::BEGIN@24 which was called: # once (22µs+0s) by main::BEGIN@52 at line 24
BEGIN { $RTP::Webmerge::Optimize::GZ::VERSION = "0.70" }
# spent 22µs making 1 call to RTP::Webmerge::Optimize::GZ::BEGIN@24
25
26###################################################################################################
27
28# load webmberge module variables to hook into
2921.02ms21.60ms
# spent 828µs (56+772) within RTP::Webmerge::Optimize::GZ::BEGIN@29 which was called: # once (56µs+772µs) by main::BEGIN@52 at line 29
use RTP::Webmerge qw(@initers @checkers %executables range);
# spent 828µs making 1 call to RTP::Webmerge::Optimize::GZ::BEGIN@29 # spent 772µs making 1 call to Exporter::import
30
31###################################################################################################
32
33# push to initers
34# return for getOpts
35push @initers, sub
36
# spent 52µs within RTP::Webmerge::Optimize::GZ::__ANON__[/home/ocbnet/domain/ocbnet.ch/vhost/webmerge/htdocs/webmerge/scripts/modules/RTP/Webmerge/Optimize/GZ.pm:47] which was called: # once (52µs+0s) by RTP::Webmerge::initConfig at line 263 of webmerge/scripts/modules/RTP/Webmerge.pm
{
37
38 # get config
3916µs my ($config) = @_;
40
41 # create config variable to be available
4219µs $config->{'optimize-gz'} = 1;
43
44 # connect each tmpl variable with the getOpt option
45154µs return ('optimize-gz|gz!', \ $config->{'cmd_optimize-gz'});
46
47115µs};
48# EO push initer
49
50###################################################################################################
51
52# push to checkers
53push @checkers, sub
54
# spent 19µs within RTP::Webmerge::Optimize::GZ::__ANON__[/home/ocbnet/domain/ocbnet.ch/vhost/webmerge/htdocs/webmerge/scripts/modules/RTP/Webmerge/Optimize/GZ.pm:72] which was called: # once (19µs+0s) by RTP::Webmerge::checkConfig at line 290 of webmerge/scripts/modules/RTP/Webmerge.pm
{
55
56 # get config
5713µs my ($config) = @_;
58
59 # disable if not optimizing
6014µs unless ($config->{'optimize'})
61 { $config->{'optimize-gz'} = 0; }
62
63 # do nothing if feature is disabled
64126µs return unless $config->{'optimize-gz'};
65
66 # get the optimization level (1 to 4)
67 my $lvl = '-' . range($config->{'level'}, 1, 5, 4);
68
69 # define executables to optimize gz archives
70 $executables{'advdef[gz]'} = ['gzopt', "-z $lvl --quiet \"%s\"", 2] if $ENV{'WEBMERGE_ADVDEF'};
71
72113µs};
73# EO push checker
74
75###################################################################################################
76
77# now create a new file optimizer subroutine and hook it into our optimizers
78120µs135µs$RTP::Webmerge::Optimize::optimizer{'gz'} = RTP::Webmerge::Optimize::optimize('gz');
# spent 35µs making 1 call to RTP::Webmerge::Optimize::optimize
79
80###################################################################################################
81###################################################################################################
82122µs1;