view release on metacpan or search on metacpan
lib/JSON/Schema/Tiny.pm view on Meta::CPAN
use if "$]" >= 5.022, experimental => 're_strict';
no if "$]" >= 5.031009, feature => 'indirect';
no if "$]" >= 5.033001, feature => 'multidimensional';
no if "$]" >= 5.033006, feature => 'bareword_filehandles';
use B;
use Ref::Util 0.100 qw(is_plain_arrayref is_plain_hashref is_ref is_plain_arrayref);
use Mojo::URL;
use Mojo::JSON::Pointer;
use Carp qw(croak carp);
use Storable 'dclone';
use Mojo::JSON (); # for JSON_XS, MOJO_NO_JSON_XS environment variables
view release on metacpan or search on metacpan
lib/JavaScript/Any/Context.pm view on Meta::CPAN
use Role::Tiny;
requires 'eval';
requires 'define';
use Ref::Util qw( is_plain_scalarref );
# convenience methods here
sub implementation {
ref shift;
view release on metacpan or search on metacpan
lib/JavaScript/Const/Exporter.pm view on Meta::CPAN
use Carp;
use JSON::MaybeXS ();
use Module::Load qw/ load /;
use Package::Stash;
use Ref::Util qw/ is_scalarref /;
use Sub::Identify 0.06 qw/ is_sub_constant /;
use Types::Common::String qw/ NonEmptySimpleStr /;
use Types::Standard qw/ ArrayRef Bool HashRef InstanceOf /;
# RECOMMEND PREREQ: Cpanel::JSON::XS
# RECOMMEND PREREQ: Package::Stash::XS
# RECOMMEND PREREQ: Ref::Util::XS
# RECOMMEND PREREQ: Type::Tiny::XS
use namespace::autoclean;
our $VERSION = 'v0.1.7';
view release on metacpan or search on metacpan
0.000066 2018-06-10
* Allow saying which files should be prioritised for a stack trace.
* Cleanup eventloop implementation, removing code that deals with
files and sockets, since we don't actually use that.
* Remove test dependencies on Ref::Util, it stopped working on my
laptop for some reason... :-(.
* Made tests easier to compare with tests for JavaScript::V8::XS.
* Add more tests.
0.000065 2018-06-08
view release on metacpan or search on metacpan
lib/LWP/ConsoleLogger.pm view on Meta::CPAN
use HTTP::CookieMonster ();
use JSON::MaybeXS qw( decode_json );
use List::AllUtils qw( any apply none );
use Log::Dispatch ();
use Parse::MIME qw( parse_mime_type );
use Ref::Util qw( is_blessed_ref );
use Term::Size::Any ();
use Text::SimpleTable::AutoWidth 0.09 ();
use Try::Tiny qw( catch try );
use Types::Common::Numeric qw( PositiveInt );
use Types::Standard qw( ArrayRef Bool CodeRef InstanceOf );
view release on metacpan or search on metacpan
lib/Lib/PWQuality.pm view on Meta::CPAN
## no critic
use strict;
use warnings;
use experimental qw< signatures >;
use Ref::Util qw< is_ref is_hashref >;
use FFI::CheckLib 0.06 qw< find_lib_or_die >;
use FFI::Platypus;
use FFI::C;
use Carp ();
view release on metacpan or search on metacpan
lib/List/Flat.pm view on Meta::CPAN
our @EXPORT_OK = qw/flat flat_r flat_f/;
# if PERL_LIST_FLAT_NO_REF_UTIL environment variable is set to a true
# value, or $List::Flat::NO_REF_UTIL is set to a true value,
# uses the pure-perl version of is_plain_arrayref.
# Otherwise, uses Ref::Util if it can be successfully loaded.
BEGIN {
my $impl = $ENV{PERL_LIST_FLAT_NO_REF_UTIL}
|| our $NO_REF_UTIL;
if ( !$impl && eval { require Ref::Util; 1 } ) {
Ref::Util->import('is_plain_arrayref');
}
else {
*is_plain_arrayref = sub { ref( $_[0] ) eq 'ARRAY' };
}
}
lib/List/Flat.pm view on Meta::CPAN
=back
=head1 CONFIGURATION AND ENVIRONMENT
The functions will normally use Ref::Util to determine whether an
element is an array reference or not, but if the environment variable
$PERL_LIST_FLAT_NO_REF_UTIL is set to a true value, or the perl
variable List::Flat::NO_REF_UTIL is set to a true value before
importing it, it will use its internal pure-perl implementation.
=head1 DEPENDENCIES
It has one optional dependency, L<Ref::Util|Ref::Util>.
If it is not present, a pure perl implementation is used instead.
=head1 SEE ALSO
There are several other modules on CPAN that do similar things.
view release on metacpan or search on metacpan
lib/Log/LogMethods.pm view on Meta::CPAN
package Log::LogMethods;
use Modern::Perl;
use Time::HiRes qw(tv_interval gettimeofday);
use Ref::Util qw(is_plain_hashref is_blessed_hashref);
use Scalar::Util qw(blessed);
use B qw(svref_2object);
use Scalar::Util qw(looks_like_number);
no warnings 'redefine';
use Log::Log4perl;
view release on metacpan or search on metacpan
lib/MariaDB/NonBlocking.pm view on Meta::CPAN
OPERATION_CONNECT => 0x02,
OPERATION_PING => 0x04,
};
# Better to import this, since it is a custom op
use Ref::Util qw(is_arrayref is_coderef);
use Scalar::Util qw(weaken);
sub new {
my $class = shift;
my $obj = $class->init;
view release on metacpan or search on metacpan
lib/Math/BSpline/Basis.pm view on Meta::CPAN
# ABSTRACT: B-spline basis functions
use Moo 2.002005;
use List::Util 1.26 ('min');
use Ref::Util 0.010 (
'is_ref',
'is_plain_hashref',
'is_blessed_hashref',
'is_plain_arrayref',
);
lib/Math/BSpline/Basis.pm view on Meta::CPAN
# hashrefs at all. And since Moo apparently accepts
# blessed references, I do the same. However, I make a
# copy, blessed or not.
#
# The ugly test is due to an announced change in the
# behavior of Ref::Util. is_hashref is going to behave
# like is_plain_hashref does now. However, the planned
# replacement called is_any_hashref is not there. So the
# only future-safe implementation seems to be to use
# both explicit functions.
$munged_args = {%{$args[0]}};
view release on metacpan or search on metacpan
lib/Math/BSpline/Curve.pm view on Meta::CPAN
# ABSTRACT: B-spline curves
use Moo 2.002005;
use List::Util 1.26 ('min');
use Ref::Util 0.010 ('is_plain_arrayref');
use Log::Any 1.044 ('$logger');
use Math::BSpline::Basis 0.001;
view release on metacpan or search on metacpan
lib/Memcached/RateLimit.pm view on Meta::CPAN
package Memcached::RateLimit 0.09 {
# ABSTRACT: Sliding window rate limiting with Memcached
use FFI::Platypus 2.00;
use Ref::Util qw( is_plain_hashref );
use Carp qw( croak );
my $ffi = FFI::Platypus->new( api => 2, lang => 'Rust' );
$ffi->bundle;
$ffi->mangler(sub ($name) { "rl_$name" });
view release on metacpan or search on metacpan
examples/authors_blogs.pl view on Meta::CPAN
use strict;
use warnings;
use MetaCPAN::Client;
use Ref::Util qw< is_arrayref >;
my $mcpan = MetaCPAN::Client->new;
my $all_authors = $mcpan->all('authors');
view release on metacpan or search on metacpan
lib/Microsoft/Translator.pm view on Meta::CPAN
no warnings qw{experimental};
use feature qw{signatures state};
use Clone;
use Ref::Util qw{is_arrayref is_hashref};
use UUID::Tiny;
use HTTP::Tiny;
use Cpanel::JSON::XS;
use List::Util;
view release on metacpan or search on metacpan
lib/Missing/XS.pm view on Meta::CPAN
sub { shift->basic_check_or_warning( 'Params::Validate' ) },
sub { shift->basic_check_or_warning( 'PerlX::ArraySkip' ) },
sub { shift->basic_check_or_warning( 'PerlX::Maybe' ) },
sub { shift->basic_check_or_warning( 'PPI' ) },
sub { shift->basic_check_or_warning( 'Readonly' ) },
sub { shift->basic_check_or_warning( 'Ref::Util' ) },
sub { shift->basic_check_or_warning( 'Set::Product' ) },
sub { shift->basic_check_or_warning( 'String::Numeric' ) },
sub { shift->basic_check_or_warning( 'Text::CSV', 'Text::CSV_XS' ) },
sub { shift->basic_check_or_warning( 'Time::Format', 'Time::Format_XS' ) },
sub { shift->basic_check_or_warning( 'Type::Params', 'Class::XSAccessor' ) },
view release on metacpan or search on metacpan
### Changed
- Changed context attribute to be lazy.
- Removed dependency on Ref::Util
## [0.0.13] - 2018-06-02
### Fixed
view release on metacpan or search on metacpan
lib/MooX/Tag/TO_HASH.pm view on Meta::CPAN
use warnings;
our $VERSION = '0.05';
use Safe::Isa;
use Ref::Util qw( is_ref is_blessed_ref is_arrayref is_hashref );
use MooX::Tag::TO_HASH::Util ':all';
sub _process_value {
return \$_[0] unless is_ref( $_[0] );
view release on metacpan or search on metacpan
lib/Moonshine/Component.pm view on Meta::CPAN
use warnings;
use Moonshine::Element;
use Moonshine::Magic;
use Params::Validate qw(:all);
use Ref::Util qw(:all);
use feature qw/switch/;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
extends "UNIVERSAL::Object";
view release on metacpan or search on metacpan
lib/Moonshine/Element.pm view on Meta::CPAN
package Moonshine::Element;
use strict;
use warnings;
use Ref::Util qw/is_scalarref is_arrayref is_hashref is_blessed_ref/;
use UNIVERSAL::Object;
use Data::GUID;
use Autoload::AUTOCAN;
use Switch::Again qw/switch/;
view release on metacpan or search on metacpan
lib/Moonshine/Template.pm view on Meta::CPAN
use warnings;
our $VERSION = '0.06';
use Moonshine::Element;
use Ref::Util qw/:all/;
use Hash::Merge qw/merge/;
use Hash::Util qw/unlock_hashref/;
our @ISA;
BEGIN { @ISA = ('UNIVERSAL::Object') }
view release on metacpan or search on metacpan
lib/MooseX/Extended/Core.pm view on Meta::CPAN
use Module::Load 'load';
use feature qw(signatures postderef);
no warnings qw(experimental::signatures experimental::postderef);
use Storable 'dclone';
use Ref::Util qw(
is_plain_arrayref
is_coderef
);
use Carp 'croak';
#
view release on metacpan or search on metacpan
lib/Net/Amazon/S3/ACL/Set.pm view on Meta::CPAN
$Net::Amazon::S3::ACL::Set::VERSION = '0.991';
use Moose 0.85;
use MooseX::StrictConstructor 0.16;
use Moose::Util::TypeConstraints;
use Ref::Util ();
use Safe::Isa ();
use Net::Amazon::S3::Constants;
use Net::Amazon::S3::ACL::Grantee::User;
use Net::Amazon::S3::ACL::Grantee::Group;
lib/Net/Amazon/S3/ACL/Set.pm view on Meta::CPAN
die "Grantee type $type requires one argument"
unless @grantees;
my @grantee = (shift @grantees);
@grantees = @{ $grantee[0] }
if Ref::Util::is_plain_arrayref ($grantee[0]);
push @{ $list }, map $grantees_map{$type}->new ($_), @grantee;
}
return $self;
view release on metacpan or search on metacpan
lib/Net/AppDynamics/REST.pm view on Meta::CPAN
use Carp qw(croak);
use MIME::Base64 qw();
use URI::Escape;
use HTTP::Request;
use HTTP::Headers;
use Ref::Util qw(is_plain_arrayref);
use URI::Escape;
use namespace::clean;
use DateTime;
BEGIN {
view release on metacpan or search on metacpan
lib/Net/Hadoop/Oozie.pm view on Meta::CPAN
use parent qw( Clone );
use URI;
use Carp qw( confess );
use Moo;
use Ref::Util qw(
is_arrayref
is_hashref
);
use Hash::Flatten qw( :all );
use Date::Parse qw( str2time );
view release on metacpan or search on metacpan
lib/Net/Hadoop/WebHDFS/LWP.pm view on Meta::CPAN
# VERSION
use LWP::UserAgent;
use Carp;
use Ref::Util qw( is_arrayref );
use Scalar::Util qw( openhandle );
use HTTP::Request::StreamingUpload;
use constant UA_PASSTHROUGH_OPTIONS => qw(
cookie_jar
view release on metacpan or search on metacpan
lib/Net/Hadoop/YARN/ApplicationMaster.pm view on Meta::CPAN
use Carp ();
use Clone ();
use HTML::PullParser;
use Moo;
use Ref::Util ();
use Scalar::Util ();
use Net::Hadoop::YARN::HistoryServer;
with 'Net::Hadoop::YARN::Roles::AppMasterHistoryServer';
lib/Net/Hadoop/YARN/ApplicationMaster.pm view on Meta::CPAN
my $eval_error_hist = $@ || 'Zombie error';
Carp::confess "Received HTML from the API and attempting to map that to a historical job failed: $error\n$eval_error_hist\n";
};
foreach my $thing ( @rv ) {
next if ! Ref::Util::is_hashref $thing;
$thing->{__from_history} = 1;
}
return @rv;
}
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