view release on metacpan or  search on metacpan

script/cpanurl  view on Meta::CPAN

BEGIN {
    eval 'require Scalar::Util';
    unless($@){
        *App::cpanurl::JSON::PP::blessed = \&Scalar::Util::blessed;
        *App::cpanurl::JSON::PP::reftype = \&Scalar::Util::reftype;
        *App::cpanurl::JSON::PP::refaddr = \&Scalar::Util::refaddr;
    }
    else{ # This code is from Sclar::Util.
        # warn $@;
        eval 'sub UNIVERSAL::a_sub_not_likely_to_be_here { ref($_[0]) }';
        *App::cpanurl::JSON::PP::blessed = sub {
            local($@, $SIG{__DIE__}, $SIG{__WARN__});
            ref($_[0]) ? eval { $_[0]->a_sub_not_likely_to_be_here } : undef;
        };
        my %tmap = qw(
            B::NULL   SCALAR
            B::HV     HASH
            B::AV     ARRAY
            B::CV     CODE
            B::IO     IO
            B::GV     GLOB
            B::REGEXP REGEXP
        );