← 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/GIF.pm
StatementsExecuted 20 statements in 2.49ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11189µs372µsRTP::Webmerge::Optimize::GIF::::BEGIN@8RTP::Webmerge::Optimize::GIF::BEGIN@8
11155µs85µsRTP::Webmerge::Optimize::GIF::::BEGIN@10RTP::Webmerge::Optimize::GIF::BEGIN@10
11153µs736µsRTP::Webmerge::Optimize::GIF::::BEGIN@29RTP::Webmerge::Optimize::GIF::BEGIN@29
11152µs140µsRTP::Webmerge::Optimize::GIF::::BEGIN@9RTP::Webmerge::Optimize::GIF::BEGIN@9
11142µs42µsRTP::Webmerge::Optimize::GIF::::BEGIN@16RTP::Webmerge::Optimize::GIF::BEGIN@16
11125µs25µsRTP::Webmerge::Optimize::GIF::::__ANON__[:47]RTP::Webmerge::Optimize::GIF::__ANON__[:47]
11122µs22µsRTP::Webmerge::Optimize::GIF::::__ANON__[:72]RTP::Webmerge::Optimize::GIF::__ANON__[:72]
11122µs22µsRTP::Webmerge::Optimize::GIF::::BEGIN@24RTP::Webmerge::Optimize::GIF::BEGIN@24
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::GIF;
6###################################################################################################
7
82180µs2655µs
# spent 372µs (89+283) within RTP::Webmerge::Optimize::GIF::BEGIN@8 which was called: # once (89µs+283µs) by main::BEGIN@47 at line 8
use Carp;
# spent 372µs making 1 call to RTP::Webmerge::Optimize::GIF::BEGIN@8 # spent 283µs making 1 call to Exporter::import
92146µs2229µs
# spent 140µs (52+89) within RTP::Webmerge::Optimize::GIF::BEGIN@9 which was called: # once (52µs+89µs) by main::BEGIN@47 at line 9
use strict;
# spent 140µs making 1 call to RTP::Webmerge::Optimize::GIF::BEGIN@9 # spent 89µs making 1 call to strict::import
102241µs2116µs
# spent 85µs (55+31) within RTP::Webmerge::Optimize::GIF::BEGIN@10 which was called: # once (55µs+31µs) by main::BEGIN@47 at line 10
use warnings;
# spent 85µs making 1 call to RTP::Webmerge::Optimize::GIF::BEGIN@10 # spent 31µs making 1 call to warnings::import
11
12###################################################################################################
13
14# setup some global settings
15BEGIN
16
# spent 42µs within RTP::Webmerge::Optimize::GIF::BEGIN@16 which was called: # once (42µs+0s) by main::BEGIN@47 at line 19
{
17 # enable (or disable) different optimizer executables
18147µs $ENV{'WEBMERGE_GIFSICLE'} = 1 unless exists $ENV{'WEBMERGE_GIFSICLE'};
191142µs142µs}
# spent 42µs making 1 call to RTP::Webmerge::Optimize::GIF::BEGIN@16
20
21###################################################################################################
22
23# define our version string
241161µs122µs
# spent 22µs within RTP::Webmerge::Optimize::GIF::BEGIN@24 which was called: # once (22µs+0s) by main::BEGIN@47 at line 24
BEGIN { $RTP::Webmerge::Optimize::GIF::VERSION = "0.70" }
# spent 22µs making 1 call to RTP::Webmerge::Optimize::GIF::BEGIN@24
25
26###################################################################################################
27
28# load webmberge module variables to hook into
2921.42ms21.42ms
# spent 736µs (53+682) within RTP::Webmerge::Optimize::GIF::BEGIN@29 which was called: # once (53µs+682µs) by main::BEGIN@47 at line 29
use RTP::Webmerge qw(@initers @checkers %executables range);
# spent 736µs making 1 call to RTP::Webmerge::Optimize::GIF::BEGIN@29 # spent 682µs making 1 call to Exporter::import
30
31###################################################################################################
32
33# push to initers
34# return for getOpts
35push @initers, sub
36
# spent 25µs within RTP::Webmerge::Optimize::GIF::__ANON__[/home/ocbnet/domain/ocbnet.ch/vhost/webmerge/htdocs/webmerge/scripts/modules/RTP/Webmerge/Optimize/GIF.pm:47] which was called: # once (25µs+0s) by RTP::Webmerge::initConfig at line 263 of webmerge/scripts/modules/RTP/Webmerge.pm
{
37
38 # get config
3914µs my ($config) = @_;
40
41 # create config variable to be available
4213µs $config->{'optimize-gif'} = undef;
43
44 # connect each tmpl variable with the getOpt option
45130µs return ('optimize-gif|gif!', \ $config->{'cmd_optimize-gif'});
46
47120µs};
48# EO push initer
49
50###################################################################################################
51
52# push to checkers
53push @checkers, sub
54
# spent 22µs within RTP::Webmerge::Optimize::GIF::__ANON__[/home/ocbnet/domain/ocbnet.ch/vhost/webmerge/htdocs/webmerge/scripts/modules/RTP/Webmerge/Optimize/GIF.pm:72] which was called: # once (22µs+0s) by RTP::Webmerge::checkConfig at line 290 of webmerge/scripts/modules/RTP/Webmerge.pm
{
55
56 # get config
5715µs my ($config) = @_;
58
59 # disable if not optimizing
6015µs unless ($config->{'optimize'})
61 { $config->{'optimize-gif'} = 0; }
62
63 # do nothing if feature is disabled
64127µs return unless $config->{'optimize-gif'};
65
66 # get the optimization level (1 to 3)
67 my $lvl = '-O' . range($config->{'level'}, 1, 4, 3);
68
69 # define executables to optimize gifs
70 $executables{'gifsicle'} = ['gifopt', "$lvl -o \"%s\" \"%s\""] if $ENV{'WEBMERGE_GIFSICLE'};
71
72114µs};
73# EO push checker
74
75###################################################################################################
76
77# now create a new file optimizer subroutine and hook it into our optimizers
78122µs138µs$RTP::Webmerge::Optimize::optimizer{'gif'} = RTP::Webmerge::Optimize::optimize('gif');
# spent 38µs making 1 call to RTP::Webmerge::Optimize::optimize
79
80###################################################################################################
81###################################################################################################
82123µs1;