view release on metacpan or search on metacpan
lib/Acme/CPANLists/Import/PerlAdvent/2016.pm view on Meta::CPAN
package Acme::CPANLists::Import::PerlAdvent::2016;
our $DATE = '2016-12-29'; # DATE
our $VERSION = '0.001'; # VERSION
our @Module_Lists = ({description=>"This list is generated by extracting module names mentioned in [http://perladvent.org/2016/] (retrieved on 2016-12-29). Visit the URL for the full contents.",entries=>[{module=>"Ref::Util"},{module=>"Bencher"},{mod...
1;
# ABSTRACT: Modules mentioned in Perl Advent Calendar 2016
__END__
view release on metacpan or search on metacpan
script/gen-generic-ind-company-names view on Meta::CPAN
#use strict;
#use warnings;
#use utf8;
#use parent 'Exporter';
#use Carp qw/ croak /;
#use Ref::Util 0.202 qw/ is_arrayref /;
#use String::TtyLength 0.02 qw/ tty_width /;
#
#our @EXPORT_OK = qw/ generate_table /;
#
## Legacy package globals, that can be used to customise the look.
view release on metacpan or search on metacpan
lib/Acrux/RefUtil.pm view on Meta::CPAN
See C<TODO> file
=head1 SEE ALSO
L<Data::Util::PurePerl>, L<Params::Classify>, L<Ref::Util>, L<CTK::TFVals>, L<CTK::ConfGenUtil>
=head1 AUTHOR
Serż Minus (Sergey Lepenkov) L<https://www.serzik.com> E<lt>abalama@cpan.orgE<gt>
view release on metacpan or search on metacpan
"Log::LogMethods" : "1.0",
"Modern::Perl" : "1.20170117",
"Moo" : "2.003002",
"MooX::Types::MooseLike::Base" : "0.29",
"Net::SSLeay" : "1.84",
"Ref::Util" : "0.203",
"Scalar::Util" : "1.48",
"Test::More" : "1.302073",
"Time::HiRes" : "1.9741",
"URI::Escape" : "3.31",
"namespace::clean" : "0.27",
view release on metacpan or search on metacpan
lib/AnyEvent/HTTP/Spark.pm view on Meta::CPAN
use Moo;
use MooX::Types::MooseLike::Base qw(:all);
use Data::Dumper;
use JSON qw(to_json from_json);
use HTTP::Request::Common qw(POST);
use Ref::Util qw(is_plain_arrayref is_plain_hashref);
use URI::Escape qw(uri_escape_utf8);
use namespace::clean;
use Scalar::Util qw(looks_like_number);
use AnyEvent;
view release on metacpan or search on metacpan
lib/App/Dothe.pm view on Meta::CPAN
isa => 'HashRef',
builder => '_build_vars',
init_arg => undef,
);
use Ref::Util qw/ is_arrayref is_hashref /;
sub render($self,$template,$vars) {
if( is_arrayref $template ) {
return [ map { $self->render($_,$vars) } @$template ];
}
view release on metacpan or search on metacpan
lib/App/ElasticSearch/Utilities.pm view on Meta::CPAN
use Hash::Merge::Simple qw(clone_merge);
use IPC::Run3;
use JSON::MaybeXS;
use LWP::UserAgent;
use Net::Netrc;
use Ref::Util qw(is_ref is_arrayref is_hashref);
use Time::Local;
use URI;
use URI::QueryParam;
use YAML::XS ();
view release on metacpan or search on metacpan
t/002_index_route.t view on Meta::CPAN
use App::Mxpress::PDF;
use Test::More tests => 2;
use Plack::Test;
use HTTP::Request::Common;
use Ref::Util qw<is_coderef>;
my $app = App::Mxpress::PDF->to_app;
ok( is_coderef($app), 'Got app' );
my $test = Plack::Test->create($app);
view release on metacpan or search on metacpan
lib/App/Oozie/Deploy.pm view on Meta::CPAN
use File::Spec;
use File::Temp ();
use List::MoreUtils qw( uniq );
use List::Util qw( max );
use Path::Tiny qw( path );
use Ref::Util qw( is_arrayref is_hashref );
use Sys::Hostname ();
use Template;
use Text::Glob qw(
match_glob
glob_to_regex
view release on metacpan or search on metacpan
lib/App/Spec/Plugin/Format.pm view on Meta::CPAN
use warnings;
package App::Spec::Plugin::Format;
our $VERSION = '0.013'; # VERSION
use YAML::PP;
use Ref::Util qw/ is_arrayref /;
use Encode;
use Moo;
with 'App::Spec::Role::Plugin::GlobalOptions';
view release on metacpan or search on metacpan
script/chinese-zodiac-of view on Meta::CPAN
#use strict;
#use warnings;
#use utf8;
#use parent 'Exporter';
#use Carp qw/ croak /;
#use Ref::Util qw/ is_arrayref is_ref /;
#our @EXPORT_OK = qw/ generate_table /;
#
## Legacy package globals, that can be used to customise the look.
## These are only used in the "classic" style.
## I wish I could drop them, but I don't want to break anyone's code.
view release on metacpan or search on metacpan
script/genpw-ind view on Meta::CPAN
#use strict;
#use warnings;
#use utf8;
#use parent 'Exporter';
#use Carp qw/ croak /;
#use Ref::Util 0.202 qw/ is_arrayref /;
#use String::TtyLength 0.02 qw/ tty_width /;
#
#our @EXPORT_OK = qw/ generate_table /;
#
## Legacy package globals, that can be used to customise the look.
view release on metacpan or search on metacpan
script/metasyn view on Meta::CPAN
#use strict;
#use warnings;
#use utf8;
#use parent 'Exporter';
#use Carp qw/ croak /;
#use Ref::Util 0.202 qw/ is_arrayref /;
#use String::TtyLength 0.02 qw/ tty_width /;
#
#our @EXPORT_OK = qw/ generate_table /;
#
## Legacy package globals, that can be used to customise the look.
view release on metacpan or search on metacpan
lib/App/perlimports/Document.pm view on Meta::CPAN
use PPIx::Utils::Classification qw(
is_function_call
is_hash_key
is_method_call
);
use Ref::Util qw( is_plain_arrayref is_plain_hashref );
use Scalar::Util qw( refaddr );
use Sub::HandlesVia;
use Text::Diff ();
use Try::Tiny qw( catch try );
use Types::Standard qw( ArrayRef Bool HashRef InstanceOf Maybe Object Str );
view release on metacpan or search on metacpan
eg/t/002_index_route.t view on Meta::CPAN
use Site;
use Test::More tests => 2;
use Plack::Test;
use HTTP::Request::Common;
use Ref::Util qw<is_coderef>;
my $app = Site->to_app;
ok( is_coderef($app), 'Got app' );
my $test = Plack::Test->create($app);
view release on metacpan or search on metacpan
lib/Archive/Libarchive/Extract.pm view on Meta::CPAN
package Archive::Libarchive::Extract;
use strict;
use warnings;
use Archive::Libarchive 0.04 qw( ARCHIVE_OK ARCHIVE_WARN ARCHIVE_EOF ARCHIVE_EXTRACT_TIME ARCHIVE_EXTRACT_PERM ARCHIVE_EXTRACT_ACL ARCHIVE_EXTRACT_FFLAGS );
use Ref::Util qw( is_plain_coderef is_plain_arrayref is_plain_scalarref is_ref );
use Carp ();
use File::chdir;
use Path::Tiny ();
use 5.020;
use experimental qw( signatures postderef );
view release on metacpan or search on metacpan
lib/Archive/Libarchive/Peek.pm view on Meta::CPAN
package Archive::Libarchive::Peek;
use strict;
use warnings;
use Archive::Libarchive 0.03 qw( ARCHIVE_OK ARCHIVE_WARN ARCHIVE_EOF );
use Ref::Util qw( is_plain_coderef is_plain_arrayref is_plain_scalarref is_ref );
use Carp ();
use Path::Tiny ();
use 5.022;
use experimental qw( signatures refaliasing postderef );
view release on metacpan or search on metacpan
lib/Archive/Libarchive/Unwrap.pm view on Meta::CPAN
package Archive::Libarchive::Unwrap;
use strict;
use warnings;
use Archive::Libarchive qw( ARCHIVE_OK ARCHIVE_WARN ARCHIVE_EOF );
use Ref::Util qw( is_ref );
use 5.020;
use Carp ();
use experimental qw( signatures );
# ABSTRACT: Unwrap files with multiple compression / encoding formats
view release on metacpan or search on metacpan
lib/Archive/Libarchive/ArchiveRead.pm view on Meta::CPAN
use warnings;
use 5.020;
use Archive::Libarchive::Lib;
use FFI::Platypus::Buffer qw( scalar_to_buffer scalar_to_pointer grow set_used_length window );
use FFI::Platypus::Memory qw( strdup free );
use Ref::Util qw( is_plain_scalarref is_plain_coderef is_blessed_ref is_plain_arrayref );
use Carp ();
use Scalar::Util qw( refaddr );
use experimental qw( signatures );
use parent qw( Archive::Libarchive::Archive );
use constant;
view release on metacpan or search on metacpan
lib/Astro/FITS/CFITSIO/FileName.pm view on Meta::CPAN
our $VERSION = '0.08';
use Types::Standard qw[ Str ArrayRef StrMatch Enum Bool Optional Dict ];
use Types::Common::Numeric qw[ PositiveOrZeroInt PositiveInt ];
use Scalar::Util qw[ blessed ];
use Ref::Util qw[ is_arrayref ];
use Astro::FITS::CFITSIO::FileName::Regexp -all;
sub _croak {
require Carp;
view release on metacpan or search on metacpan
lib/Bencher/Scenario/RefUtil.pm view on Meta::CPAN
use 5.010001;
use strict;
use warnings;
our $scenario = {
summary => 'Benchmark Ref::Util',
precision => 0.001,
participants => [
{
name=>'is_arrayref',
module => 'Ref::Util',
code_template => 'no warnings "void"; state $ref = []; Ref::Util::is_arrayref($ref) for 1..1000',
},
{
name=>'is_plain_arrayref',
module => 'Ref::Util',
code_template => 'no warnings "void"; state $ref = []; Ref::Util::is_plain_arrayref($ref) for 1..1000',
},
{
name=>'ref(ARRAY)',
code_template => 'no warnings "void"; state $ref = []; ref($ref) eq "ARRAY" for 1..1000',
},
view release on metacpan or search on metacpan
lib/Benchmark/Featureset/ParamCheck.pm view on Meta::CPAN
L<Specio>,
L<Type::Tiny>,
L<Type::Nano>.
B<< Other tested libraries: >>
L<Ref::Util::XS>.
=head1 AUTHOR
Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
view release on metacpan or search on metacpan
t/00_use_ok.t view on Meta::CPAN
use Test::Most;
use strict;
use warnings;
use Ref::Util qw/is_coderef/;
# we could check that we actually add the callbacks ? that is what `use` is
# suposed to do, we opught to test that here!!
#
view release on metacpan or search on metacpan
},
"test" : {
"requires" : {
"CGI::Application" : "0",
"LWP::UserAgent" : "6.42",
"Ref::Util" : "0",
"Test::MockObject" : "0",
"Test::Most" : "0",
"Test::OpenTracing::Integration" : "v0.102.0",
"Test::WWW::Mechanize::CGIApp" : "0"
}
view release on metacpan or search on metacpan
lib/CLI/Helpers.pm view on Meta::CPAN
use Capture::Tiny qw(capture);
use File::Basename;
use Getopt::Long qw(GetOptionsFromArray :config pass_through);
use IO::Interactive qw( is_interactive );
use Module::Load qw(load);
use Ref::Util qw(is_ref is_arrayref is_hashref);
use Sys::Syslog qw(:standard);
use Term::ANSIColor 2.01 qw(color colored colorstrip);
use Term::ReadKey;
use Term::ReadLine;
use YAML;