← 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:26 2013

Filename/usr/share/koha/lib/C4/ItemType.pm
StatementsExecuted 11 statements in 342µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11119µs24µsC4::ItemType::::BEGIN@21C4::ItemType::BEGIN@21
11111µs24µsC4::ItemType::::BEGIN@22C4::ItemType::BEGIN@22
11110µs12µsC4::ItemType::::BEGIN@23C4::ItemType::BEGIN@23
0000s0sC4::ItemType::::AUTOLOADC4::ItemType::AUTOLOAD
0000s0sC4::ItemType::::DESTROYC4::ItemType::DESTROY
0000s0sC4::ItemType::::allC4::ItemType::all
0000s0sC4::ItemType::::newC4::ItemType::new
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package C4::ItemType;
2
3# Copyright Liblime 2009
4# Parts Copyright Tamil 2011
5#
6# This file is part of Koha.
7#
8# Koha is free software; you can redistribute it and/or modify it under the
9# terms of the GNU General Public License as published by the Free Software
10# Foundation; either version 2 of the License, or (at your option) any later
11# version.
12#
13# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16#
17# You should have received a copy of the GNU General Public License along
18# with Koha; if not, write to the Free Software Foundation, Inc.,
19# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20
21330µs229µs
# spent 24µs (19+5) within C4::ItemType::BEGIN@21 which was called: # once (19µs+5µs) by C4::ItemCirculationAlertPreference::BEGIN@24 at line 21
use strict;
# spent 24µs making 1 call to C4::ItemType::BEGIN@21 # spent 5µs making 1 call to strict::import
22327µs236µs
# spent 24µs (11+13) within C4::ItemType::BEGIN@22 which was called: # once (11µs+13µs) by C4::ItemCirculationAlertPreference::BEGIN@24 at line 22
use warnings;
# spent 24µs making 1 call to C4::ItemType::BEGIN@22 # spent 13µs making 1 call to warnings::import
233282µs214µs
# spent 12µs (10+2) within C4::ItemType::BEGIN@23 which was called: # once (10µs+2µs) by C4::ItemCirculationAlertPreference::BEGIN@24 at line 23
use C4::Context;
# spent 12µs making 1 call to C4::ItemType::BEGIN@23 # spent 2µs making 1 call to C4::Context::import
24
251200nsour $AUTOLOAD;
26
- -
30=head1 NAME
31
- -
54=head3 C4::ItemType->new(\%opts)
55
- -
61sub new {
62 my ($class, $opts) = @_;
63 bless $opts => $class;
64}
65
- -
69=head3 C4::ItemType->all
70
- -
76sub all {
77 my ($class) = @_;
78 my $dbh = C4::Context->dbh;
79
80 my @itypes;
81 for ( @{$dbh->selectall_arrayref(
82 "SELECT * FROM itemtypes ORDER BY description", { Slice => {} })} )
83 {
84 utf8::encode($_->{description});
85 push @itypes, $class->new($_);
86 }
87 return @itypes;
88}
89
- -
93=head2 Object Methods
94
- -
101=head3 $itemtype->description
102
- -
105=head3 $itemtype->renewalsallowed
106
- -
109=head3 $itemtype->rentalcharge
110
- -
113=head3 $itemtype->notforloan
114
- -
117=head3 $itemtype->imageurl
118
- -
121=head3 $itemtype->summary
122
- -
125sub AUTOLOAD {
126 my $self = shift;
127 my $attr = $AUTOLOAD;
128 $attr =~ s/.*://;
129 if (exists $self->{$attr}) {
130 return $self->{$attr};
131 } else {
132 return undef;
133 }
134}
135
136sub DESTROY { }
137
- -
140# ack itemtypes | grep '\.pm' | awk '{ print $1 }' | sed 's/:.*$//' | sort | uniq | sed -e 's,/,::,g' -e 's/\.pm//' -e 's/^/L<C4::/' -e 's/$/>,/'
141
142=head1 SEE ALSO
143
- -
16713µs1;