line |
true |
false |
branch |
220
|
0 |
0 |
if (ref $var) { } |
221
|
0 |
0 |
if (ref $var eq 'ARRAY') { } |
|
0 |
0 |
elsif (ref $var eq 'HASH') { } |
235
|
0 |
0 |
if (defined $var) { } |
250
|
3 |
0 |
if ($url =~ m[^(https?)://([^:/]+)(:(\d+))?(.*)$]) { } |
253
|
0 |
3 |
if ($1 eq 'http') { } |
|
3 |
0 |
elsif ($1 eq 'https') { } |
287
|
0 |
0 |
if ($new_data =~ m[^<([^\s>]+)(\s+[^\s>]+)*>([\s\S\n]*)(\1>)]m) { } |
378
|
0 |
3 |
if (defined $pgtUrl) |
452
|
1 |
4 |
unless (defined $service) |
456
|
1 |
3 |
unless (defined $ticket) |
467
|
0 |
3 |
if (defined $xml->{'cas:serviceResponse'}[0]{'cas:authenticationFailure'}) |
480
|
0 |
3 |
if ($self->{'proxy'}) |
482
|
0 |
0 |
if (defined $xml->{'cas:serviceResponse'}[0]{'cas:authenticationSuccess'}[0]{'cas:proxyGrantingTicket'}) |
491
|
0 |
0 |
unless (defined $self->{'pgtFile'}) |
497
|
0 |
0 |
unless (open STORE, $self->{'pgtFile'}) |
504
|
0 |
0 |
if (/^$pgtIou\s+(.+)$/) |
534
|
0 |
0 |
unless (defined $service) |
538
|
0 |
0 |
unless (defined $ticket) |
546
|
0 |
0 |
if (defined $xml->{'cas:serviceResponse'}[0]{'cas:authenticationFailure'}) |
558
|
0 |
0 |
if (defined $xml->{'cas:serviceResponse'}[0]{'cas:authenticationSuccess'}[0]{'cas:proxies'}) |
597
|
3 |
0 |
unless ($xml and $#$xml >= 0) |
622
|
0 |
0 |
unless (open STORE, ">>$self->{'pgtFile'}") |
647
|
0 |
0 |
if (defined $xml->{'cas:serviceResponse'}[0]{'cas:proxyFailure'}) |
653
|
0 |
0 |
if (defined $xml->{'cas:serviceResponse'}[0]{'cas:proxySuccess'}[0]{'cas:proxyTicket'}) |
686
|
1 |
2 |
if ($trusted_ca_file and not -r $trusted_ca_file or $trusted_ca_path and not -d $trusted_ca_path) |
694
|
0 |
2 |
unless (eval 'require IO::Socket::SSL') |
701
|
0 |
2 |
unless (eval 'require LWP::UserAgent') |
718
|
0 |
2 |
if $trusted_ca_file |
719
|
0 |
2 |
if $trusted_ca_path |
722
|
0 |
2 |
if $trusted_ca_file or $trusted_ca_path |
726
|
2 |
0 |
if defined $ssl_data->{'SSL_version'} |
730
|
2 |
0 |
unless ($ssl_socket) |