File Coverage

blib/lib/Mojolicious/Plugin/EDumper.pm

Criterion	Covered	Total	%
statement	3	11	27.2
branch			n/a
condition	0	4	0.0
subroutine	1	3	33.3
pod	1	1	100.0
total	5	19	26.3

package Mojolicious::Plugin::EDumper;

use Mojo::Base 'Mojolicious::Plugin';
#~ use Encode qw(decode);
#~ use Data::Recursive::Encode;

our $VERSION = '0.00005';

=pod

=encoding utf8


=head1 ¡ ¡ ¡ ALL GLORY TO GLORIA ! ! !

Доброго всем, соответственно

=head1 VERSION

0.00005

=head1 NAME

Mojolicious::Plugin::EDumper - pretty dumps encoded data.

=head1 SINOPSYS

    $app->plugin('EDumper');
    $app->plugin('EDumper', helper=>'dumper');

    $c->dumper( +{'Вася' => 'Пупкин'} );

=head1 OPTIONS

=head2 helper

Name of the helper. Default - 'edumper'.


=head1 SEE ALSO

L
L
L
L

Redefine might not work:

    sub Data::Dumper::qquote {
      my $s = shift;
      return "'$s'";
    }


=head1 AUTHOR

Михаил Че (Mikhail Che), C<<  >>

=head1 BUGS / CONTRIBUTING

Please report any bugs or feature requests at L. Pull requests also welcome.

=head1 COPYRIGHT

Copyright 2016+ Mikhail Che.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

sub register {
  my ($self, $app, $conf)  = @_;
  my $enc = delete $conf->{enc} || 'utf8';
  my $helper = delete $conf->{helper} || 'edumper';
  $app->helper($helper => sub {
    shift;
    #~ decode $enc,
      #~ Data::Dumper->new(Data::Recursive::Encode->encode($enc, \@_),)
      #~ ->Indent(1)->Sortkeys(1)->Terse(1)->Useqq(0)->Dump;

      #~ eval 'qq#'.
      Data::Dumper->new(\@_)
        ->Indent(1)->Sortkeys(1)->Terse(1)->Useqq(0)->Dump
        #~ .'#';
        =~ s/((?:\\x\{[\da-f]+\})+)/eval '"'.$1.'"'/eigr;

  });
  return $self;
}

1;