—package
Text::CSV::Unicode;
use
strict;
use
warnings;
our
$VERSION
=
'0.200_002'
;
sub
new {
my
(
$self
,
$hash
) =
@_
;
if
(
$hash
and
$hash
-> {binary} ) {
if
(
eval
{
require
5.10.0 } ) {
if
(warnings::enabled(
"deprecated"
)) {
warnings::
warn
(
"deprecated"
,
"binary is deprecated: use Text::CSV"
);
}
}
return
Text::CSV::Base->new(
$hash
);
}
return
$self
->SUPER::new( {
binary
=> 1, %{
$hash
|| {} } } );
}
sub
combine {
my
$self
=
shift
;
for
(
grep
defined
,
@_
) {
return
unless
_ok(); }
return
$self
->SUPER::combine(
@_
);
}
sub
parse {
my
$self
=
shift
;
for
(
map
+
$_
,
grep
defined
,
@_
) {
chomp
;
return
unless
_ok();
}
return
$self
->SUPER::parse(
@_
);
}
sub
_ok { m{\A [\t \P{Cntrl}]* \z}x; }
# test $_
1;
__END__
=head1 NAME
Text::CSV::Unicode - comma-separated values manipulation routines
with potentially wide character data
=head1 SYNOPSIS
use Text::CSV::Unicode;
$csv = Text::CSV::Unicode->new( { binary => 1 } );
# then use methods from Text::CSV
$version = Text::CSV::Unicode->VERSION(); # get the module version
$csv = Text::CSV::Unicode->new(); # create a new object
$status = $csv->combine(@columns); # combine columns into a string
$line = $csv->string(); # get the combined string
$status = $csv->parse($line); # parse a CSV string into fields
@columns = $csv->fields(); # get the parsed fields
$status = $csv->status(); # get the most recent status
$bad_argument = $csv->error_input();# get the most recent bad argument
=head1 DESCRIPTION
Text::CSV::Unicode provides facilities for the composition and
decomposition of comma-separated values, based on Text::CSV.
Text::CSV::Unicode allows for input with wide character data
but does not permit control characters (by default).
=head1 FUNCTIONS
=over 4
=item VERSION
This function may be called as a class or an object method.
As a class method, it returns the currrent module version.
As an object method, it returns the version of the underlying
::Base module.
=item version
An object method: it returns the backend module version.
=item new
$csv = Text::CSV::Unicode->new( [{ binary => 1 }] );
This function may be called as a class method.
It returns a reference to a newly created object.
C<< binary => 0 >> allows the same ASCII input as Text::CSV.
C<< binary => 1 >> allows for all Unicode
characters in the input (including \r and \n):
the same functionality as C<< Text::CSV->new( { binary => 1 } >>.
This option is deprecated.
=item combine
$status = $csv->combine(@columns);
This object function constructs a CSV string from the arguments,
returning success or failure. Failure can result from lack of
arguments or an argument containing an invalid character.
Silently accepts undef values in input and treats as an empty string.
=item parse
$status = $csv->parse($line);
This object function decomposes a CSV string into fields, returning
success or failure. Failure can result from a lack of argument or
the given CSV string is improperly formatted.
Upon failure, the value returned by C<fields()> is undefined
and C<error_input()> can be called to retrieve the invalid argument.
=back
=head1 SUBROUTINES/METHODS
None
=head1 DIAGNOSTICS
None
=head1 CONFIGURATION AND ENVIRONMENT
See HASH option to C<< ->new >>.
=head1 DEPENDENCIES
perl 5.8.0
Text::CSV
=head1 VERSION
0.200
=head1 AUTHOR
Robin Barker <rmbarker@cpan.org>
=head1 SEE ALSO
Text::CSV
=head1 LICENSE AND COPYRIGHT
Copyright (c) 2007, 2008, 2010, 2011, 2012 Robin Barker.
All rights reserved.
This program is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.
The documentation of Text::CSV::Unicode methods that are inherited from
Text::CSV::Base is taken from Text::CSV 0.01 (with some reformatting)
and is Copyright (c) 1997 Alan Citterman.
=cut