view release on metacpan or search on metacpan
lib/Net/Prometheus/Metric.pm view on Meta::CPAN
our @CARP_NOT = qw( Net::Prometheus );
use meta 0.009; # GvCVu bugfix
no warnings 'meta::experimental';
use Ref::Util qw( is_hashref );
use Net::Prometheus::Types qw( Sample MetricSamples );
use constant CHILDCLASS => "Net::Prometheus::Metric::_Child";
view release on metacpan or search on metacpan
lib/Net/Statsd/Lite.pm view on Meta::CPAN
use Moo 1.000000;
use Devel::StrictMode;
use IO::Socket 1.18 ();
use MooX::TypeTiny;
use Ref::Util qw/ is_plain_hashref /;
use Scalar::Util qw/ refaddr /;
use Sub::Quote qw/ quote_sub /;
use Sub::Util 1.40 qw/ set_subname /;
use Types::Common 2.000000 qw/ Bool Enum InstanceOf Int IntRange NonEmptySimpleStr
NumRange PositiveInt PositiveOrZeroInt PositiveOrZeroNum SimpleStr StrMatch
lib/Net/Statsd/Lite.pm view on Meta::CPAN
use namespace::autoclean;
use experimental qw/ signatures /;
# RECOMMEND PREREQ: Ref::Util::XS
# RECOMMEND PREREQ: Type::Tiny::XS
our $VERSION = 'v0.8.0';
view release on metacpan or search on metacpan
* Fix bug introduced by HTTP::Tiny change.
2.1.4 -
* Use HTTP::Tiny rather than LWP.
* Drop dependency on Ref::Util.
2.1.3 -
* Packaging and documentation updates.
2.1.2 -
* reintroduced method _authorize_given_url
* use Ref::Util
2.1.1 -
* Return application_plan.
* Switch to Dist::Zilla.
view release on metacpan or search on metacpan
lib/NewFangle/Transaction.pm view on Meta::CPAN
use warnings;
use 5.014;
use NewFangle::FFI;
use NewFangle::Segment;
use FFI::Platypus::Memory ();
use Ref::Util qw( is_blessed_ref );
use JSON::MaybeXS ();
use Carp ();
# ABSTRACT: NewRelic application class
view release on metacpan or search on metacpan
lib/NewsExtractor/SiteSpecificExtractor/news_pts_org_tw.pm view on Meta::CPAN
extends 'NewsExtractor::JSONLDExtractor';
with 'NewsExtractor::Role::ContentTextExtractor';
use HTML::ExtractContent;
use Importer 'NewsExtractor::TextUtil' => ('html2text', 'reformat_dateline');
use Importer 'Ref::Util' => ('is_hashref');
sub journalist {
my ($self) = @_;
my $name;
my $author = $self->schema_ld->{author};
view release on metacpan or search on metacpan
lib/OpenTelemetry/Exporter/OTLP/Encoder/JSON.pm view on Meta::CPAN
our $VERSION = '0.021';
class OpenTelemetry::Exporter::OTLP::Encoder::JSON {
use JSON::MaybeXS;
use OpenTelemetry::Constants 'HEX_INVALID_SPAN_ID';
use Ref::Util qw( is_hashref is_arrayref );
use Scalar::Util 'refaddr';
use isa 'OpenTelemetry::SDK::Logs::LogRecord';
method content_type () { 'application/json' }
view release on metacpan or search on metacpan
lib/OpenTelemetry/Instrumentation/namespace.pm view on Meta::CPAN
use Devel::Peek;
use List::Util 'pairs';
use Module::Runtime ();
use OpenTelemetry::Common;
use OpenTelemetry;
use Ref::Util qw( is_regexpref is_coderef is_hashref );
use YAML::PP;
use namespace::clean ();
use parent 'OpenTelemetry::Instrumentation';
view release on metacpan or search on metacpan
lib/OpenTelemetry/SDK.pm view on Meta::CPAN
use OpenTelemetry::Common 'config';
use OpenTelemetry::Propagator::Composite;
use OpenTelemetry::SDK::Trace::TracerProvider;
use OpenTelemetry::X;
use OpenTelemetry;
use Ref::Util 'is_coderef';
use Scalar::Util 'blessed';
use isa 'OpenTelemetry::X';
sub configure_propagators ($, @args) {
view release on metacpan or search on metacpan
lib/Log/Any/Adapter/OpenTelemetry.pm view on Meta::CPAN
our $VERSION = '0.033';
use Log::Any::Adapter::Util ();
use OpenTelemetry qw( otel_config otel_span_from_context otel_logger_provider );
use Ref::Util 'is_hashref';
use Time::HiRes 'time';
use OpenTelemetry::Constants qw(
LOG_LEVEL_TRACE
LOG_LEVEL_DEBUG
view release on metacpan or search on metacpan
lib/OpenTracing/Implementation/DataDog/Span.pm view on Meta::CPAN
with 'OpenTracing::Role::Span';
use aliased 'OpenTracing::Implementation::DataDog::SpanContext';
use Types::Standard qw/Str/;
use Ref::Util qw/is_plain_hashref/;
use Carp;
=head1 DESCRIPTION
This is a L<OpenTracing Span|OpenTracing::Interface::Span> compliant
view release on metacpan or search on metacpan
lib/OpenTracing/Role/Tracer.pm view on Meta::CPAN
use MooX::Should;
use Carp;
use List::Util qw/first/;
use OpenTracing::Types qw/ScopeManager Span SpanContext is_Span is_SpanContext/;
use Ref::Util qw/is_plain_hashref/;
use Role::Declare::Should -lax;
use Try::Tiny;
use Types::Common::Numeric qw/PositiveOrZeroNum/;
use Types::Standard qw/ArrayRef CodeRef Dict HashRef InstanceOf Maybe Object Str Undef/;
use Types::TypeTiny qw/TypeTiny/;
view release on metacpan or search on metacpan
lib/PDL/Algorithm/Center.pm view on Meta::CPAN
use Carp;
use Try::Tiny;
use Safe::Isa;
use Ref::Util qw< is_arrayref is_ref is_coderef is_hashref >;
use Hash::Wrap ( { -as => '_wrap_hash' } );
use PDL::Algorithm::Center::Failure ':all';
view release on metacpan or search on metacpan
lib/PDLx/Mask.pm view on Meta::CPAN
use v5.10;
our $VERSION = '0.06';
use Params::Check qw[ check ];
use Ref::Util ':all';
use Data::GUID;
use Safe::Isa;
use PDL::Core ':Internal';
view release on metacpan or search on metacpan
lib/PGObject/Type/ByteString.pm view on Meta::CPAN
use warnings;
use 5.010;
use Carp;
use DBD::Pg qw(:pg_types);
use Ref::Util qw(is_ref is_scalarref);
=head1 NAME
PGObject::Type::ByteString - Wrapper for raw strings mapping to BYTEA columns.
view release on metacpan or search on metacpan
bin/file-to-elasticsearch.pl view on Meta::CPAN
use JSON::MaybeXS qw(decode_json encode_json);
use Log::Log4perl qw(:easy);
use Module::Load qw(load);
use Module::Loaded qw(is_loaded);
use Pod::Usage;
use Ref::Util qw(is_arrayref is_hashref);
use YAML ();
sub POE::Kernel::ASSERT_DEFAULT { 1 }
use POE qw(
Component::ElasticSearch::Indexer
view release on metacpan or search on metacpan
lib/Package/Checkpoint.pm view on Meta::CPAN
use warnings;
use 5.020;
use experimental qw( postderef signatures );
use Package::Stash;
use Storable qw( dclone );
use Ref::Util qw( is_ref );
# ABSTRACT: Checkpoint the scalar, array and hash values in a package for later restoration
our $VERSION = '0.01'; # VERSION
view release on metacpan or search on metacpan
lib/Parse/Syslog/Line.pm view on Meta::CPAN
use Hash::Merge::Simple qw( dclone_merge );
use JSON::MaybeXS qw( decode_json );
use Module::Load qw( load );
use Module::Loaded qw( is_loaded );
use POSIX qw( strftime tzset );
use Ref::Util qw( is_arrayref );
use Time::Moment;
# RECOMMEND PREREQ: Cpanel::JSON::XS
our $VERSION = '6.2';
view release on metacpan or search on metacpan
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...
view release on metacpan or search on metacpan
lib/Perl/Critic/Policy/References/ProhibitRefChecks.pm view on Meta::CPAN
Perl::Critic::Policy::References::ProhibitRefChecks - Write C<is_arrayref($var)> instead of C<ref($var) eq 'ARRAY'>.
=head1 DESCRIPTION
Checking references manually is less efficient that using L<Ref::Util> and prone to typos.
if(ref($var) eq 'ARRYA') # oops!
if(is_arrayref($var)) # ok
if(ref($var) ne 'HASH') # no
lib/Perl/Critic/Policy/References/ProhibitRefChecks.pm view on Meta::CPAN
Regular expression matches are violations by default. To permit checks of the form C<ref(...) =~ /pattern/> or C<!~>:
[References::ProhibitRefChecks]
regexp = 1
Since L<Ref::Util> provides C<is_ref>, in the default configuration the bare C<ref> call is rarely needed. To specifically permit using direct C<ref(...)> calls:
[References::ProhibitRefChecks]
bareref = 1
=head1 NOTES
view release on metacpan or search on metacpan
local/lib/perl5/Specio.pm view on Meta::CPAN
There are several optional prereqs that if installed will make this
distribution better in some way.
=over 4
=item * L<Ref::Util>
Installing this will speed up a number of type checks for built-in types.
=item * L<XString>
view release on metacpan or search on metacpan
lib/Plack/App/Prerender.pm view on Meta::CPAN
use HTTP::Request;
use HTTP::Status qw/ :constants /;
use Plack::Request;
use Plack::Util;
use Plack::Util::Accessor qw/ mech rewrite cache max_age request response wait /;
use Ref::Util qw/ is_coderef is_plain_arrayref /;
use Time::Seconds qw/ ONE_HOUR /;
use WWW::Mechanize::Chrome;
# RECOMMEND PREREQ: CHI
# RECOMMEND PREREQ: Log::Log4perl
# RECOMMEND PREREQ: Ref::Util::XS
sub prepare_app {
my ($self) = @_;
view release on metacpan or search on metacpan
lib/Plack/Middleware/Greylist.pm view on Meta::CPAN
package Plack::Middleware::Greylist;
# ABSTRACT: throttle requests with different rates based on net blocks
# RECOMMEND PREREQ: Cache::FastMmap 1.52
# RECOMMEND PREREQ: Ref::Util::XS
use v5.20;
use warnings;
use parent qw( Plack::Middleware );
lib/Plack/Middleware/Greylist.pm view on Meta::CPAN
use List::Util 1.29 qw/ pairs /;
use Module::Load qw/ load /;
use Net::IP::LPM;
use Plack::Util;
use Plack::Util::Accessor qw/ default_rate rules cache file _match greylist retry_after cache_config callback /;
use Ref::Util qw/ is_plain_arrayref is_coderef /;
use Time::Seconds qw/ ONE_MINUTE /;
use experimental qw/ postderef signatures /;
our $VERSION = 'v0.8.1';
view release on metacpan or search on metacpan
lib/Plack/Middleware/Security/Simple.pm view on Meta::CPAN
use parent qw( Plack::Middleware );
use Hash::Match;
use HTTP::Status qw( HTTP_BAD_REQUEST );
use Ref::Util qw/ is_plain_arrayref is_plain_hashref /;
use Plack::Response;
use Plack::Util::Accessor qw( rules handler status );
# RECOMMEND PREREQ: Ref::Util::XS
our $VERSION = 'v0.13.0';
sub prepare_app {
view release on metacpan or search on metacpan
lib/Plack/Middleware/Statsd.pm view on Meta::CPAN
# ABSTRACT: send statistics to statsd
# RECOMMEND PREREQ: Net::Statsd::Tiny v0.3.0
# RECOMMEND PREREQ: HTTP::Status 6.16
# RECOMMEND PREREQ: List::Util::XS
# RECOMMEND PREREQ: Ref::Util::XS
use v5.20;
use warnings;
use parent qw/ Plack::Middleware /;
use List::Util qw/ first /;
use Plack::Util;
use Plack::Util::Accessor
qw/ client sample_rate histogram increment set_add catch_errors /;
use Ref::Util qw/ is_coderef /;
use Time::HiRes;
use Try::Tiny;
use experimental qw/ postderef signatures /;
view release on metacpan or search on metacpan
lib/Plack/Middleware/Text/Minify.pm view on Meta::CPAN
use parent qw/ Plack::Middleware /;
use Plack::Util;
use Plack::Util::Accessor qw/ path type /;
use Ref::Util qw/ is_arrayref is_coderef /;
use Text::Minify::XS v0.7.0 ();
# RECOMMEND PREREQ: Ref::Util::XS
our $VERSION = 'v0.4.1';
sub call {
my ($self, $env) = @_;
view release on metacpan or search on metacpan
lib/Plack/Middleware/Zstandard.pm view on Meta::CPAN
# ABSTRACT: Compress response body with Zstandard
use parent qw( Plack::Middleware );
use Plack::Util ();
use Plack::Util::Accessor qw( level _constructor_args vary );
use Ref::Util qw( is_plain_arrayref );
use Compress::Stream::Zstd::Compressor ();
sub prepare_app ($self) {
if(defined $self->level) {
$self->_constructor_args([$self->level]);
view release on metacpan or search on metacpan
lib/Plift/Context.pm view on Meta::CPAN
use Carp;
use XML::LibXML::jQuery;
use JSON 'to_json';
use Encode 'encode';
use namespace::clean;
use Ref::Util qw/ is_hashref is_blessed_ref /;
has 'helper', is => 'ro';
has 'wrapper', is => 'ro';
has 'template', is => 'ro', required => 1;
view release on metacpan or search on metacpan
lib/Pod/Elemental/Transformer/Splint.pm view on Meta::CPAN
use Safe::Isa;
use Try::Tiny;
use List::UtilsBy 'extract_by';
use Types::Standard qw/Str ArrayRef HashRef/;
use Module::Load qw/load/;
use Ref::Util qw/is_arrayref/;
use lib 'lib';
with qw/Pod::Elemental::Transformer Pod::Elemental::Transformer::Splint::Util/;
has command_name => (
view release on metacpan or search on metacpan
lib/Qhull/PP.pm view on Meta::CPAN
our $VERSION = '0.07';
use Exporter::Shiny 'qhull';
use Scalar::Util 'blessed';
use Ref::Util 'is_arrayref';
use List::Util 'any';
use Log::Any '$log';
use Eval::Closure 'eval_closure';
use Ref::Util 'is_hashref', 'is_plain_arrayref';
use File::Spec;
use Qhull::Util 'parse_output';
use Qhull::Util::Options 'CAT_OUTPUT_FORMAT';
use Qhull::Options;
use System::Command;