view release on metacpan or  search on metacpan

t/unicode.t  view on Meta::CPAN

{ my $test = $tester->current_test;
  ok ($csv->status(),		"success - test $test should have succeeded");
}

ok( $csv->version(), 'inheritted version() works');

ok( $csv->isa('Text::CSV::Unicode'), 'creates a Text::CSV::Unicode object' );

my $warn;
sub _warning(&) {
    my $sub = shift;
    local $SIG{__WARN__} = sub { $warn .= $_[0]; };
    $warn = q{};
    return $sub->();
}

_warning { 
    no warnings qw(deprecated);
    Text::CSV::Unicode->new( { binary => 1 } )
};