329 |
$out->{atoms} = [@out_atoms]; |
$out->{atoms} = [@out_atoms]; |
330 |
} |
} |
331 |
|
|
332 |
|
sub debug { |
333 |
|
$ENV{DEBUG} or return; |
334 |
|
print "\033[35m"; |
335 |
|
my ($package, $filename, $line, $subroutine, $hasargs, $wantarray, $evaltext, $is_require, $hints, $bitmask) = caller(2); |
336 |
|
print $subroutine . "::$line : ", @_; |
337 |
|
print "\033[0m\n"; |
338 |
|
} |
339 |
|
|
340 |
# sub validate { |
# sub validate { |
341 |
# my ($out, $atom) = @_; |
# my ($out, $atom) = @_; |
342 |
# $out->{validation_name} and eval($validation{$out->{validation_name}}->{rules}); |
# $out->{validation_name} and eval($validation{$out->{validation_name}}->{rules}); |