Branch Coverage

blib/lib/MyLibrary/Auth.pm
Criterion Covered Total %
branch 0 22 0.0


line true false branch
138 0 0 if (my $sessid = $args{'sessid'}) { }
140 0 0 if ($MyLibrary::Config::DATA_SOURCE =~ /mysql/) { }
157 0 0 if (defined $status and $status =~ /^not authenticated$|^authenticated$|^failed authentication - invalid username$|^failed authentication - invalid password$|^failed authentication - user not in patron table$|^expired$/) { }
170 0 0 if ($MyLibrary::Config::DATA_SOURCE =~ /mysql/) { }
180 0 0 if defined $args{$attr}
186 0 0 if (defined $status and $status =~ /^not authenticated$|^authenticated$|^failed authentication$|^expired$/) { }
207 0 0 if ($_auth_obj{${$self;}}{'status_accessor'}($self) eq 'authenticated') { }
208 0 0 unless ($self->_logged_in)
258 0 0 unless (defined $cgi)
263 0 0 if (defined $args{'action'} and $args{'action'} eq 'remove') { }
280 0 0 if ($caller[0] eq 'main' or not $caller[0] =~ /^MyLibrary::Auth::\w+/ or $caller[1] ne $_auth_obj{${$self;}}{'file'})