| Filename | /usr/share/perl5/Authen/CAS/Client/Response.pm |
| Statements | Executed 30 statements in 1.45ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 25µs | 188µs | Authen::CAS::Client::Response::ProxySuccess::BEGIN@108 |
| 1 | 1 | 1 | 23µs | 27µs | Authen::CAS::Client::BEGIN@3 |
| 1 | 1 | 1 | 22µs | 357µs | Authen::CAS::Client::Response::AuthSuccess::BEGIN@94 |
| 1 | 1 | 1 | 15µs | 90µs | Authen::CAS::Client::Response::Success::BEGIN@84 |
| 1 | 1 | 1 | 14µs | 107µs | Authen::CAS::Client::Response::Error::BEGIN@39 |
| 1 | 1 | 1 | 12µs | 96µs | Authen::CAS::Client::Response::ProxyFailure::BEGIN@76 |
| 1 | 1 | 1 | 12µs | 192µs | Authen::CAS::Client::Response::AuthFailure::BEGIN@68 |
| 1 | 1 | 1 | 11µs | 103µs | Authen::CAS::Client::Response::Failure::BEGIN@53 |
| 1 | 1 | 1 | 9µs | 20µs | Authen::CAS::Client::BEGIN@4 |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::AuthSuccess::_ATTRIBUTES |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::AuthSuccess::iou |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::AuthSuccess::proxies |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::AuthSuccess::user |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::Error::_ATTRIBUTES |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::Error::error |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::Error::new |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::Failure::_ATTRIBUTES |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::Failure::code |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::Failure::message |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::Failure::new |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::ProxySuccess::_ATTRIBUTES |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::ProxySuccess::proxy_ticket |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::Success::new |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::_ATTRIBUTES |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::doc |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::is_error |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::is_failure |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::is_success |
| 0 | 0 | 0 | 0s | 0s | Authen::CAS::Client::Response::new |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | 1 | 38µs | require 5.006_001; | ||
| 2 | |||||
| 3 | 3 | 31µs | 2 | 32µ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 # spent 27µs making 1 call to Authen::CAS::Client::BEGIN@3
# spent 4µs making 1 call to strict::import |
| 4 | 3 | 236µs | 2 | 31µ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 # 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 | # | ||||
| 9 | package Authen::CAS::Client::Response; | ||||
| 10 | |||||
| 11 | 1 | 600ns | our $VERSION = '0.03'; | ||
| 12 | |||||
| 13 | sub _ATTRIBUTES () { _ok => undef, doc => undef } | ||||
| 14 | |||||
| 15 | sub 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 | |||||
| 27 | sub is_error { my ( $self ) = @_; ! defined $self->{_ok} } | ||||
| 28 | sub is_failure { my ( $self ) = @_; defined $self->{_ok} && ! $self->{_ok} } | ||||
| 29 | sub is_success { my ( $self ) = @_; defined $self->{_ok} && $self->{_ok} } | ||||
| 30 | |||||
| 31 | sub doc { my ( $self ) = @_; $self->{doc} } | ||||
| 32 | |||||
| 33 | |||||
| 34 | #====================================================================== | ||||
| 35 | # Authen::CAS::Client::Response::Error | ||||
| 36 | # | ||||
| 37 | package Authen::CAS::Client::Response::Error; | ||||
| 38 | |||||
| 39 | 3 | 118µs | 2 | 200µ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 # spent 107µs making 1 call to Authen::CAS::Client::Response::Error::BEGIN@39
# spent 93µs making 1 call to base::import |
| 40 | |||||
| 41 | sub _ATTRIBUTES () { error => 'An internal error occurred', $_[0]->SUPER::_ATTRIBUTES } | ||||
| 42 | |||||
| 43 | sub new { my $class = shift; $class->SUPER::new( @_, _ok => undef ) } | ||||
| 44 | |||||
| 45 | sub error { my ( $self ) = @_; $self->{error} } | ||||
| 46 | |||||
| 47 | |||||
| 48 | #====================================================================== | ||||
| 49 | # Authen::CAS::Client::Response::Failure | ||||
| 50 | # | ||||
| 51 | package Authen::CAS::Client::Response::Failure; | ||||
| 52 | |||||
| 53 | 3 | 249µs | 2 | 195µ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 # spent 103µs making 1 call to Authen::CAS::Client::Response::Failure::BEGIN@53
# spent 92µs making 1 call to base::import |
| 54 | |||||
| 55 | sub _ATTRIBUTES () { code => undef, message => '', $_[0]->SUPER::_ATTRIBUTES } | ||||
| 56 | |||||
| 57 | sub new { my $class = shift; $class->SUPER::new( @_, _ok => 0 ) } | ||||
| 58 | |||||
| 59 | sub code { my ( $self ) = @_; $self->{code} } | ||||
| 60 | sub message { my ( $self ) = @_; $self->{message} } | ||||
| 61 | |||||
| 62 | |||||
| 63 | #====================================================================== | ||||
| 64 | # Authen::CAS::Client::Response::AuthFailure | ||||
| 65 | # | ||||
| 66 | package Authen::CAS::Client::Response::AuthFailure; | ||||
| 67 | |||||
| 68 | 3 | 50µs | 2 | 372µ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 # 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 | # | ||||
| 74 | package Authen::CAS::Client::Response::ProxyFailure; | ||||
| 75 | |||||
| 76 | 3 | 79µs | 2 | 180µ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 # 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 | # | ||||
| 82 | package Authen::CAS::Client::Response::Success; | ||||
| 83 | |||||
| 84 | 3 | 117µs | 2 | 165µ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 # spent 90µs making 1 call to Authen::CAS::Client::Response::Success::BEGIN@84
# spent 75µs making 1 call to base::import |
| 85 | |||||
| 86 | sub new { my $class = shift; $class->SUPER::new( @_, _ok => 1 ) } | ||||
| 87 | |||||
| 88 | |||||
| 89 | #====================================================================== | ||||
| 90 | # Authen::CAS::Client::Response::AuthSuccess | ||||
| 91 | # | ||||
| 92 | package Authen::CAS::Client::Response::AuthSuccess; | ||||
| 93 | |||||
| 94 | 3 | 356µs | 2 | 693µ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 # spent 357µs making 1 call to Authen::CAS::Client::Response::AuthSuccess::BEGIN@94
# spent 336µs making 1 call to base::import |
| 95 | |||||
| 96 | sub _ATTRIBUTES () { user => undef, iou => undef, proxies => [ ], $_[0]->SUPER::_ATTRIBUTES } | ||||
| 97 | |||||
| 98 | sub user { my ( $self ) = @_; $self->{user} } | ||||
| 99 | sub iou { my ( $self ) = @_; $self->{iou} } | ||||
| 100 | sub proxies { my ( $self ) = @_; wantarray ? @{ $self->{proxies} } : [ @{ $self->{proxies} } ] } | ||||
| 101 | |||||
| 102 | |||||
| 103 | #====================================================================== | ||||
| 104 | # Authen::CAS::Client::Response::ProxySuccess | ||||
| 105 | # | ||||
| 106 | package Authen::CAS::Client::Response::ProxySuccess; | ||||
| 107 | |||||
| 108 | 3 | 170µs | 2 | 352µ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 # spent 188µs making 1 call to Authen::CAS::Client::Response::ProxySuccess::BEGIN@108
# spent 164µs making 1 call to base::import |
| 109 | |||||
| 110 | sub _ATTRIBUTES () { proxy_ticket => undef, $_[0]->SUPER::_ATTRIBUTES } | ||||
| 111 | |||||
| 112 | sub proxy_ticket { my ( $self ) = @_; $self->{proxy_ticket} } | ||||
| 113 | |||||
| 114 | |||||
| 115 | 1 | 6µs | 1 | ||
| 116 | __END__ |