← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 17:10:45 2013
Reported on Tue Oct 15 17:11:36 2013

Filename/usr/share/koha/lib/C4/Boolean.pm
StatementsExecuted 19 statements in 403µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11124µs60µsC4::Boolean::::BEGIN@25C4::Boolean::BEGIN@25
11121µs27µsC4::Boolean::::BEGIN@24C4::Boolean::BEGIN@24
11115µs120µsC4::Boolean::::BEGIN@28C4::Boolean::BEGIN@28
11114µs62µsC4::Boolean::::BEGIN@27C4::Boolean::BEGIN@27
11114µs85µsC4::Boolean::::BEGIN@55C4::Boolean::BEGIN@55
0000s0sC4::Boolean::::true_pC4::Boolean::true_p
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package C4::Boolean;
2
3#package to handle Boolean values in the parameters table
4# Note: This is just a utility module; it should not be instantiated.
5
6
7# Copyright 2003 Katipo Communications
8#
9# This file is part of Koha.
10#
11# Koha is free software; you can redistribute it and/or modify it under the
12# terms of the GNU General Public License as published by the Free Software
13# Foundation; either version 2 of the License, or (at your option) any later
14# version.
15#
16# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
17# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
18# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
19#
20# You should have received a copy of the GNU General Public License along
21# with Koha; if not, write to the Free Software Foundation, Inc.,
22# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
23
24354µs232µs
# spent 27µs (21+5) within C4::Boolean::BEGIN@24 which was called: # once (21µs+5µs) by C4::Context::BEGIN@104 at line 24
use strict;
# spent 27µs making 1 call to C4::Boolean::BEGIN@24 # spent 5µs making 1 call to strict::import
25344µs295µs
# spent 60µs (24+35) within C4::Boolean::BEGIN@25 which was called: # once (24µs+35µs) by C4::Context::BEGIN@104 at line 25
use warnings;
# spent 60µs making 1 call to C4::Boolean::BEGIN@25 # spent 35µs making 1 call to warnings::import
26
27336µs2110µs
# spent 62µs (14+48) within C4::Boolean::BEGIN@27 which was called: # once (14µs+48µs) by C4::Context::BEGIN@104 at line 27
use Carp;
# spent 62µs making 1 call to C4::Boolean::BEGIN@27 # spent 48µs making 1 call to Exporter::import
28375µs2225µs
# spent 120µs (15+105) within C4::Boolean::BEGIN@28 which was called: # once (15µs+105µs) by C4::Context::BEGIN@104 at line 28
use base qw(Exporter);
# spent 120µs making 1 call to C4::Boolean::BEGIN@28 # spent 105µs making 1 call to base::import
29
3011µsour $VERSION = 3.07.00.049;
3111µsour @EXPORT_OK = qw( true_p);
32
33=head1 NAME
34
- -
55171µs
# spent 85µs (14+71) within C4::Boolean::BEGIN@55 which was called: # once (14µs+71µs) by C4::Context::BEGIN@104 at line 56
use constant INVALID_BOOLEAN_STRING_EXCEPTION =>
# spent 71µs making 1 call to constant::import
563172µs185µs q{The given value does not seem to be interpretable as a Boolean value};
# spent 85µs making 1 call to C4::Boolean::BEGIN@55
57
58112µsour %strings = (
59 '0' => 0, '1' => 1, # C
60 '-1' => 1, # BASIC
61 'nil' => 0, 't' => 1, # LISP
62 'false' => 0, 'true' => 1, # Pascal
63 'off' => 0, 'on' => 1,
64 'no' => 0, 'yes' => 1,
65 'n' => 0, 'y' => 1,
66);
67
68=item true_p
69
- -
80sub true_p {
81 my $x = shift;
82 my $it;
83 if (!defined $x || ref $x ) {
84 carp INVALID_BOOLEAN_STRING_EXCEPTION;
85 return;
86 }
87 $x = lc $x;
88 $x =~ s/\s//g;
89 if (defined $strings{$x}) {
90 $it = $strings{$x};
91 } else {
92 carp INVALID_BOOLEAN_STRING_EXCEPTION;
93 }
94 return $it;
95}
96
9717µs1;
98__END__