| line |
true |
false |
branch |
|
66
|
1 |
13 |
unless -d $desk_location |
|
77
|
0 |
13 |
unless open $fh, "<", $concierge_conf_file and $json = readline $fh and close $fh |
|
84
|
0 |
13 |
unless (defined $json) |
|
90
|
0 |
13 |
if ($@) |
|
102
|
2 |
11 |
if (-e $user_keys_file) { } |
|
105
|
0 |
2 |
unless open $user_keys_fh, "<", $user_keys_file |
|
118
|
13 |
0 |
if ($cleanup_result->{'success'} and $cleanup_result->{'active'}) |
|
126
|
1 |
3 |
unless ($active_sessions{$session_id}) |
|
133
|
1 |
12 |
if ($cleaned > 0) |
|
165
|
0 |
26 |
unless open my $fh, ">", $user_keys_file |
|
168
|
0 |
26 |
unless close $fh |
|
186
|
0 |
17 |
unless ref $user_input eq "HASH" |
|
191
|
2 |
15 |
unless $user_data |
|
196
|
1 |
14 |
unless $auth_data |
|
203
|
1 |
13 |
unless ($register_result->{'success'}) |
|
209
|
0 |
13 |
unless ($pwd_ok) |
|
228
|
0 |
1 |
unless defined $user_id and length $user_id |
|
236
|
1 |
0 |
if ($users_result->{'success'}) { } |
|
244
|
1 |
0 |
if ($auth_ok) { } |
|
256
|
1 |
0 |
if ($self->{'user_keys'}{$key}{'user_id'} eq $user_id) |
|
264
|
1 |
0 |
if ($session_id) |
|
266
|
1 |
0 |
if ($session_result->{'success'}) { } |
|
274
|
1 |
0 |
if ($user_key_to_delete) |
|
277
|
1 |
0 |
if ($save_result->{'success'}) { } |
|
285
|
1 |
0 |
scalar @deleted_from ? : |
|
290
|
0 |
1 |
@warnings ? : |
|
303
|
0 |
3 |
unless defined $user_id and length $user_id |
|
324
|
1 |
0 |
if ($users_exists and exists $user_result->{'user'}{'user_status'}) |
|
329
|
0 |
3 |
if ($auth_exists != $users_exists) |
|
338
|
0 |
2 |
unless defined $user_id and length $user_id |
|
341
|
0 |
2 |
unless ref $update_data eq "HASH" |
|
346
|
0 |
2 |
unless $filtered_updates and keys %$filtered_updates |
|
351
|
0 |
2 |
unless ($update_result->{'success'}) |
|
368
|
0 |
7 |
unless defined $user_id and length $user_id |
|
374
|
0 |
7 |
unless $user_result->{'success'} |
|
379
|
1 |
6 |
if (@fields) |
|
382
|
2 |
0 |
if exists $user_data->{$field} |
|
400
|
0 |
2 |
unless $list_result->{'success'} |
|
405
|
1 |
1 |
unless ($options->{'include_data'}) |
|
415
|
0 |
1 |
$options->{'fields'} ? : |
|
419
|
3 |
0 |
if $data->{'success'} |
|
435
|
0 |
2 |
unless $result->{'success'} |
|
437
|
0 |
2 |
if (@fields) |
|
455
|
0 |
1 |
unless my $visitor_id = "Concierge::Auth"->gen_random_string(13) |
|
472
|
0 |
4 |
unless my $guest_id = "Concierge::Auth"->gen_random_string(13) |
|
486
|
0 |
4 |
unless $result->{'success'} |
|
518
|
0 |
1 |
unless $guest_mapping |
|
526
|
0 |
1 |
unless $session_result->{'success'} |
|
534
|
0 |
1 |
unless $add_result->{'success'} |
|
542
|
0 |
1 |
unless $login_result->{'success'} |
|
547
|
1 |
0 |
if (%$guest_data) |
|
549
|
1 |
0 |
if ($new_session) |
|
571
|
0 |
4 |
unless defined $user_key and length $user_key |
|
576
|
1 |
3 |
unless $mapping |
|
584
|
1 |
2 |
unless ($session_result->{'success'}) |
|
596
|
1 |
1 |
if ($user_result->{'success'}) { } |
|
633
|
0 |
17 |
unless $auth_data |
|
642
|
0 |
17 |
unless $user_result->{'success'} |
|
646
|
0 |
17 |
unless $auth_ok |
|
652
|
0 |
17 |
unless $session_opts |
|
655
|
0 |
17 |
unless $session_result->{'success'} |
|
691
|
0 |
4 |
unless defined $user_id and length $user_id |
|
694
|
0 |
4 |
unless defined $password and length $password |
|
701
|
2 |
2 |
$pwd_ok ? : |
|
712
|
0 |
1 |
unless defined $user_id and length $user_id |
|
715
|
0 |
1 |
unless defined $new_password and length $new_password |
|
723
|
1 |
0 |
$reset_ok ? : |
|
734
|
0 |
1 |
unless defined $session_id and length $session_id |
|
739
|
0 |
1 |
unless ($session_check->{'success'}) |
|
748
|
1 |
0 |
if ($self->{'user_keys'}{$key}{'session_id'} eq $session_id) |
|
757
|
0 |
1 |
unless ($delete_result->{'success'}) |
|
762
|
1 |
0 |
if ($user_key_to_delete) |
|
765
|
0 |
1 |
unless ($save_result->{'success'}) |
|
771
|
1 |
0 |
$user_id ? : |