view release on metacpan or  search on metacpan

lib/Database/Abstraction.pm  view on Meta::CPAN

510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
binary => 1,
f_file => $slurp_file,
escape_char => '\\',
sep_char => $sep_char,
# Don't do this, causes "Bizarre copy of HASH
#       in scalar assignment in error_diag
#       RT121127
# auto_diag => 1,
auto_diag => 0,
# Don't do this, it causes "Attempt to free unreferenced scalar"
# callbacks => {
        # after_parse => sub {
                # my ($csv, @rows) = @_;
                # my @rc;
                # foreach my $row(@rows) {
                        # if($row->[0] !~ /^#/) {
                                # push @rc, $row;
                        # }
                # }
                # return @rc;
        # }