File Coverage

blib/lib/Text/CSV/Unicode.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	8	8	100.0
condition	3	3	100.0
subroutine	8	8	100.0
pod	3	3	100.0
total	50	50	100.0

package Text::CSV::Unicode;

use strict;
use warnings;

use base qw(Text::CSV);

our $VERSION = '0.400';

sub new {
    my ($self, $hash) = @_;
    if ( $hash and $hash -> {binary} ) {
        warnings::warnif("deprecated",
                "binary is deprecated: use Text::CSV");
	return Text::CSV->new( $hash );
    }
    return $self->SUPER::new( { binary => 1, %{ $hash || {} } } );
}

sub combine {
    my $self = shift;
    for (grep defined, @_) { return if _bad(); }
    return $self->SUPER::combine(@_);
}

sub parse {
    my $self = shift;
    for (map +$_, grep defined, @_) {
	    chomp;
	    return if _bad();
    }
    return $self->SUPER::parse( @_ );
}

sub _bad { m{ [^\t\P{Cntrl}] }x; }	# test $_

1;


__END__