package MyText;

sub init_XS {
    my $class = shift;
    my $usexs = shift;
    if ($usexs) {
        eval {
            use Text::CSV_XS;
            @ISA = ('Text::CSV_XS');
        }
    }
    else {
        eval {
            use Text::CSV;
            @ISA = ('Text::CSV');
        }
    }
}
1;