Select Code to Download

sub selftest(@){
   my $self = _self(@_);
   print Dumper(@_);
...
      return;
   }
}

my $chk = new Data::Validate::OO(
   -failure => sub{ my $rule = shift; print "Error in rule '$rule': ".
+join(', ',@_)."\n"; },
);
$chk->selftest(qw(This Is a Test of the emergency broadcast system!));

$VAR1 = bless( {
                 '_error' => '',
                 '_fail' => sub { "DUMMY" },
...
$VAR9 = 'broadcast';
$VAR10 = 'system!';
Not an ARRAY reference at OO.pm line 264.