File Coverage

lib/Data/Dump/AutoEncode.pm

Criterion	Covered	Total	%
statement	31	32	96.8
branch	6	10	60.0
condition	3	6	50.0
subroutine	10	10	100.0
pod	2	2	100.0
total	52	60	86.6

package Data::Dump::AutoEncode;

use strict;
use warnings;
use Carp;
use Data::Dump;
use Encode;
use Term::Encoding;
use parent 'Exporter';

our $VERSION = '0.02';
our @EXPORT = qw/edump/;
our @EXPORT_OK = qw/dump/;
our $ENCODER;

sub set_encoding {
  my $encoding = shift;

  $encoding ||= eval { Term::Encoding::get_encoding() } or croak "Can't find encoding: $@";
  $ENCODER = find_encoding($encoding) or croak "Can't find encoding: $encoding";
}

sub edump {
  set_encoding() unless $ENCODER;
  local @Data::Dump::FILTERS = sub {
    my ($ctx, $ref) = @_;
    if ($ctx->is_scalar && !$ctx->is_blessed) {
      if (Encode::is_utf8($$ref)) {
        return { dump => $ENCODER->encode($$ref) };
      }
    }
  };
  return &Data::Dump::dump;
}

*dump = \&edump;

1;

__END__