← Index
NYTProf Performance Profile   « line view »
For svc/members/upsert
  Run on Tue Jan 13 11:50:22 2015
Reported on Tue Jan 13 12:09:51 2015

Filename/usr/share/perl5/Authen/CAS/Client/Response.pm
StatementsExecuted 21 statements in 802µs
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
11113µs26µsAuthen::CAS::Client::::BEGIN@3 Authen::CAS::Client::BEGIN@3
11113µs1.09msAuthen::CAS::Client::Response::AuthFailure::::BEGIN@68 Authen::CAS::Client::Response::AuthFailure::BEGIN@68
11112µs17µsAuthen::CAS::Client::::BEGIN@4 Authen::CAS::Client::BEGIN@4
11111µs86µsAuthen::CAS::Client::Response::Error::::BEGIN@39 Authen::CAS::Client::Response::Error::BEGIN@39
1119µs53µsAuthen::CAS::Client::Response::Success::::BEGIN@84 Authen::CAS::Client::Response::Success::BEGIN@84
1118µs1.75msAuthen::CAS::Client::Response::ProxySuccess::::BEGIN@108Authen::CAS::Client::Response::ProxySuccess::BEGIN@108
1118µs1.04msAuthen::CAS::Client::Response::ProxyFailure::::BEGIN@76Authen::CAS::Client::Response::ProxyFailure::BEGIN@76
1117µs1.08msAuthen::CAS::Client::Response::AuthSuccess::::BEGIN@94 Authen::CAS::Client::Response::AuthSuccess::BEGIN@94
1113µs31µsAuthen::CAS::Client::Response::Failure::::BEGIN@53 Authen::CAS::Client::Response::Failure::BEGIN@53
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
1112µsrequire 5.006_001;
2
3224µs239µs
# spent 26µs (13+13) within Authen::CAS::Client::BEGIN@3 which was called: # once (13µs+13µs) by Authen::CAS::Client::BEGIN@8 at line 3
use strict;
# spent 26µs making 1 call to Authen::CAS::Client::BEGIN@3 # spent 13µs making 1 call to strict::import
42243µs222µs
# spent 17µs (12+5) within Authen::CAS::Client::BEGIN@4 which was called: # once (12µs+5µs) by Authen::CAS::Client::BEGIN@8 at line 4
use warnings;
# spent 17µs making 1 call to Authen::CAS::Client::BEGIN@4 # spent 5µ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
39226µs2162µs
# spent 86µs (11+75) within Authen::CAS::Client::Response::Error::BEGIN@39 which was called: # once (11µs+75µs) by Authen::CAS::Client::BEGIN@8 at line 39
use base qw/ Authen::CAS::Client::Response /;
# spent 86µs making 1 call to Authen::CAS::Client::Response::Error::BEGIN@39 # spent 75µ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
532117µs258µs
# spent 31µs (3+28) within Authen::CAS::Client::Response::Failure::BEGIN@53 which was called: # once (3µs+28µs) by Authen::CAS::Client::BEGIN@8 at line 53
use base qw/ Authen::CAS::Client::Response /;
# spent 31µs making 1 call to Authen::CAS::Client::Response::Failure::BEGIN@53 # spent 28µ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
68248µs22.17ms
# spent 1.09ms (13µs+1.08) within Authen::CAS::Client::Response::AuthFailure::BEGIN@68 which was called: # once (13µs+1.08ms) by Authen::CAS::Client::BEGIN@8 at line 68
use base qw/ Authen::CAS::Client::Response::Failure /;
# spent 1.09ms making 1 call to Authen::CAS::Client::Response::AuthFailure::BEGIN@68 # spent 1.08ms making 1 call to base::import
69
70
71#======================================================================
72# Authen::CAS::Client::Response::ProxyFailure
73#
74package Authen::CAS::Client::Response::ProxyFailure;
75
76252µs22.08ms
# spent 1.04ms (8µs+1.03) within Authen::CAS::Client::Response::ProxyFailure::BEGIN@76 which was called: # once (8µs+1.03ms) by Authen::CAS::Client::BEGIN@8 at line 76
use base qw/ Authen::CAS::Client::Response::Failure /;
# spent 1.04ms making 1 call to Authen::CAS::Client::Response::ProxyFailure::BEGIN@76 # spent 1.03ms making 1 call to base::import
77
78
79#======================================================================
80# Authen::CAS::Client::Response::Success
81#
82package Authen::CAS::Client::Response::Success;
83
84269µs297µs
# spent 53µs (9+44) within Authen::CAS::Client::Response::Success::BEGIN@84 which was called: # once (9µs+44µs) by Authen::CAS::Client::BEGIN@8 at line 84
use base qw/ Authen::CAS::Client::Response /;
# spent 53µs making 1 call to Authen::CAS::Client::Response::Success::BEGIN@84 # spent 44µ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
942135µs22.16ms
# spent 1.08ms (7µs+1.08) within Authen::CAS::Client::Response::AuthSuccess::BEGIN@94 which was called: # once (7µs+1.08ms) by Authen::CAS::Client::BEGIN@8 at line 94
use base qw/ Authen::CAS::Client::Response::Success /;
# spent 1.08ms making 1 call to Authen::CAS::Client::Response::AuthSuccess::BEGIN@94 # spent 1.08ms 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
108275µs23.49ms
# spent 1.75ms (8µs+1.74) within Authen::CAS::Client::Response::ProxySuccess::BEGIN@108 which was called: # once (8µs+1.74ms) by Authen::CAS::Client::BEGIN@8 at line 108
use base qw/ Authen::CAS::Client::Response::Success /;
# spent 1.75ms making 1 call to Authen::CAS::Client::Response::ProxySuccess::BEGIN@108 # spent 1.74ms 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
11512µs1
116__END__
Report produced by the NYTProf 5.06 Perl profiler, developed by Tim Bunce and Adam Kaplan.