| line |
true |
false |
branch |
|
135
|
0 |
1 |
unless ref $HR_params eq 'HASH' |
|
147
|
0 |
0 |
if $debug |
|
148
|
0 |
0 |
if $debug > 2 |
|
152
|
0 |
0 |
unless $dbh->ping |
|
158
|
0 |
0 |
unless (defined $valid_Username and defined $valid_Password and defined $valid_Email) |
|
169
|
0 |
0 |
if $dbh->err |
|
171
|
0 |
0 |
if $already_used |
|
177
|
0 |
0 |
if $dbh->err |
|
179
|
0 |
0 |
if $email_used |
|
185
|
0 |
0 |
if ($value) |
|
187
|
0 |
0 |
if ($self->can($validation_method)) |
|
190
|
0 |
0 |
unless (defined $value) |
|
203
|
0 |
0 |
if $dbh->err |
|
208
|
0 |
0 |
unless $id |
|
215
|
0 |
0 |
if ($supl_tbl) |
|
219
|
0 |
0 |
if ($value) |
|
221
|
0 |
0 |
if ($self->can($validation_method)) |
|
224
|
0 |
0 |
unless (defined $value) |
|
236
|
0 |
0 |
if $dbh->err |
|
256
|
0 |
0 |
if $dbh->err |
|
263
|
0 |
0 |
unless defined $group |
|
266
|
0 |
0 |
if $dbh->err |
|
273
|
0 |
0 |
unless ref $user eq $class |
|
308
|
0 |
0 |
unless ref $HR_params eq 'HASH' |
|
317
|
0 |
0 |
if $debug |
|
318
|
0 |
0 |
if $debug > 2 |
|
321
|
0 |
0 |
if (not $$HR_params{'ID'} || $$HR_params{'Username'}) { } |
|
|
0 |
0 |
elsif ($$HR_params{'Username'}) { } |
|
330
|
0 |
0 |
if $dbh->err |
|
333
|
0 |
0 |
unless $$HR_params{'ID'} |
|
338
|
0 |
0 |
if (defined $supl_tbl) |
|
345
|
0 |
0 |
unless defined $rc |
|
364
|
0 |
0 |
if $dbh->err |
|
368
|
0 |
0 |
unless ($$HR_userinfo{'Email'}) |
|
376
|
0 |
0 |
if (defined $table) |
|
380
|
0 |
0 |
if $dbh->err |
|
400
|
0 |
0 |
unless 'CAS::User' eq caller |
|
408
|
0 |
0 |
unless (scalar keys %{$$self{'changed'};}) |
|
416
|
0 |
0 |
unless $$self{'changed'}{$field} |
|
422
|
0 |
0 |
if (@updates) |
|
425
|
0 |
0 |
if $dbh->err |
|
430
|
0 |
0 |
if (defined $table) |
|
434
|
0 |
0 |
unless $$self{'changed'}{$field} |
|
440
|
0 |
0 |
if (@updates) |
|
444
|
0 |
0 |
if $dbh->err |
|
449
|
0 |
0 |
unless ($$self{'changed'}{'Password'}) |
|
458
|
0 |
0 |
if $dbh->err |
|
474
|
0 |
0 |
unless 'CAS::User' eq caller |
|
479
|
0 |
0 |
if $dbh->err |
|
494
|
0 |
0 |
unless 'CAS::User' eq caller |
|
499
|
0 |
0 |
if $dbh->err |
|
615
|
0 |
0 |
unless 'CAS::User' eq caller |
|
617
|
0 |
0 |
if (ref $value eq 'HASH') |
|
621
|
0 |
0 |
unless (defined $value) |
|
628
|
0 |
0 |
if (length $value < 3) { } |
|
|
0 |
0 |
elsif (length $value > 50) { } |
|
641
|
0 |
0 |
if (@bad_characters) |
|
648
|
0 |
0 |
if ($errors) |
|
661
|
0 |
0 |
unless 'CAS::User' eq caller |
|
664
|
0 |
0 |
if (ref $value eq 'HASH') |
|
669
|
0 |
0 |
unless (defined $value) |
|
675
|
0 |
0 |
if $self->debug > 1 |
|
678
|
0 |
0 |
if (length $value < 6) { } |
|
|
0 |
0 |
elsif (length $value > 16) { } |
|
689
|
0 |
0 |
if (@bad_characters) |
|
696
|
0 |
0 |
if ($strict) |
|
697
|
0 |
0 |
unless ($value =~ /\d/ and $value =~ /[A-Z]/ and $value =~ /[a-z]/ and $value =~ /[^\w]/) |
|
707
|
0 |
0 |
if ($errors) |
|
720
|
0 |
0 |
unless 'CAS::User' eq caller |
|
722
|
0 |
0 |
if (ref $value eq 'HASH') |
|
726
|
0 |
0 |
unless (defined $value) |
|
735
|
0 |
0 |
if (length $value < 2 or not $value =~ /\w+/) { } |
|
|
0 |
0 |
elsif (length $value > 20) { } |
|
746
|
0 |
0 |
if (@bad_characters) |
|
753
|
0 |
0 |
if ($errors) |
|
766
|
0 |
0 |
unless 'CAS::User' eq caller |
|
768
|
0 |
0 |
if (ref $value eq 'HASH') |
|
772
|
0 |
0 |
unless (defined $value) |
|
781
|
0 |
0 |
if (length $value < 2 or not $value =~ /\w+/) { } |
|
|
0 |
0 |
elsif (length $value > 30) { } |
|
792
|
0 |
0 |
if (@bad_characters) |
|
799
|
0 |
0 |
if ($errors) |
|
812
|
0 |
0 |
unless 'CAS::User' eq caller |
|
814
|
0 |
0 |
if (ref $value eq 'HASH') |
|
818
|
0 |
0 |
unless (defined $value) |
|
827
|
0 |
0 |
if (length $value < 3 or not $value =~ /\d+/) { } |
|
|
0 |
0 |
elsif (length $value > 20) { } |
|
838
|
0 |
0 |
if (@bad_characters) |
|
844
|
0 |
0 |
if ($errors) |
|
857
|
0 |
0 |
unless 'CAS::User' eq caller |
|
859
|
0 |
0 |
if (ref $value eq 'HASH') |
|
863
|
0 |
0 |
unless (defined $value) |
|
870
|
0 |
0 |
if (length $value < 6 or not $value =~ /\w{2}/) { } |
|
|
0 |
0 |
elsif (length $value > 50) { } |
|
881
|
0 |
0 |
if (@bad_characters) |
|
887
|
0 |
0 |
unless ($value =~ /[\w\-.]+\@[\w\-.]+\.[\w\-.]{2}/) |
|
894
|
0 |
0 |
if ($errors) |
|
907
|
0 |
0 |
unless 'CAS::User' eq caller |
|
909
|
0 |
0 |
if (ref $value eq 'HASH') |
|
913
|
0 |
0 |
unless (defined $value) |
|
922
|
0 |
0 |
if (length $value < 6 or not $value =~ /\w+/) { } |
|
|
0 |
0 |
elsif (length $value > 100) { } |
|
934
|
0 |
0 |
if (@bad_chars) |
|
941
|
0 |
0 |
if ($errors) |
|
954
|
0 |
0 |
unless 'CAS::User' eq caller |
|
956
|
0 |
0 |
if (ref $value eq 'HASH') |
|
960
|
0 |
0 |
unless (defined $value) |
|
969
|
0 |
0 |
if (length $value < 6 or not $value =~ /\w+/) { } |
|
|
0 |
0 |
elsif (length $value > 100) { } |
|
981
|
0 |
0 |
if (@bad_chars) |
|
988
|
0 |
0 |
if ($errors) |
|
1001
|
0 |
0 |
unless 'CAS::User' eq caller |
|
1003
|
0 |
0 |
if (ref $value eq 'HASH') |
|
1007
|
0 |
0 |
unless (defined $value) |
|
1016
|
0 |
0 |
if (length $value < 2 or not $value =~ /\w+/) { } |
|
|
0 |
0 |
elsif (length $value > 30) { } |
|
1027
|
0 |
0 |
if (@bad_chars) |
|
1034
|
0 |
0 |
if ($errors) |
|
1047
|
0 |
0 |
unless 'CAS::User' eq caller |
|
1049
|
0 |
0 |
if (ref $value eq 'HASH') |
|
1053
|
0 |
0 |
unless (defined $value) |
|
1062
|
0 |
0 |
if (length $value < 2 or not $value =~ /\w+/) { } |
|
|
0 |
0 |
elsif (length $value > 20) { } |
|
1073
|
0 |
0 |
if (@bad_chars) |
|
1080
|
0 |
0 |
if ($errors) |
|
1093
|
0 |
0 |
unless 'CAS::User' eq caller |
|
1095
|
0 |
0 |
if (ref $value eq 'HASH') |
|
1099
|
0 |
0 |
unless (defined $value) |
|
1108
|
0 |
0 |
if (length $value < 2 or not $value =~ /\w+/) { } |
|
|
0 |
0 |
elsif (length $value > 30) { } |
|
1119
|
0 |
0 |
if (@bad_chars) |
|
1126
|
0 |
0 |
if ($errors) |
|
1139
|
0 |
0 |
unless 'CAS::User' eq caller |
|
1141
|
0 |
0 |
if (ref $value eq 'HASH') |
|
1145
|
0 |
0 |
unless (defined $value) |
|
1154
|
0 |
0 |
if (not $value =~ /\d{5}/) { } |
|
|
0 |
0 |
elsif (length $value > 10) { } |
|
1165
|
0 |
0 |
if (@bad_chars) |
|
1172
|
0 |
0 |
if ($errors) |
|
1185
|
0 |
0 |
unless ref $HR_params eq 'HASH' |
|
1196
|
0 |
0 |
if $$self{'debug'} > 1 |
|
1230
|
0 |
0 |
unless sendmail(%mail) |
|
1238
|
0 |
0 |
unless $class |
|
1239
|
0 |
0 |
unless 'CAS::User' eq caller |
|
1240
|
0 |
0 |
unless $$self{'ID'} |
|
1242
|
0 |
0 |
if (@_) |
|
1243
|
0 |
0 |
unless $$self{'ID'} |
|
1246
|
0 |
0 |
unless defined $value |
|
1264
|
0 |
0 |
if ($passwd) |
|
1282
|
0 |
0 |
if $AUTOLOAD =~ /DESTROY/ |
|
1285
|
0 |
0 |
unless $class |
|
1289
|
0 |
0 |
unless 'CAS::User' eq caller |
|
1298
|
0 |
0 |
unless (exists $$self{'_permitted'}{$name}) |
|
1302
|
0 |
0 |
if (@_) { } |
|
1303
|
0 |
0 |
unless $$self{'_permitted'}{$name} & 2 |
|
1313
|
0 |
0 |
if ($self->can($validation_method)) |
|
1316
|
0 |
0 |
unless (defined $value) |
|
1330
|
0 |
0 |
unless $$self{'_permitted'}{$name} & 1 |