Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
for my $row (@rows) {
    say evaluate_row($rules, $row) ? 'ACCEPTED' : 'REJECTED';
}
  2. or download this
    #!/usr/bin/perl
use warnings;
...
for my $row (@rows) {
    say $checker->check($row) ? 'ACCEPTED' : 'REJECTED';
}
  3. or download this
    #!/usr/bin/perl
use warnings;
...
for my $row (@rows) {
    say $checker->check($row) ? 'ACCEPTED' : 'REJECTED';
}