package Devel::Unicode;

use 5.008001;
use strict;
use warnings;
use utf8;

use Unicode::Debug;

BEGIN
{
	$Devel::Unicode::AUTHORITY = 'cpan:TOBYINK';
	$Devel::Unicode::VERSION   = '0.002';
}

*DB::DB = sub { 1 } unless UNIVERSAL::can('DB', 'can') && DB->can('DB');

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__

=pod

=encoding utf8

=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-2013 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.