Branch Coverage

blib/lib/WWW/Suffit/AuthDB/Role/CRUD.pm
Criterion Covered Total %
branch 132 316 41.7


line true false branch
405 0 6 unless length $key
411 2 4 if ($i == 1) { }
4 0 elsif ($i > 1) { }
413 0 2 if $model->error
416 3 1 if (defined $val) { }
417 0 3 unless $model->meta_set("key", $key, "value", $val)
420 0 1 unless $model->meta_del($key)
440 1 0 if (my $password = $data{'password'})
442 0 1 unless $digest
448 0 1 if $model->error
452 0 1 if ($data{'id'}) { }
454 0 0 unless $model->user_set(%data)
457 0 1 if $old{'id'}
460 0 1 unless $model->user_add(%data)
480 0 7 if $model->error
483 1 6 if ($cur{'id'}) { }
484 0 1 unless $model->user_set(%data)
487 0 6 unless $model->user_add(%data)
507 0 0 if $model->error
508 0 0 unless $old{'id'}
512 0 0 unless $model->user_edit(%data, "id", $old{'id'})
529 1 1 unless (length $username)
531 0 1 if $model->error
537 0 1 if $model->error
549 0 1 unless $model->user_del($username)
553 0 1 unless $model->grpusr_del("username", $username)
572 0 0 if $model->error
585 0 0 if $model->error
599 0 1 if $model->error
600 0 1 unless $old{'id'}
603 1 0 if (my $password = $data{'password'}) { }
605 0 1 unless $digest
612 0 1 unless $model->user_passwd(%data)
631 0 1 if $model->error
632 0 1 unless $old{'id'}
636 0 1 unless $model->user_setkeys(%data, "id", $old{'id'})
654 0 0 if $model->error
670 0 1 if $model->error
673 0 1 if ($data{'id'}) { }
674 0 0 unless $model->group_set(%data)
677 0 1 if $old{'id'}
678 0 1 unless $model->group_add(%data)
685 0 1 unless $model->grpusr_del("groupname", $data{'groupname'})
687 0 0 unless $model->grpusr_add("groupname", $data{'groupname'}, "username", $username)
691 0 1 unless $model->group_set(%data)
710 0 5 if $model->error
713 0 5 if ($cur{'id'}) { }
714 0 0 unless $model->group_set(%data)
717 0 5 unless $model->group_add(%data)
736 1 1 unless (length $groupname)
738 0 1 if $model->error
744 0 1 if $model->error
756 0 1 unless $model->group_del($groupname)
760 0 1 unless $model->grpusr_del("groupname", $groupname)
779 0 14 if $model->error
780 0 14 if $old{'id'}
783 0 14 unless $model->grpusr_add(%data)
805 0 6 if $model->error
821 0 1 if $model->error
824 0 1 if ($data{'id'}) { }
825 0 0 unless $model->realm_set(%data)
828 0 1 if $old{'id'}
829 0 1 unless $model->realm_add(%data)
836 0 1 unless $model->route_release($data{'realmname'})
839 0 0 unless $model->route_assign("routename", $routename, "realmname", $data{'realmname'})
845 0 1 unless $model->realm_requirement_del($data{'realmname'})
847 0 0 unless is_hash_ref($req)
849 0 0 unless $model->realm_requirement_add(%$req, "realmname", $data{'realmname'})
868 0 1 if $model->error
871 0 1 if ($cur{'id'}) { }
872 0 0 unless $model->realm_set(%data)
875 0 1 unless $model->realm_add(%data)
894 1 1 unless (length $realmname)
896 0 1 if $model->error
902 0 1 if $model->error
915 0 1 unless $model->realm_del($realmname)
919 0 1 unless $model->realm_requirement_del($realmname)
923 0 1 unless $model->route_release($realmname)
942 0 1 if $model->error
956 0 0 if $model->error
972 0 1 if $model->error
975 0 1 if ($data{'id'}) { }
976 0 0 unless $model->route_set(%data)
979 0 1 if $old{'id'}
980 0 1 unless $model->route_add(%data)
1000 0 0 if $model->error
1003 0 0 if ($cur{'id'}) { }
1005 0 0 unless $model->route_set(%data)
1008 0 0 unless $model->route_add(%data)
1027 1 1 unless (length $routename)
1029 0 1 if $model->error
1035 0 1 if $model->error
1048 0 1 unless $model->route_del($routename)
1064 0 0 if $model->error
1080 0 1 unless $model->token_del
1085 0 1 if ($data{'id'}) { }
0 1 elsif ($data{'type'} eq 'session') { }
1087 0 0 if $model->error
1090 0 0 if $model->error
1094 0 1 if ($old{'id'}) { }
1096 0 0 unless $model->token_set(%data)
1099 0 1 unless $model->token_add(%data)
1109 0 1 if (scalar @_ == 1) { }
0 1 elsif (scalar @_ == 2) { }
1118 0 1 if ($id) { }
0 1 elsif ($jti) { }
1120 0 0 if $model->error
1123 0 0 if $model->error
1126 0 1 if $model->error
1142 0 1 if $model->error
1143 0 1 unless $data{'id'}
1147 0 1 unless $model->token_del($data{'id'})
1163 0 0 if $model->error
1166 0 0 if $data{'id'}
1179 0 1 if ($file)
1181 0 0 if ($self->error)
1190 0 1 unless is_array_ref($users_array)
1193 0 6 unless is_hash_ref($user)
1195 0 6 unless length $username
1212 1 5 is_true_flag($user->{'disabled'}) ? :
0 6 unless $self->user_pset("username", $username, "name", $user->{'name'} // "", "email", $user->{'email'} // "", "password", $user->{'password'} // "", "algorithm", $user->{'algorithm'} // "", "role", $user->{'role'} // "", "flags", $user->{'flags'} || 0, "created", $now, "not_before", $now, "not_after", is_true_flag($user->{'disabled'}) ? $now : undef, "public_key", $user->{'public_key'} // "", "private_key", $user->{'private_key'} // "", "attributes", $user->{'attributes'} // "", "comment", $user->{'comment'} // "")
1217 0 6 unless is_array_ref($groups)
1228 0 1 unless is_array_ref($groups_array)
1230 0 5 unless is_hash_ref($group)
1232 0 5 unless length $groupname
1237 0 5 unless $self->group_pset("groupname", $groupname, "description", $group->{'description'} // "")
1242 0 5 unless is_array_ref($users)
1253 0 14 unless $self->group_enroll(%$member)
1258 0 1 unless is_array_ref($realms_array)
1260 0 1 unless is_hash_ref($realm)
1262 0 1 unless length $realmname
1269 0 1 unless $self->realm_pset("realmname", $realmname, "realm", $realm->{'realm'} // "", "satisfy", $realm->{'satisfy'} // "", "description", $realm->{'description'} // "")
1273 0 1 unless $model->realm_requirement_del($realmname)
1278 0 1 unless is_array_ref($requirements)
1280 0 2 unless is_hash_ref($req)
1281 0 2 unless $model->realm_requirement_add(%$req, "realmname", $realmname)
1286 0 1 unless $model->route_release($realmname)
1292 0 1 unless is_array_ref($routes_array)
1294 0 0 unless is_hash_ref($route)
1296 0 0 unless length $routename
1305 0 0 unless $self->route_pset("routename", $routename, "realmname", $route->{'realmname'} // "", "method", $route->{'method'} // "", "url", $route->{'url'} // "", "base", $route->{'base'} // "", "path", $route->{'path'} // "")
1311 0 1 unless is_hash_ref($meta_hash)
1313 0 0 unless defined $k and length $k
1314 0 0 unless $self->meta($k, $v)
1319 0 1 unless $self->meta("data.file", $file || $self->sourcefile)
1320 0 1 unless $self->meta("data.inited", $now)
1334 0 1 if $self->error
1337 1 5 $not_after && $not_after < $now ? :
1343 0 1 if $self->error
1346 0 5 unless length $groupname
1351 0 5 if $self->error
1361 0 1 if $self->error
1364 0 1 unless length $realmname
1369 0 1 if $self->error
1381 0 1 if $self->error
1388 0 1 if $model->error
1403 1 0 if ($file)
1405 0 1 if ($self->error)