Branch Coverage

blib/lib/WWW/Suffit/AuthDB.pm
Criterion Covered Total %
branch 71 134 52.9


line true false branch
466 0 3 unless scalar @_
467 0 3 if (@_ == 1) { }
471 3 0 if (is_integer($code_or_format)) { }
473 2 1 if (@_ == 1) { }
513 0 1 if ($file) { }
514 0 0 unless $self->sourcefile
518 0 1 unless $file
519 0 1 unless -e $file
525 1 0 if (length $cont)
527 0 1 if ($@) { }
0 1 elsif (ref $data ne 'HASH') { }
542 0 2 unless $file
546 0 2 if ($@)
551 0 2 unless -e $file
562 0 2 if ($cached) { }
565 2 0 unless $model->dbh and $model->ping
567 0 2 if ($model->error) { }
0 2 elsif (not $model->ping) { }
576 1 1 unless (is_true_flag($self->initialized))
577 1 0 if ($model->is_initialized) { }
581 0 0 if $model->error
590 0 0 unless $model
591 0 0 if $model->dbh
598 0 9 unless length $str
601 3 6 if ($alg eq 'MD5') { }
1 5 elsif ($alg eq 'SHA1') { }
1 4 elsif ($alg eq 'SHA224') { }
2 2 elsif ($alg eq 'SHA256') { }
1 1 elsif ($alg eq 'SHA384') { }
1 0 elsif ($alg eq 'SHA512') { }
617 2 6 $cachekey ? :
621 0 8 unless length $username
624 2 6 $key ? :
626 1 7 if (isnt_void($cached_data) and not $forceupdate) { }
627 1 0 isnt_void($cached_data) ? :
634 0 7 if ($model->error)
638 3 4 unless $data{'id'}
642 0 4 if ($model->error)
649 1 3 if ($key)
666 0 1 $cachekey ? :
670 0 1 unless length $groupname
673 0 1 $key ? :
675 0 1 if (isnt_void($cached_data) and not $forceupdate) { }
676 0 0 isnt_void($cached_data) ? :
683 0 1 if ($model->error)
687 0 1 unless $data{'id'}
691 0 1 if ($model->error)
698 0 1 if ($key)
715 0 1 $cachekey ? :
719 0 1 unless length $realmname
722 0 1 $key ? :
724 0 1 if (isnt_void($cached_data) and not $forceupdate) { }
725 0 0 isnt_void($cached_data) ? :
733 0 1 if ($model->error)
737 0 1 unless $data{'id'}
741 0 1 if ($model->error)
749 0 2 unless my $prov = $rec->{'provider'}
762 0 1 if ($key)
779 0 2 $cachekey ? :
784 0 2 $key ? :
787 0 2 if is_hash_ref($cached_data) and is_hash_ref($cached_data->{'data'}) and $cached_data->{'expires'} < $now
790 0 2 if (isnt_void($cached_data) and not $forceupdate) { }
791 0 0 isnt_void($cached_data) ? :
798 0 2 if $model->error
804 0 0 unless $r->{'realmname'} and $base_url_fixed eq $url
823 0 2 if ($key)
986 2 0 if ($host =~ /^(((\w+\.)*localhost)|(127\.0\.0\.1)|(ip6-(localhost|loopback))|(\[?\:{2,}1\]?))$/u)