File Coverage

lib/Mojolicious/Plugin/Vparam/Common.pm

Criterion	Covered	Total	%
statement	25	33	75.7
branch	8	20	40.0
condition			n/a
subroutine	10	10	100.0
pod	0	6	0.0
total	43	69	62.3

package Mojolicious::Plugin::Vparam::Common;
use Mojo::Base -strict;
use Mojo::Loader;
use Encode            qw(encode is_utf8);

use base qw(Exporter);
our @EXPORT         = qw(trim);
our @EXPORT_OK      = qw(char_shift find_modules load_class params decode_json);
our %EXPORT_TAGS    = (all => [@EXPORT, @EXPORT_OK]);

our $CHAR_SHIFT = ord('A') - 10;

sub trim($) {
    my ($str) = @_;
    return undef unless defined $str;
    s{^\s+}{}, s{\s+$}{} for $str;
    return $str;
}

# Shift for convert ASCII char position to simple sequence 0,1,2...9,A,B,C,,,
sub char_shift() {
    return $CHAR_SHIFT;
}

# Around deprication
sub find_modules {
    return Mojo::Loader::find_modules( $_[0] )
        if Mojo::Loader->can('find_modules');
    return @{ Mojo::Loader->new->search( $_[0] ) }
        if Mojo::Loader->can('new');
}

# Around deprication
sub load_class($) {
    return Mojo::Loader::load_class( $_[0] )
        if Mojo::Loader->can('load_class');
    return Mojo::Loader->new->load( $_[0] )
        if Mojo::Loader->can('load');
    die 'Looks like Mojo again depricate module Mojo::Loader';
}

# Around deprication
sub params($$) {
    return @{ $_[0]->every_param( $_[1] ) } if $_[0]->can('every_param');
    return $_[0]->param( $_[1] )            if $_[0]->can('param');
    die 'Looks like Mojo again depricate module Mojo::Controller';
}

# Around deprication + blob fix
sub decode_json($) {
    my $json = shift;

    # JSON must be blob
    $json = encode utf8 => $json if is_utf8 $json;

    return eval{ Mojo::JSON::decode_json( $json ) }
        if Mojo::JSON->can('decode_json');
    return @{ Mojo::JSON->new->decode( $json ) }
        if Mojo::JSON->can('new');
};

1;