Condition Coverage

blib/lib/Bot/Cobalt/Plugin/Auth.pm
Criterion Covered Total %
condition 0 103 0.0


and 3 conditions

line !l l&&!r l&&r condition
140 0 0 0 ref $superusers and &reftype($superusers) eq 'HASH'
149 0 0 0 ref $su{$context} and &reftype($su{$context}) eq 'HASH'
155 0 0 0 ref $su{$context}{$user} and &reftype($su{$context}{$user}) eq 'HASH'
169 0 0 0 ref $su{$context}{$user}{'Flags'} && &reftype($su{$context}{$user}{'Flags'}) eq 'HASH'
181 0 0 0 exists $su{$context}{$user}{'Masks'} and not exists $su{$context}{$user}{'Mask'}
352 0 0 0 defined $l_user and defined $l_pass
418 0 0 0 defined $passwd_old and defined $passwd_new
642 0 0 0 $target_usr and $target_lev
0 0 0 $target_usr and $target_lev and $mask
0 0 0 $target_usr and $target_lev and $mask and $passwd
949 0 0 0 $target_usr and @flags
965 0 0 0 $auth_lev >= $req_lev and $auth_lev > $target_usr_lev || $auth_usr eq $target_usr || $auth_flags->{'SUPERUSER'}
985 0 0 0 $first and $this_flag
1035 0 0 0 $target_usr and $mask_specified
1054 0 0 0 $auth_lev >= $req_lev and $auth_lev > $target_usr_lev || $auth_usr eq $target_usr || $flags->{'SUPERUSER'}
1071 0 0 0 $oper and $host
1127 0 0 0 $target_usr and $new_passwd
1169 0 0 0 defined $context and defined $user
1174 0 0 0 exists $self->AccessList->{$context} and exists $self->AccessList->{$context}{$user}
1345 0 0 0 ref $alist and &reftype($alist) eq 'HASH'

or 2 conditions

line l !l condition
319 0 0 $msg->message_array->[0] // (return 1)
464 0 0 core()->auth->username($context, $nick) // 'Not Authorized'
481 0 0 $msg->message_array->[1] // ''
580 0 0 $user_rec->{'Flags'} // {}
623 0 0 $pcfg->{'RequiredPrivs'}{'AddingUsers'} // 2
733 0 0 $pcfg->{'RequiredPrivs'}{'DeletingUsers'} // 2
818 0 0 $self->AccessList->{$context} // {}
983 0 0 $this_flag || ''
1327 0 0 $cfg->{'Method'} // 'bcrypt'
1328 0 0 $cfg->{'Bcrypt_Cost'} || '08'
1416 0 0 $p_cfg->{'Opts'}{'AuthDB_Perms'} // '0600'

or 3 conditions

line l !l&&r !l&&!r condition
76 0 0 0 $p_cfg->{'Opts'}{'AuthDB'} || 'File::Spec'->catfile('db', 'authdb.yml')
175 0 0 0 $su{$context}{$user}{'Password'} // $self->_mkpasswd(rand 10)
902 0 0 0 length $flag_repl > 300 or not @flags
913 0 0 0 length $mask_repl > 300 or not @masks
965 0 0 0 $auth_lev > $target_usr_lev || $auth_usr eq $target_usr || $auth_flags->{'SUPERUSER'}
1054 0 0 0 $auth_lev > $target_usr_lev || $auth_usr eq $target_usr || $flags->{'SUPERUSER'}
1174 0 0 0 exists $self->AccessList->{'-ALL'}{$user} or exists $self->AccessList->{$context} and exists $self->AccessList->{$context}{$user}