| line | % | coverage | branch |
|---|
| 254 | 100 | T | F | if (ref $schema ne "HASH") |
| 258 | 100 | T | F | if (exists $params->{'args'} and not defined $args) { } |
| 100 | T | F | elsif (ref $args ne 'HASH') { } |
| 265 | 100 | T | F | unless (exists $schema->{$key}) |
| 266 | 100 | T | F | if ($unknown_parameter_handler eq 'die') { } |
| 100 | T | F | elsif ($unknown_parameter_handler eq 'warn') { } |
| 100 | T | F | elsif ($unknown_parameter_handler eq 'ignore') { } |
| 272 | 100 | T | F | if ($logger) |
| 287 | 100 | T | F | unless (defined $rules) |
| 293 | 100 | T | F | if (ref $rules eq "") |
| 298 | 100 | T | F | if (ref $rules eq 'HASH' and $rules->{'optional'}) { } |
| 100 | T | F | elsif (not exists $args->{$key}) { } |
| 299 | 100 | T | F | unless (exists $args->{$key}) |
| 300 | 100 | T | F | if ($rules->{'default'}) |
| 312 | 100 | T | F | if (ref $rules eq 'HASH') { } |
| 50 | T | F | elsif (ref $rules) { } |
| 313 | 100 | T | F | if (my $min = $rules->{'min'} and my $max = $rules->{'max'}) |
| 314 | 100 | T | F | if ($min > $max) |
| 319 | 100 | T | F | if ($rules->{'memberof'}) |
| 320 | 50 | T | F | if (my $min = $rules->{'min'}) |
| 323 | 50 | T | F | if (my $max = $rules->{'max'}) |
| 331 | 100 | T | F | if ($rule_name eq 'type') { } |
| 100 | T | F | elsif ($rule_name eq 'min') { } |
| 100 | T | F | elsif ($rule_name eq 'max') { } |
| 100 | T | F | elsif ($rule_name eq 'matches') { } |
| 100 | T | F | elsif ($rule_name eq 'nomatch') { } |
| 100 | T | F | elsif ($rule_name eq 'memberof') { } |
| 100 | T | F | elsif ($rule_name eq 'callback') { } |
| 100 | T | F | elsif ($rule_name eq 'isa') { } |
| 100 | T | F | elsif ($rule_name eq 'can') { } |
| 100 | T | F | elsif ($rule_name eq 'element_type') { } |
| 100 | T | F | elsif ($rule_name eq 'optional') { } |
| 50 | T | F | elsif ($rule_name eq 'default') { } |
| 100 | T | F | elsif ($rule_name eq 'error_message') { } |
| 100 | T | F | elsif ($rule_name eq 'schema') { } |
| 334 | 100 | T | F | if ($type eq 'string') { } |
| 100 | T | F | elsif ($type eq 'integer') { } |
| 100 | T | F | elsif ($type eq 'number') { } |
| 100 | T | F | elsif ($type eq 'arrayref') { } |
| 100 | T | F | elsif ($type eq 'hashref') { } |
| 100 | T | F | elsif ($type eq 'boolean') { } |
| 100 | T | F | elsif ($type eq 'coderef') { } |
| 100 | T | F | elsif ($type eq 'object') { } |
| 335 | 100 | T | F | if (ref $value) |
| 336 | 100 | T | F | if ($rules->{'error_message'}) { } |
| 342 | 0 | T | F | unless (ref $value eq "" or defined $value and length $value) |
| 343 | 0 | T | F | if ($rules->{'error_message'}) { } |
| 350 | 100 | T | F | unless (defined $value) |
| 353 | 100 | T | F | unless ($value =~ /^\s*[+\-]?\d+\s*$/) |
| 354 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 362 | 100 | T | F | unless (defined $value) |
| 365 | 100 | T | F | unless (&Scalar::Util::looks_like_number($value)) |
| 366 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 375 | 100 | T | F | unless (defined $value) |
| 378 | 50 | T | F | if (ref $value ne "ARRAY") |
| 379 | 0 | T | F | if ($rules->{'error_message'}) { } |
| 386 | 100 | T | F | unless (defined $value) |
| 389 | 50 | T | F | if (ref $value ne "HASH") |
| 390 | 0 | T | F | if ($rules->{'error_message'}) { } |
| 397 | 50 | T | F | unless (defined $value) |
| 400 | 50 | T | F | if ($value eq 'true' or $value eq 'on') { } |
| 50 | T | F | elsif ($value eq 'false' or $value eq 'off') { } |
| 405 | 100 | T | F | if ($value != 1 and $value != 0) |
| 406 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 414 | 100 | T | F | if (ref $value ne "CODE") |
| 415 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 422 | 100 | T | F | unless (&Scalar::Util::blessed($value)) |
| 423 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 433 | 50 | T | F | unless (defined $rules->{'type'}) |
| 436 | 100 | T | F | if ($rules->{'type'} eq 'string') { } |
| 100 | T | F | elsif ($rules->{'type'} eq 'arrayref') { } |
| 100 | T | F | elsif ($rules->{'type'} eq 'hashref') { } |
| 100 | T | F | elsif ($rules->{'type'} eq 'integer' or $rules->{'type'} eq 'number') { } |
| 437 | 50 | T | F | unless (defined $value) |
| 440 | 100 | T | F | if (length $value < $rule_value) |
| 441 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 448 | 100 | T | F | unless (defined $value) |
| 451 | 50 | T | F | if (ref $value ne "ARRAY") |
| 452 | 0 | T | F | if ($rules->{'error_message'}) { } |
| 458 | 100 | T | F | if (scalar @{$value;} < $rule_value) |
| 459 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 466 | 50 | T | F | unless (defined $value) |
| 469 | 100 | T | F | if (scalar keys %{$value;} < $rule_value) |
| 470 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 477 | 100 | T | F | unless (defined $value) |
| 480 | 100 | T | F | if ($value < $rule_value) |
| 481 | 100 | T | F | if ($rules->{'error_message'}) { } |
| 491 | 50 | T | F | unless (defined $rules->{'type'}) |
| 494 | 100 | T | F | if ($rules->{'type'} eq 'string') { } |
| 100 | T | F | elsif ($rules->{'type'} eq 'arrayref') { } |
| 100 | T | F | elsif ($rules->{'type'} eq 'hashref') { } |
| 100 | T | F | elsif ($rules->{'type'} eq 'integer' or $rules->{'type'} eq 'number') { } |
| 495 | 50 | T | F | unless (defined $value) |
| 498 | 100 | T | F | if (length $value > $rule_value) |
| 499 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 506 | 50 | T | F | unless (defined $value) |
| 509 | 50 | T | F | if (ref $value ne "ARRAY") |
| 510 | 0 | T | F | if ($rules->{'error_message'}) { } |
| 516 | 100 | T | F | if (scalar @{$value;} > $rule_value) |
| 517 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 524 | 100 | T | F | unless (defined $value) |
| 527 | 100 | T | F | if (scalar keys %{$value;} > $rule_value) |
| 528 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 535 | 50 | T | F | unless (defined $value) |
| 538 | 100 | T | F | if ($value > $rule_value) |
| 539 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 549 | 100 | T | F | unless (defined $value) |
| 553 | 100 | T | F | if ($rules->{'type'} eq 'arrayref') { } |
| 100 | T | F | elsif (not $value =~ /$rule_value/) { } |
| 555 | 100 | T | F | if (scalar @matches != scalar @{$value;}) |
| 556 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 563 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 570 | 100 | T | F | if ($@) |
| 574 | 100 | T | F | if ($rules->{'type'} eq 'arrayref') { } |
| 100 | T | F | elsif ($value =~ /$rule_value/) { } |
| 576 | 100 | T | F | if (scalar @matches) |
| 577 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 584 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 591 | 50 | T | F | unless (defined $value) |
| 594 | 100 | T | F | if (ref $rule_value eq 'ARRAY') { } |
| 595 | 100 | T | F | if ($rules->{'type'} eq 'integer' or $rules->{'type'} eq 'number') { } |
| 596 | 100 | T | F | unless (&List::Util::any(sub {
$_ == $value;
}
, @{$rule_value;})) |
| 597 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 604 | 100 | T | F | unless (&List::Util::any(sub {
$_ eq $value;
}
, @{$rule_value;})) |
| 605 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 613 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 620 | 100 | T | F | unless (defined &$rule_value) |
| 624 | 100 | T | F | unless ($res) |
| 625 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 632 | 100 | T | F | if ($rules->{'type'} eq 'object') { } |
| 633 | 100 | T | F | unless ($value->isa($rule_value)) |
| 640 | 100 | T | F | if ($rules->{'type'} eq 'object') { } |
| 641 | 100 | T | F | if (ref $rule_value eq 'ARRAY') { } |
| 100 | T | F | elsif (not ref $rule_value) { } |
| 644 | 100 | T | F | unless ($value->can($method)) |
| 649 | 100 | T | F | unless ($value->can($rule_value)) |
| 659 | 50 | T | F | if ($rules->{'type'} eq 'arrayref') { } |
| 661 | 100 | T | F | if ($rule_value eq 'string') { } |
| 100 | T | F | elsif ($rule_value eq 'integer') { } |
| 50 | T | F | elsif ($rule_value eq 'number') { } |
| 662 | 50 | T | F | if (ref $member) |
| 663 | 0 | T | F | if ($rules->{'error_message'}) { } |
| 670 | 50 | T | F | if (ref $member or $member =~ /\D/) |
| 671 | 0 | T | F | if ($rules->{'error_message'}) { } |
| 678 | 100 | T | F | if (ref $member or not $member =~ /^[-+]?(\d*\.\d+|\d+\.?\d*)$/) |
| 679 | 50 | T | F | if ($rules->{'error_message'}) { } |
| 698 | 100 | T | F | if ($rules->{'type'} eq 'arrayref') { } |
| 50 | T | F | elsif ($rules->{'type'} eq 'hashref') { } |
| 699 | 100 | T | F | if (ref $value eq 'ARRAY') { } |
| 50 | T | F | elsif (defined $value) { } |
| 707 | 50 | T | F | if (ref $value eq 'HASH') { } |
| 708 | 100 | T | F | if (scalar keys %{$value;}) |
| 738 | 100 | T | F | if ($logger) { } |
| 751 | 100 | T | F | if ($logger) { } |