← 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:33:30 2016

Filename/usr/share/perl5/Authen/CAS/Client/Response.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
11114µs71µsAuthen::CAS::Client::Response::Error::::BEGIN@39 Authen::CAS::Client::Response::Error::BEGIN@39
11112µs19µsAuthen::CAS::Client::::BEGIN@3 Authen::CAS::Client::BEGIN@3
11111µs83µsAuthen::CAS::Client::Response::ProxySuccess::::BEGIN@108Authen::CAS::Client::Response::ProxySuccess::BEGIN@108
11110µs137µsAuthen::CAS::Client::Response::AuthFailure::::BEGIN@68 Authen::CAS::Client::Response::AuthFailure::BEGIN@68
11110µs117µsAuthen::CAS::Client::Response::AuthSuccess::::BEGIN@94 Authen::CAS::Client::Response::AuthSuccess::BEGIN@94
11110µs41µsAuthen::CAS::Client::Response::Failure::::BEGIN@53 Authen::CAS::Client::Response::Failure::BEGIN@53
11110µs86µsAuthen::CAS::Client::Response::ProxyFailure::::BEGIN@76Authen::CAS::Client::Response::ProxyFailure::BEGIN@76
1119µs39µsAuthen::CAS::Client::Response::Success::::BEGIN@84 Authen::CAS::Client::Response::Success::BEGIN@84
1118µs12µ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
1require 5.006_001;
2
3225µs
# spent 19µs (12+7) within Authen::CAS::Client::BEGIN@3 which was called: # once (12µs+7µs) by Authen::CAS::Client::BEGIN@8 at line 3
use strict;
# spent 19µs making 1 call to Authen::CAS::Client::BEGIN@3 # spent 6µs making 1 call to strict::import
4215µs
# spent 12µ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 12µ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
11our $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
392129µs
# spent 71µs (14+57) within Authen::CAS::Client::Response::Error::BEGIN@39 which was called: # once (14µs+57µs) by Authen::CAS::Client::BEGIN@8 at line 39
use base qw/ Authen::CAS::Client::Response /;
# spent 71µs making 1 call to Authen::CAS::Client::Response::Error::BEGIN@39 # spent 58µ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
53272µs
# spent 41µs (10+31) within Authen::CAS::Client::Response::Failure::BEGIN@53 which was called: # once (10µs+31µs) by Authen::CAS::Client::BEGIN@8 at line 53
use base qw/ Authen::CAS::Client::Response /;
# spent 41µs making 1 call to Authen::CAS::Client::Response::Failure::BEGIN@53 # spent 31µ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
682263µs
# spent 137µs (10+126) within Authen::CAS::Client::Response::AuthFailure::BEGIN@68 which was called: # once (10µs+126µs) by Authen::CAS::Client::BEGIN@8 at line 68
use base qw/ Authen::CAS::Client::Response::Failure /;
# spent 137µs making 1 call to Authen::CAS::Client::Response::AuthFailure::BEGIN@68 # spent 126µs making 1 call to base::import
69
70
71#======================================================================
72# Authen::CAS::Client::Response::ProxyFailure
73#
74package Authen::CAS::Client::Response::ProxyFailure;
75
762162µ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
84269µs
# spent 39µs (9+30) within Authen::CAS::Client::Response::Success::BEGIN@84 which was called: # once (9µs+30µs) by Authen::CAS::Client::BEGIN@8 at line 84
use base qw/ Authen::CAS::Client::Response /;
# spent 39µs making 1 call to Authen::CAS::Client::Response::Success::BEGIN@84 # spent 30µ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
942224µs
# spent 117µs (10+107) within Authen::CAS::Client::Response::AuthSuccess::BEGIN@94 which was called: # once (10µs+107µs) by Authen::CAS::Client::BEGIN@8 at line 94
use base qw/ Authen::CAS::Client::Response::Success /;
# spent 117µs making 1 call to Authen::CAS::Client::Response::AuthSuccess::BEGIN@94 # spent 107µ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
1082154µs
# spent 83µs (11+72) within Authen::CAS::Client::Response::ProxySuccess::BEGIN@108 which was called: # once (11µs+72µs) by Authen::CAS::Client::BEGIN@8 at line 108
use base qw/ Authen::CAS::Client::Response::Success /;
# spent 83µs making 1 call to Authen::CAS::Client::Response::ProxySuccess::BEGIN@108 # spent 72µ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
1151
116__END__
Report produced by the NYTProf 6.02 Perl profiler, developed by Tim Bunce and Adam Kaplan.