package Devel::Unicode;
use Unicode::Debug;
BEGIN
{
$Devel::Unicode::AUTHORITY = 'cpan:TOBYINK';
$Devel::Unicode::VERSION = '0.001';
}
sub DB::DB { 1 }
sub import {
my $class = shift;
my $args = join q(,), @_;
$Unicode::Debug::Names = 1 if $args =~ /name/i;
$Unicode::Debug::Whitespace = 1 if $args =~ /ws|white/i;
binmode STDOUT, ':via(UnicodeDebug)' or die $!;
}
__PACKAGE__
__END__
=head1 NAME
Devel::Unicode - sugar for setting STDOUT to use PerlIO::via::UnicodeDebug
=head1 SYNOPSIS
perl -d:Unicode myscript.pl
perl -d:Unicode=names myscript.pl
=head1 BUGS
Please report any bugs to
L<http://rt.cpan.org/Dist/Display.html?Queue=Unicode-Debug>.
=head1 SEE ALSO
L<PerlIO::via::UnicodeDebug>,
L<Unicode::Debug>.
=head1 AUTHOR
Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
=head1 COPYRIGHT AND LICENCE
This software is copyright (c) 2012 by Toby Inkster.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=head1 DISCLAIMER OF WARRANTIES
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.