Text::CSV::Simple_PP

かぜぶろさんにText::CSV::Simpleがあるよとおしえてもらた。
節操無くパクッタ。

package Text::CSV::Simple_PP;

use strict;

use warnings;

use base 'Text::CSV::Simple';

use Text::CSV_PP;

sub new {

    my $class = shift;

    return bless { _parser => Text::CSV_PP->new(@_), } => $class;

}

1;

とりあえず動いた。
あまり面白くない。