← 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 11:58:52 2013
Reported on Tue Oct 15 12:02:07 2013

Filename/usr/share/perl5/Authen/CAS/Client/Response.pm
StatementsExecuted 30 statements in 1.70ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111135µs426µsAuthen::CAS::Client::Response::AuthFailure::::BEGIN@68 Authen::CAS::Client::Response::AuthFailure::BEGIN@68
111134µs229µsAuthen::CAS::Client::Response::ProxySuccess::::BEGIN@108Authen::CAS::Client::Response::ProxySuccess::BEGIN@108
11162µs171µsAuthen::CAS::Client::Response::Success::::BEGIN@84 Authen::CAS::Client::Response::Success::BEGIN@84
11126µs137µsAuthen::CAS::Client::Response::Error::::BEGIN@39 Authen::CAS::Client::Response::Error::BEGIN@39
11124µs139µsAuthen::CAS::Client::Response::Failure::::BEGIN@53 Authen::CAS::Client::Response::Failure::BEGIN@53
11122µs124µsAuthen::CAS::Client::Response::ProxyFailure::::BEGIN@76Authen::CAS::Client::Response::ProxyFailure::BEGIN@76
11121µs25µsAuthen::CAS::Client::::BEGIN@3 Authen::CAS::Client::BEGIN@3
11120µs279µsAuthen::CAS::Client::Response::AuthSuccess::::BEGIN@94 Authen::CAS::Client::Response::AuthSuccess::BEGIN@94
11110µs23µsAuthen::CAS::Client::::BEGIN@4 Authen::CAS::Client::BEGIN@4
0000s0sAuthen::CAS::Client::Response::AuthSuccess::::_ATTRIBUTES Authen::CAS::Client::Response::AuthSuccess::_ATTRIBUTES
0000s0sAuthen::CAS::Client::Response::AuthSuccess::::iou Authen::CAS::Client::Response::AuthSuccess::iou
0000s0sAuthen::CAS::Client::Response::AuthSuccess::::proxies Authen::CAS::Client::Response::AuthSuccess::proxies
0000s0sAuthen::CAS::Client::Response::AuthSuccess::::user Authen::CAS::Client::Response::AuthSuccess::user
0000s0sAuthen::CAS::Client::Response::Error::::_ATTRIBUTES Authen::CAS::Client::Response::Error::_ATTRIBUTES
0000s0sAuthen::CAS::Client::Response::Error::::error Authen::CAS::Client::Response::Error::error
0000s0sAuthen::CAS::Client::Response::Error::::new Authen::CAS::Client::Response::Error::new
0000s0sAuthen::CAS::Client::Response::Failure::::_ATTRIBUTES Authen::CAS::Client::Response::Failure::_ATTRIBUTES
0000s0sAuthen::CAS::Client::Response::Failure::::code Authen::CAS::Client::Response::Failure::code
0000s0sAuthen::CAS::Client::Response::Failure::::message Authen::CAS::Client::Response::Failure::message
0000s0sAuthen::CAS::Client::Response::Failure::::new Authen::CAS::Client::Response::Failure::new
0000s0sAuthen::CAS::Client::Response::ProxySuccess::::_ATTRIBUTESAuthen::CAS::Client::Response::ProxySuccess::_ATTRIBUTES
0000s0sAuthen::CAS::Client::Response::ProxySuccess::::proxy_ticketAuthen::CAS::Client::Response::ProxySuccess::proxy_ticket
0000s0sAuthen::CAS::Client::Response::Success::::new Authen::CAS::Client::Response::Success::new
0000s0sAuthen::CAS::Client::Response::::_ATTRIBUTES Authen::CAS::Client::Response::_ATTRIBUTES
0000s0sAuthen::CAS::Client::Response::::doc Authen::CAS::Client::Response::doc
0000s0sAuthen::CAS::Client::Response::::is_error Authen::CAS::Client::Response::is_error
0000s0sAuthen::CAS::Client::Response::::is_failure Authen::CAS::Client::Response::is_failure
0000s0sAuthen::CAS::Client::Response::::is_success Authen::CAS::Client::Response::is_success
0000s0sAuthen::CAS::Client::Response::::new Authen::CAS::Client::Response::new
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1187µsrequire 5.006_001;
2
3333µs230µs
# spent 25µs (21+5) within Authen::CAS::Client::BEGIN@3 which was called: # once (21µs+5µs) by Authen::CAS::Client::BEGIN@8 at line 3
use strict;
# spent 25µs making 1 call to Authen::CAS::Client::BEGIN@3 # spent 5µs making 1 call to strict::import
43309µs237µs
# spent 23µs (10+13) within Authen::CAS::Client::BEGIN@4 which was called: # once (10µs+13µs) by Authen::CAS::Client::BEGIN@8 at line 4
use warnings;
# spent 23µs making 1 call to Authen::CAS::Client::BEGIN@4 # spent 13µs making 1 call to warnings::import
5
6#======================================================================
7# Authen::CAS::Client::Response
8#
9package Authen::CAS::Client::Response;
10
1111µsour $VERSION = '0.03';
12
13sub _ATTRIBUTES () { _ok => undef, doc => undef }
14
15sub new {
16 my ( $class, %args ) = @_;
17
18 my %self = $class->_ATTRIBUTES;
19 for my $attribute ( keys %self ) {
20 $self{$attribute} = $args{$attribute}
21 if exists $args{$attribute};
22 }
23
24 bless \%self, $class
25}
26
27sub is_error { my ( $self ) = @_; ! defined $self->{_ok} }
28sub is_failure { my ( $self ) = @_; defined $self->{_ok} && ! $self->{_ok} }
29sub is_success { my ( $self ) = @_; defined $self->{_ok} && $self->{_ok} }
30
31sub doc { my ( $self ) = @_; $self->{doc} }
32
33
34#======================================================================
35# Authen::CAS::Client::Response::Error
36#
37package Authen::CAS::Client::Response::Error;
38
393185µs2249µs
# spent 137µs (26+112) within Authen::CAS::Client::Response::Error::BEGIN@39 which was called: # once (26µs+112µs) by Authen::CAS::Client::BEGIN@8 at line 39
use base qw/ Authen::CAS::Client::Response /;
# spent 137µs making 1 call to Authen::CAS::Client::Response::Error::BEGIN@39 # spent 112µs making 1 call to base::import
40
41sub _ATTRIBUTES () { error => 'An internal error occurred', $_[0]->SUPER::_ATTRIBUTES }
42
43sub new { my $class = shift; $class->SUPER::new( @_, _ok => undef ) }
44
45sub error { my ( $self ) = @_; $self->{error} }
46
47
48#======================================================================
49# Authen::CAS::Client::Response::Failure
50#
51package Authen::CAS::Client::Response::Failure;
52
533356µs2255µs
# spent 139µs (24+116) within Authen::CAS::Client::Response::Failure::BEGIN@53 which was called: # once (24µs+116µs) by Authen::CAS::Client::BEGIN@8 at line 53
use base qw/ Authen::CAS::Client::Response /;
# spent 139µs making 1 call to Authen::CAS::Client::Response::Failure::BEGIN@53 # spent 116µs making 1 call to base::import
54
55sub _ATTRIBUTES () { code => undef, message => '', $_[0]->SUPER::_ATTRIBUTES }
56
57sub new { my $class = shift; $class->SUPER::new( @_, _ok => 0 ) }
58
59sub code { my ( $self ) = @_; $self->{code} }
60sub message { my ( $self ) = @_; $self->{message} }
61
62
63#======================================================================
64# Authen::CAS::Client::Response::AuthFailure
65#
66package Authen::CAS::Client::Response::AuthFailure;
67
68381µs2716µs
# spent 426µs (135+291) within Authen::CAS::Client::Response::AuthFailure::BEGIN@68 which was called: # once (135µs+291µs) by Authen::CAS::Client::BEGIN@8 at line 68
use base qw/ Authen::CAS::Client::Response::Failure /;
# spent 426µs making 1 call to Authen::CAS::Client::Response::AuthFailure::BEGIN@68 # spent 291µs making 1 call to base::import
69
70
71#======================================================================
72# Authen::CAS::Client::Response::ProxyFailure
73#
74package Authen::CAS::Client::Response::ProxyFailure;
75
763113µs2226µs
# spent 124µs (22+102) within Authen::CAS::Client::Response::ProxyFailure::BEGIN@76 which was called: # once (22µs+102µs) by Authen::CAS::Client::BEGIN@8 at line 76
use base qw/ Authen::CAS::Client::Response::Failure /;
# spent 124µs making 1 call to Authen::CAS::Client::Response::ProxyFailure::BEGIN@76 # spent 102µs making 1 call to base::import
77
78
79#======================================================================
80# Authen::CAS::Client::Response::Success
81#
82package Authen::CAS::Client::Response::Success;
83
843133µs2280µs
# spent 171µs (62+109) within Authen::CAS::Client::Response::Success::BEGIN@84 which was called: # once (62µs+109µs) by Authen::CAS::Client::BEGIN@8 at line 84
use base qw/ Authen::CAS::Client::Response /;
# spent 171µs making 1 call to Authen::CAS::Client::Response::Success::BEGIN@84 # spent 109µs making 1 call to base::import
85
86sub new { my $class = shift; $class->SUPER::new( @_, _ok => 1 ) }
87
88
89#======================================================================
90# Authen::CAS::Client::Response::AuthSuccess
91#
92package Authen::CAS::Client::Response::AuthSuccess;
93
943242µs2538µs
# spent 279µs (20+259) within Authen::CAS::Client::Response::AuthSuccess::BEGIN@94 which was called: # once (20µs+259µs) by Authen::CAS::Client::BEGIN@8 at line 94
use base qw/ Authen::CAS::Client::Response::Success /;
# spent 279µs making 1 call to Authen::CAS::Client::Response::AuthSuccess::BEGIN@94 # spent 259µs making 1 call to base::import
95
96sub _ATTRIBUTES () { user => undef, iou => undef, proxies => [ ], $_[0]->SUPER::_ATTRIBUTES }
97
98sub user { my ( $self ) = @_; $self->{user} }
99sub iou { my ( $self ) = @_; $self->{iou} }
100sub proxies { my ( $self ) = @_; wantarray ? @{ $self->{proxies} } : [ @{ $self->{proxies} } ] }
101
102
103#======================================================================
104# Authen::CAS::Client::Response::ProxySuccess
105#
106package Authen::CAS::Client::Response::ProxySuccess;
107
1083157µs2323µs
# spent 229µs (134+94) within Authen::CAS::Client::Response::ProxySuccess::BEGIN@108 which was called: # once (134µs+94µs) by Authen::CAS::Client::BEGIN@8 at line 108
use base qw/ Authen::CAS::Client::Response::Success /;
# spent 229µs making 1 call to Authen::CAS::Client::Response::ProxySuccess::BEGIN@108 # spent 94µs making 1 call to base::import
109
110sub _ATTRIBUTES () { proxy_ticket => undef, $_[0]->SUPER::_ATTRIBUTES }
111
112sub proxy_ticket { my ( $self ) = @_; $self->{proxy_ticket} }
113
114
11517µs1
116__END__