Filename	/usr/share/koha/lib/C4/Linker.pm
Statements	Executed 17 statements in 509µs

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	17µs	22µs	C4::Linker::::BEGIN@45C4::Linker::BEGIN@45
1	1	1	15µs	92µs	C4::Linker::::BEGIN@47C4::Linker::BEGIN@47
1	1	1	14µs	101µs	C4::Linker::::BEGIN@50C4::Linker::BEGIN@50
1	1	1	14µs	18µs	C4::Linker::::BEGIN@48C4::Linker::BEGIN@48
1	1	1	11µs	27µs	C4::Linker::::BEGIN@46C4::Linker::BEGIN@46
0	0	0	0s	0s	C4::Linker::::_handle_auth_limitC4::Linker::_handle_auth_limit
0	0	0	0s	0s	C4::Linker::::newC4::Linker::new

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package C4::Linker;
2
3					# Copyright 2011 C & P Bibliography Services
4					#
5					# This file is part of Koha.
6					#
7					# Koha is free software; you can redistribute it and/or modify it under the
8					# terms of the GNU General Public License as published by the Free Software
9					# Foundation; either version 2 of the License, or (at your option) any later
10					# version.
11					#
12					# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13					# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14					# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
15					#
16					# You should have received a copy of the GNU General Public License along
17					# with Koha; if not, write to the Free Software Foundation, Inc.,
18					# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20					=head1 NAME
21
- -
45	3	28µs	2	27µs	# spent 22µs (17+5) within C4::Linker::BEGIN@45 which was called: # once (17µs+5µs) by C4::Biblio::BEGIN@38 at line 45 use strict; # spent 22µs making 1 call to C4::Linker::BEGIN@45 # spent 5µs making 1 call to strict::import
46	3	27µs	2	42µs	# spent 27µs (11+16) within C4::Linker::BEGIN@46 which was called: # once (11µs+16µs) by C4::Biblio::BEGIN@38 at line 46 use warnings; # spent 27µs making 1 call to C4::Linker::BEGIN@46 # spent 16µs making 1 call to warnings::import
47	3	37µs	2	169µs	# spent 92µs (15+77) within C4::Linker::BEGIN@47 which was called: # once (15µs+77µs) by C4::Biblio::BEGIN@38 at line 47 use Carp; # spent 92µs making 1 call to C4::Linker::BEGIN@47 # spent 77µs making 1 call to Exporter::import
48	3	33µs	2	22µs	# spent 18µs (14+4) within C4::Linker::BEGIN@48 which was called: # once (14µs+4µs) by C4::Biblio::BEGIN@38 at line 48 use C4::Context; # spent 18µs making 1 call to C4::Linker::BEGIN@48 # spent 4µs making 1 call to C4::Context::import
49
50	3	365µs	2	189µs	# spent 101µs (14+87) within C4::Linker::BEGIN@50 which was called: # once (14µs+87µs) by C4::Biblio::BEGIN@38 at line 50 use base qw(Class::Accessor); # spent 101µs making 1 call to C4::Linker::BEGIN@50 # spent 87µs making 1 call to base::import
51
52	1	14µs	1	42µs	__PACKAGE__->mk_accessors(qw( )); # spent 42µs making 1 call to Class::Accessor::mk_accessors
53
54					sub new {
55					my $class = shift;
56					my $param = shift;
57
58					my $self = {};
59
60					while ( my ( $key, $value ) = each %$param ) {
61					if ( $key eq 'auth_limit' && $value ) {
62					my $dbh = C4::Context->dbh;
63					my $sql =
64					"SELECT authid FROM auth_header WHERE $value ORDER BY authid ASC";
65					my $sth = $dbh->prepare($sql);
66					$sth->execute();
67					while ( my ($authid) = $sth->fetchrow_array() ) {
68					push @{ $self->{'auths_to_link'} }, $authid;
69					}
70					}
71					elsif ( $key eq 'options' && $value ) {
72					foreach my $opt ( split( /\|/, $value ) ) {
73					$self->{$opt} = 1;
74					}
75					}
76					elsif ($value) {
77					$self->{$key} = $value;
78					}
79					}
80
81					bless $self, $class;
82					return $self;
83					}
84
85					=head2 _handle_auth_limit
86
- -
93					sub _handle_auth_limit {
94					my $self = shift;
95					my $authid = shift;
96
97					if ( defined $self->{'auths_to_link'} && defined $authid && !grep { $_ == $authid }
98					@{ $self->{'auths_to_link'} } )
99					{
100					undef $authid;
101					}
102					return $authid;
103					}
104
105					=head2 EXPORT
106
- -
119	1	5µs			1;
120
121					__END__