Pcore

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

 - No issues on bugtracker were closed since the last release
 - new DBH handle architecture
 - fix output for empty key name in dump
 - app api use new sqlite handle
 - proxy ported to the new sqlite driver
 - sql pragma added, -promise pragma removed
 - par report missed modules

v0.41.0 2017-06-22T02:41:36Z
 - No issues on bugtracker were closed since the last release
 - Ref::Util added to Pcore::Util::Scalar
 - Pcore::HTTP use more fastest ref functions
 - ca_file.pem updated
 - result class rewrited using is_ref_* functions
 - is_glob function fixed

v0.40.3 2017-06-08T05:22:02Z
 - No issues on bugtracker were closed since the last release
 - cache lru bench added
 - Pcore::Util::Hash::LRU added
 - par.perl renamed to par.ini

META.json  view on Meta::CPAN

            "MIME::Base64" : "v3.15.0",
            "MIME::Base64::URLSafe" : "v0.1.0",
            "Module::CPANfile" : "0",
            "Net::DNS::Resolver" : "v1.18.0",
            "Net::SSLeay" : "0",
            "Package::Stash::XS" : "0",
            "Perl::Tidy" : "0",
            "PerlIO::Layers" : "0",
            "Pod::Markdown" : "0",
            "Protocol::HTTP2" : "v1.9.0",
            "Ref::Util" : "0",
            "Ref::Util::XS" : "0",
            "Regexp::Util" : "0",
            "Software::License" : "0",
            "Sort::Naturally" : "0",
            "String::CRC32" : "v1.7.0",
            "Sub::Util" : "v1.50.0",
            "Sys::CpuAffinity" : "0",
            "Term::ReadKey" : "0",
            "Term::Size::Any" : "0",
            "Text::CSV_XS" : "v1.37.0",
            "Text::Xslate" : "0",

cpanfile  view on Meta::CPAN

requires 'List::AllUtils';

# Pcore::Util::Random
requires 'Net::SSLeay';

# Pcore::Util::Regexp
requires 'Regexp::Util';

# Pcore::Util::Scalar
requires 'Devel::Refcount';
requires 'Ref::Util';
requires 'Ref::Util::XS';

# Pcore::Util::Src
requires 'Perl::Tidy';
on develop => sub {
    requires 'Perl::Stripper';
    requires 'Perl::Strip';
    requires 'Perl::Critic';
    requires 'PPI::XS';
    requires 'JavaScript::Packer';
    requires 'CSS::Packer';

lib/Pcore/Util/Scalar.pm  view on Meta::CPAN

package Pcore::Util::Scalar;

use Pcore -export;
use Scalar::Util qw[blessed dualvar isdual readonly refaddr reftype tainted weaken isweak isvstring looks_like_number set_prototype];    ## no critic qw[Modules::ProhibitEvilModules]
use Devel::Refcount qw[refcount];
use Ref::Util qw[:all];

our $EXPORT = {
    ALL    => [qw[looks_like_uuid]],
    SCALAR => [qw[blessed refaddr reftype weaken isweak looks_like_number tainted refcount is_glob]],
    REF    => [qw[is_ref is_scalarref is_arrayref is_hashref is_coderef is_regexpref is_globref is_formatref is_ioref is_refref is_plain_ref is_plain_scalarref is_plain_arrayref is_plain_hashref is_plain_coderef is_plain_globref is_plain_formatref is...
    TYPE   => [qw[is_bool is_path is_uri is_res]],
};

sub looks_like_uuid : prototype($) ($str) {
    return $str =~ /\A[[:xdigit:]]{8}-[[:xdigit:]]{4}-[[:xdigit:]]{4}-[[:xdigit:]]{4}-[[:xdigit:]]{12}\z/sm;