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

Filename/usr/share/perl5/Authen/CAS/Client/Response.pm
StatementsExecuted 30 statements in 1.45ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11125µs188µsAuthen::CAS::Client::Response::ProxySuccess::::BEGIN@108Authen::CAS::Client::Response::ProxySuccess::BEGIN@108
11123µs27µsAuthen::CAS::Client::::BEGIN@3 Authen::CAS::Client::BEGIN@3
11122µs357µsAuthen::CAS::Client::Response::AuthSuccess::::BEGIN@94 Authen::CAS::Client::Response::AuthSuccess::BEGIN@94
11115µs90µsAuthen::CAS::Client::Response::Success::::BEGIN@84 Authen::CAS::Client::Response::Success::BEGIN@84
11114µs107µsAuthen::CAS::Client::Response::Error::::BEGIN@39 Authen::CAS::Client::Response::Error::BEGIN@39
11112µs96µsAuthen::CAS::Client::Response::ProxyFailure::::BEGIN@76Authen::CAS::Client::Response::ProxyFailure::BEGIN@76
11112µs192µsAuthen::CAS::Client::Response::AuthFailure::::BEGIN@68 Authen::CAS::Client::Response::AuthFailure::BEGIN@68
11111µs103µsAuthen::CAS::Client::Response::Failure::::BEGIN@53 Authen::CAS::Client::Response::Failure::BEGIN@53
1119µs20µ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
1138µsrequire 5.006_001;
2
3331µs232µs
# spent 27µs (23+4) within Authen::CAS::Client::BEGIN@3 which was called: # once (23µs+4µs) by Authen::CAS::Client::BEGIN@8 at line 3
use strict;
# spent 27µs making 1 call to Authen::CAS::Client::BEGIN@3 # spent 4µs making 1 call to strict::import
43236µs231µs
# spent 20µs (9+11) within Authen::CAS::Client::BEGIN@4 which was called: # once (9µs+11µs) by Authen::CAS::Client::BEGIN@8 at line 4
use warnings;
# spent 20µs making 1 call to Authen::CAS::Client::BEGIN@4 # spent 11µs making 1 call to warnings::import
5
6#======================================================================
7# Authen::CAS::Client::Response
8#
9package Authen::CAS::Client::Response;
10
111600nsour $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
393118µs2200µs
# spent 107µs (14+93) within Authen::CAS::Client::Response::Error::BEGIN@39 which was called: # once (14µs+93µs) by Authen::CAS::Client::BEGIN@8 at line 39
use base qw/ Authen::CAS::Client::Response /;
# spent 107µs making 1 call to Authen::CAS::Client::Response::Error::BEGIN@39 # spent 93µ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
533249µs2195µs
# spent 103µs (11+92) within Authen::CAS::Client::Response::Failure::BEGIN@53 which was called: # once (11µs+92µs) by Authen::CAS::Client::BEGIN@8 at line 53
use base qw/ Authen::CAS::Client::Response /;
# spent 103µs making 1 call to Authen::CAS::Client::Response::Failure::BEGIN@53 # spent 92µ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
68350µs2372µs
# spent 192µs (12+180) within Authen::CAS::Client::Response::AuthFailure::BEGIN@68 which was called: # once (12µs+180µs) by Authen::CAS::Client::BEGIN@8 at line 68
use base qw/ Authen::CAS::Client::Response::Failure /;
# spent 192µs making 1 call to Authen::CAS::Client::Response::AuthFailure::BEGIN@68 # spent 180µs making 1 call to base::import
69
70
71#======================================================================
72# Authen::CAS::Client::Response::ProxyFailure
73#
74package Authen::CAS::Client::Response::ProxyFailure;
75
76379µs2180µs
# spent 96µs (12+84) within Authen::CAS::Client::Response::ProxyFailure::BEGIN@76 which was called: # once (12µs+84µs) by Authen::CAS::Client::BEGIN@8 at line 76
use base qw/ Authen::CAS::Client::Response::Failure /;
# spent 96µs making 1 call to Authen::CAS::Client::Response::ProxyFailure::BEGIN@76 # spent 84µs making 1 call to base::import
77
78
79#======================================================================
80# Authen::CAS::Client::Response::Success
81#
82package Authen::CAS::Client::Response::Success;
83
843117µs2165µs
# spent 90µs (15+75) within Authen::CAS::Client::Response::Success::BEGIN@84 which was called: # once (15µs+75µs) by Authen::CAS::Client::BEGIN@8 at line 84
use base qw/ Authen::CAS::Client::Response /;
# spent 90µs making 1 call to Authen::CAS::Client::Response::Success::BEGIN@84 # spent 75µ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
943356µs2693µs
# spent 357µs (22+335) within Authen::CAS::Client::Response::AuthSuccess::BEGIN@94 which was called: # once (22µs+335µs) by Authen::CAS::Client::BEGIN@8 at line 94
use base qw/ Authen::CAS::Client::Response::Success /;
# spent 357µs making 1 call to Authen::CAS::Client::Response::AuthSuccess::BEGIN@94 # spent 336µ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
1083170µs2352µs
# spent 188µs (25+164) within Authen::CAS::Client::Response::ProxySuccess::BEGIN@108 which was called: # once (25µs+164µs) by Authen::CAS::Client::BEGIN@8 at line 108
use base qw/ Authen::CAS::Client::Response::Success /;
# spent 188µs making 1 call to Authen::CAS::Client::Response::ProxySuccess::BEGIN@108 # spent 164µ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
11516µs1
116__END__