← Index
NYTProf Performance Profile   « line view »
For starman worker -M FindBin --max-requests 50 --workers 2 --user=kohadev-koha --group kohadev-koha --pid /var/run/koha/kohadev/plack.pid --daemonize --access-log /var/log/koha/kohadev/plack.log --error-log /var/log/koha/kohadev/plack-error.log -E deployment --socket /var/run/koha/kohadev/plack.sock /etc/koha/sites/kohadev/plack.psgi
  Run on Fri Jan 8 14:31:06 2016
Reported on Fri Jan 8 14:31:39 2016

Filename/usr/share/perl5/Authen/CAS/Client/Response.pm
StatementsExecuted 21 statements in 1.73ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
11114µs74µsAuthen::CAS::Client::Response::Error::::BEGIN@39 Authen::CAS::Client::Response::Error::BEGIN@39
11114µs154µsAuthen::CAS::Client::Response::AuthFailure::::BEGIN@68 Authen::CAS::Client::Response::AuthFailure::BEGIN@68
11113µs20µsAuthen::CAS::Client::::BEGIN@3 Authen::CAS::Client::BEGIN@3
11110µs86µsAuthen::CAS::Client::Response::ProxyFailure::::BEGIN@76Authen::CAS::Client::Response::ProxyFailure::BEGIN@76
11110µs64µsAuthen::CAS::Client::Response::Failure::::BEGIN@53 Authen::CAS::Client::Response::Failure::BEGIN@53
11110µs96µsAuthen::CAS::Client::Response::ProxySuccess::::BEGIN@108Authen::CAS::Client::Response::ProxySuccess::BEGIN@108
11110µs112µsAuthen::CAS::Client::Response::AuthSuccess::::BEGIN@94 Authen::CAS::Client::Response::AuthSuccess::BEGIN@94
1119µs44µsAuthen::CAS::Client::Response::Success::::BEGIN@84 Authen::CAS::Client::Response::Success::BEGIN@84
1118µs11µ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
1114µsrequire 5.006_001;
2
3233µs227µs
# spent 20µs (13+7) within Authen::CAS::Client::BEGIN@3 which was called: # once (13µs+7µs) by Authen::CAS::Client::BEGIN@8 at line 3
use strict;
# spent 20µs making 1 call to Authen::CAS::Client::BEGIN@3 # spent 7µs making 1 call to strict::import
42322µs215µs
# spent 11µs (8+4) within Authen::CAS::Client::BEGIN@4 which was called: # once (8µs+4µs) by Authen::CAS::Client::BEGIN@8 at line 4
use warnings;
# spent 11µs making 1 call to Authen::CAS::Client::BEGIN@4 # spent 4µs making 1 call to warnings::import
5
6#======================================================================
7# Authen::CAS::Client::Response
8#
9package Authen::CAS::Client::Response;
10
111300nsour $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
392206µs2134µs
# spent 74µs (14+60) within Authen::CAS::Client::Response::Error::BEGIN@39 which was called: # once (14µs+60µs) by Authen::CAS::Client::BEGIN@8 at line 39
use base qw/ Authen::CAS::Client::Response /;
# spent 74µs making 1 call to Authen::CAS::Client::Response::Error::BEGIN@39 # spent 60µ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
532220µs2118µs
# spent 64µs (10+54) within Authen::CAS::Client::Response::Failure::BEGIN@53 which was called: # once (10µs+54µs) by Authen::CAS::Client::BEGIN@8 at line 53
use base qw/ Authen::CAS::Client::Response /;
# spent 64µs making 1 call to Authen::CAS::Client::Response::Failure::BEGIN@53 # spent 54µ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
682209µs2294µs
# spent 154µs (14+140) within Authen::CAS::Client::Response::AuthFailure::BEGIN@68 which was called: # once (14µs+140µs) by Authen::CAS::Client::BEGIN@8 at line 68
use base qw/ Authen::CAS::Client::Response::Failure /;
# spent 154µs making 1 call to Authen::CAS::Client::Response::AuthFailure::BEGIN@68 # spent 140µs making 1 call to base::import
69
70
71#======================================================================
72# Authen::CAS::Client::Response::ProxyFailure
73#
74package Authen::CAS::Client::Response::ProxyFailure;
75
762146µs2162µs
# spent 86µs (10+76) within Authen::CAS::Client::Response::ProxyFailure::BEGIN@76 which was called: # once (10µs+76µs) by Authen::CAS::Client::BEGIN@8 at line 76
use base qw/ Authen::CAS::Client::Response::Failure /;
# spent 86µs making 1 call to Authen::CAS::Client::Response::ProxyFailure::BEGIN@76 # spent 76µs making 1 call to base::import
77
78
79#======================================================================
80# Authen::CAS::Client::Response::Success
81#
82package Authen::CAS::Client::Response::Success;
83
842132µs278µs
# spent 44µs (9+34) within Authen::CAS::Client::Response::Success::BEGIN@84 which was called: # once (9µs+34µs) by Authen::CAS::Client::BEGIN@8 at line 84
use base qw/ Authen::CAS::Client::Response /;
# spent 44µs making 1 call to Authen::CAS::Client::Response::Success::BEGIN@84 # spent 34µ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
942272µs2214µs
# spent 112µs (10+102) within Authen::CAS::Client::Response::AuthSuccess::BEGIN@94 which was called: # once (10µs+102µs) by Authen::CAS::Client::BEGIN@8 at line 94
use base qw/ Authen::CAS::Client::Response::Success /;
# spent 112µs making 1 call to Authen::CAS::Client::Response::AuthSuccess::BEGIN@94 # spent 102µ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
1082170µs2183µs
# spent 96µs (10+86) within Authen::CAS::Client::Response::ProxySuccess::BEGIN@108 which was called: # once (10µs+86µs) by Authen::CAS::Client::BEGIN@8 at line 108
use base qw/ Authen::CAS::Client::Response::Success /;
# spent 96µs making 1 call to Authen::CAS::Client::Response::ProxySuccess::BEGIN@108 # spent 86µ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
11513µs1
116__END__
Report produced by the NYTProf 6.02 Perl profiler, developed by Tim Bunce and Adam Kaplan.