File Coverage

blib/lib/Mojolicious/Plugin/RoutesAuthDBI/Util.pm

Criterion	Covered	Total	%
statement	12	22	54.5
branch	0	10	0.0
condition	0	9	0.0
subroutine	4	7	57.1
pod	0	3	0.0
total	16	51	31.3

package Mojolicious::Plugin::RoutesAuthDBI::Util;
use Mojo::Base -base;
use Exporter 'import';
#~ use Mojo::JSON qw(decode_json encode_json);
#~ use Encode qw(encode decode);
use Mojo::Loader;
use JSON::PP;

my $JSON = JSON::PP->new->utf8(0);

our @EXPORT_OK = qw(json_enc json_dec load_class);

sub json_enc {
  #~ decode('utf-8', encode_json(shift));
  $JSON->encode(shift);

}

sub json_dec {
  #~ decode_json(encode('utf-8', shift));
  $JSON->decode(shift);
}

sub load_class {
  my $class;
  if (@_ == 1 && ! ref $_[0]) {$class = shift}
  else {
    my $conf = ref $_[0] ? shift : {@_};
    $class  = join '::', $conf->{namespace} ? ($conf->{namespace}) : (), $conf->{module} || $conf->{controller} || $conf->{package};
  }


  my $e; $e = Mojo::Loader::load_class($class)# success undef
    and ($e eq 1 ? 1 : warn("None load_class[$class]: ", $e)) # warn("Class [$class] not found ", sprintf("[%s] [%s] [%s]", caller))
    and return undef;
  return $class;
}

1;