| Filename | /home/vagrant/kohaclone/Koha/Template/Plugin/Koha.pm |
| Statements | Executed 15 statements in 633µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 3 | 3 | 3 | 34µs | 13.8ms | Koha::Template::Plugin::Koha::Preference |
| 1 | 1 | 1 | 32µs | 123µs | Koha::Template::Plugin::Koha::BEGIN@20 |
| 1 | 1 | 1 | 17µs | 20µs | Koha::Template::Plugin::Koha::BEGIN@24 |
| 1 | 1 | 1 | 11µs | 846µs | Koha::Template::Plugin::Koha::BEGIN@22 |
| 1 | 1 | 1 | 7µs | 7µs | Koha::Template::Plugin::Koha::BEGIN@25 |
| 0 | 0 | 0 | 0s | 0s | Koha::Template::Plugin::Koha::Version |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Koha::Template::Plugin::Koha; | ||||
| 2 | |||||
| 3 | # Copyright ByWater Solutions 2013 | ||||
| 4 | |||||
| 5 | # This file is part of Koha. | ||||
| 6 | # | ||||
| 7 | # Koha is free software; you can redistribute it and/or modify it | ||||
| 8 | # under the terms of the GNU General Public License as published by | ||||
| 9 | # the Free Software Foundation; either version 3 of the License, or | ||||
| 10 | # (at your option) any later version. | ||||
| 11 | # | ||||
| 12 | # Koha is distributed in the hope that it will be useful, but | ||||
| 13 | # WITHOUT ANY WARRANTY; without even the implied warranty of | ||||
| 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||||
| 15 | # GNU General Public License for more details. | ||||
| 16 | # | ||||
| 17 | # You should have received a copy of the GNU General Public License | ||||
| 18 | # along with Koha; if not, see <http://www.gnu.org/licenses>. | ||||
| 19 | |||||
| 20 | 2 | 142µs | 2 | 213µs | # spent 123µs (32+90) within Koha::Template::Plugin::Koha::BEGIN@20 which was called:
# once (32µs+90µs) by Template::Plugins::_load at line 20 # spent 123µs making 1 call to Koha::Template::Plugin::Koha::BEGIN@20
# spent 90µs making 1 call to Modern::Perl::import |
| 21 | |||||
| 22 | 2 | 232µs | 2 | 1.68ms | # spent 846µs (11+835) within Koha::Template::Plugin::Koha::BEGIN@22 which was called:
# once (11µs+835µs) by Template::Plugins::_load at line 22 # spent 846µs making 1 call to Koha::Template::Plugin::Koha::BEGIN@22
# spent 835µs making 1 call to base::import |
| 23 | |||||
| 24 | 2 | 38µs | 2 | 23µs | # spent 20µs (17+3) within Koha::Template::Plugin::Koha::BEGIN@24 which was called:
# once (17µs+3µs) by Template::Plugins::_load at line 24 # spent 20µs making 1 call to Koha::Template::Plugin::Koha::BEGIN@24
# spent 3µs making 1 call to C4::Context::import |
| 25 | 2 | 160µs | 1 | 7µs | # spent 7µs within Koha::Template::Plugin::Koha::BEGIN@25 which was called:
# once (7µs+0s) by Template::Plugins::_load at line 25 # spent 7µs making 1 call to Koha::Template::Plugin::Koha::BEGIN@25 |
| 26 | |||||
| 27 | =pod | ||||
| 28 | |||||
| 29 | This plugin contains various Koha replated Template Toolkit functions | ||||
| 30 | to help streamline Koha and to move logic from the Perl code into the | ||||
| 31 | Templates when it makes sense to do so. | ||||
| 32 | |||||
| 33 | To use, first, include the line '[% USE Koha %]' at the top | ||||
| 34 | of the template to enable the plugin. | ||||
| 35 | |||||
| 36 | For example: [% IF Koha.Preference( 'MyPreference ) == 'SettingA' %] | ||||
| 37 | removes the necessity of setting a template variable in Perl code for | ||||
| 38 | each and every system preference, even if no evaluation of the setting | ||||
| 39 | is necessary. | ||||
| 40 | |||||
| 41 | =cut | ||||
| 42 | |||||
| 43 | # spent 13.8ms (34µs+13.7) within Koha::Template::Plugin::Koha::Preference which was called 3 times, avg 4.59ms/call:
# once (12µs+7.81ms) by Template::Stash::XS::get at line 87 of koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-close.inc
# once (15µs+3.30ms) by Template::Stash::XS::get at line 22 of koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-open.inc
# once (7µs+2.64ms) by Template::Stash::XS::get at line 174 of koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt | ||||
| 44 | 3 | 2µs | my ( $self, $pref ) = @_; | ||
| 45 | 3 | 58µs | 3 | 13.7ms | return C4::Context->preference( $pref ); # spent 13.7ms making 3 calls to C4::Context::preference, avg 4.58ms/call |
| 46 | } | ||||
| 47 | |||||
| 48 | sub Version { | ||||
| 49 | my $version_string = Koha::version(); | ||||
| 50 | my ( $major, $minor, $maintenance, $development ) = split( '\.', $version_string ); | ||||
| 51 | |||||
| 52 | return { | ||||
| 53 | major => $major, | ||||
| 54 | release => $major . "." . $minor, | ||||
| 55 | maintenance => $major . "." . $minor . "." . $maintenance, | ||||
| 56 | development => ( $development ne '000' ) ? $development : undef, | ||||
| 57 | }; | ||||
| 58 | } | ||||
| 59 | |||||
| 60 | 1 | 3µs | 1; |