view release on metacpan or  search on metacpan

t/45_eol.t  view on Meta::CPAN

	while (my $row = $csv->getline ($fh)) {
	    push @csv => $row;
	    }
	close   $fh;
	is_deeply (\@csv, \@expect, "Empty lines skipped $s_eol\tauto-detect");
	}
    }

my %ers = (
    # For backward compat :( - on 2024-12-05 XS and PP acted identical
    # some are not OK or at least do not DWIM in hindsight
    # strict : skip : reset : quoted
    '0:0:0:'  => [[ "Aardvark", "snort",   ],
                  [ "",                    ],
                  [ "Alpaca",   "spit",    ],
                  [ "Badger",   "growl",   ],
                  [ "Bat",      "screech", ],
                  [ "Bear",     "roar",    ],
                  [ "Bee",      "buzz",    ],
                  [ "",                    ],
                  [ "Camel",    "grunt",   ],