| line |
true |
false |
branch |
|
218
|
0 |
0 |
if (ref $var) { } |
|
219
|
0 |
0 |
if (ref $var eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $var eq 'HASH') { } |
|
233
|
0 |
0 |
if (defined $var) { } |
|
248
|
3 |
0 |
if ($url =~ m[^(https?)://([^:/]+)(:(\d+))?(.*)$]) { } |
|
251
|
0 |
3 |
if ($1 eq 'http') { } |
|
|
3 |
0 |
elsif ($1 eq 'https') { } |
|
285
|
0 |
0 |
if ($new_data =~ m[^<([^\s>]+)(\s+[^\s>]+)*>([\s\S\n]*)()]m) { } |
|
376
|
0 |
3 |
if (defined $pgtUrl) |
|
450
|
1 |
4 |
unless (defined $service) |
|
454
|
1 |
3 |
unless (defined $ticket) |
|
465
|
0 |
3 |
if (defined $$xml{'cas:serviceResponse'}[0]{'cas:authenticationFailure'}) |
|
478
|
0 |
3 |
if ($$self{'proxy'}) |
|
480
|
0 |
0 |
if (defined $$xml{'cas:serviceResponse'}[0]{'cas:authenticationSuccess'}[0]{'cas:proxyGrantingTicket'}) |
|
489
|
0 |
0 |
unless (defined $$self{'pgtFile'}) |
|
495
|
0 |
0 |
unless (open STORE, $$self{'pgtFile'}) |
|
502
|
0 |
0 |
if (/^$pgtIou\s+(.+)$/) |
|
532
|
0 |
0 |
unless (defined $service) |
|
536
|
0 |
0 |
unless (defined $ticket) |
|
544
|
0 |
0 |
if (defined $$xml{'cas:serviceResponse'}[0]{'cas:authenticationFailure'}) |
|
556
|
0 |
0 |
if (defined $$xml{'cas:serviceResponse'}[0]{'cas:authenticationSuccess'}[0]{'cas:proxies'}) |
|
595
|
3 |
0 |
unless ($xml and $#$xml >= 0) |
|
620
|
0 |
0 |
unless (open STORE, ">>$$self{'pgtFile'}") |
|
645
|
0 |
0 |
if (defined $$xml{'cas:serviceResponse'}[0]{'cas:proxyFailure'}) |
|
651
|
0 |
0 |
if (defined $$xml{'cas:serviceResponse'}[0]{'cas:proxySuccess'}[0]{'cas:proxyTicket'}) |
|
684
|
1 |
2 |
if ($trusted_ca_file and not -r $trusted_ca_file or $trusted_ca_path and not -d $trusted_ca_path) |
|
692
|
0 |
2 |
unless (eval 'require IO::Socket::SSL') |
|
699
|
0 |
2 |
unless (eval 'require LWP::UserAgent') |
|
716
|
0 |
2 |
if $trusted_ca_file |
|
717
|
0 |
2 |
if $trusted_ca_path |
|
720
|
0 |
2 |
if $trusted_ca_file or $trusted_ca_path |
|
723
|
2 |
0 |
if defined $$ssl_data{'SSL_version'} |
|
728
|
2 |
0 |
unless ($ssl_socket) |