view release on metacpan or  search on metacpan

Notes/cpan-namespaces/cpan-namespaces-L1-L2.txt  view on Meta::CPAN

Redmine::Stat
Ref
Ref::Explicit
Ref::List
Ref::Store
Ref::Util
Refine
Refinements
Refinements::Package
Reflex
Reflex::Acceptor

 view release on metacpan or  search on metacpan

lib/Eliza/Chatbot/Brain.pm  view on Meta::CPAN

package Eliza::Chatbot::Brain;

use Moo;
use MooX::LazierAttributes;

use Ref::Util qw(is_scalarref is_blessed_arrayref);

attributes(
    decomp_matches => [rw, [ ], {lzy}],
    [qw/options last/] => [rw, nan, {lzy}],
);

 view release on metacpan or  search on metacpan

lib/Exception/FFI/ErrorCode.pm  view on Meta::CPAN

  use warnings;
  use 5.020;
  use constant 1.32 ();
  use experimental qw( signatures postderef );
  use Ref::Util qw( is_plain_arrayref );

  # ABSTRACT: Exception class based on integer error codes common in C code


  my %human_codes;

lib/Exception/FFI/ErrorCode.pm  view on Meta::CPAN

  package Exception::FFI::ErrorCode::Base 0.03 {

    sub _carp_always;

    use Class::Tiny qw( package filename line code trace _longmess );
    use Ref::Util qw( is_blessed_ref );
    use overload
        '""' => sub ($self,@) {
          if(_carp_always)
          {
            return $self->_longmess;

 view release on metacpan or  search on metacpan

lib/FFI/C/Stat.pm  view on Meta::CPAN

package FFI::C::Stat;

use strict;
use warnings;
use 5.008004;
use Ref::Util qw( is_ref is_globref is_blessed_ref );
use Carp ();
use FFI::Platypus 1.00;

# ABSTRACT: Object-oriented FFI interface to native stat and lstat
our $VERSION = '0.03'; # VERSION

 view release on metacpan or  search on metacpan

lib/FFI/C.pm  view on Meta::CPAN

use strict;
use warnings;
use 5.008001;
use Carp ();
use Ref::Util qw( is_ref is_plain_arrayref is_plain_hashref );

# ABSTRACT: C data types for FFI
our $VERSION = '0.15'; # VERSION

 view release on metacpan or  search on metacpan

lib/FFI/Platypus/Type/GoString.pm  view on Meta::CPAN

use strict;
use warnings;
use FFI::Platypus 1.24;
use FFI::Go::String;
use Ref::Util qw( is_blessed_ref );

# ABSTRACT: Go String type for Platypus
our $VERSION = '0.03'; # VERSION

 view release on metacpan or  search on metacpan

lib/FFI/Platypus/Legacy/Raw/Platypus.pm  view on Meta::CPAN

package FFI::Platypus::Legacy::Raw::Platypus;

use strict;
use warnings;
use Ref::Util qw( is_ref );
use FFI::Platypus;
use base qw( Exporter );

# ABSTRACT: Private class for FFI::Platypus::Legacy::Raw
our $VERSION = '0.06'; # VERSION

 view release on metacpan or  search on metacpan

lib/FFI/Platypus/Type/Enum.pm  view on Meta::CPAN

use strict;
use warnings;
use constant 1.32 ();
use 5.008001;
use Ref::Util qw( is_plain_arrayref is_plain_hashref is_ref );
use Scalar::Util qw( dualvar );
use Carp qw( croak );

# ABSTRACT: Custom platypus type for dealing with C enumerated types
our $VERSION = '0.06'; # VERSION

 view release on metacpan or  search on metacpan

lib/FFI/Platypus/Type/PtrObject.pm  view on Meta::CPAN

package FFI::Platypus::Type::PtrObject;

use strict;
use warnings;
use FFI::Platypus 1.11;
use Ref::Util qw( is_blessed_hashref );
use Carp ();
use 5.008001;

# ABSTRACT: Platypus custom type for an object wrapped around an opaque pointer
our $VERSION = '0.03'; # VERSION

 view release on metacpan or  search on metacpan

lib/Feed/Data/Parser/RSS.pm  view on Meta::CPAN

package Feed::Data::Parser::RSS;

use Moo;
extends 'Feed::Data::Parser::Base';
use XML::RSS::LibXML;
use Ref::Util ':all';
use Compiled::Params::OO qw/cpo/;
use Types::Standard qw/Object HashRef Str/;

our $validate;
BEGIN {

 view release on metacpan or  search on metacpan

lib/File/KDBX.pm  view on Meta::CPAN

use File::KDBX::Error;
use File::KDBX::Safe;
use File::KDBX::Util qw(:class :coercion :empty :search :uuid erase simple_expression_query snakify);
use Hash::Util::FieldHash qw(fieldhashes);
use List::Util qw(any first);
use Ref::Util qw(is_ref is_arrayref is_plain_hashref);
use Scalar::Util qw(blessed);
use Time::Piece 1.33;
use boolean;
use namespace::clean;

 view release on metacpan or  search on metacpan

lib/File/Rotate/Simple.pm  view on Meta::CPAN

use Graph;
use List::Util 1.43, qw/ first /;
use Module::Runtime qw/ require_module /;
use Path::Tiny 0.015;
use Ref::Util qw/ is_blessed_ref /;
use Time::Seconds qw/ ONE_DAY /;
use Types::Standard -types;

use namespace::autoclean;

our $VERSION = 'v0.3.0';

# ABSTRACT: no-frills file rotation

# RECOMMEND PREREQ: Class::Load::XS
# RECOMMEND PREREQ: Ref::Util::XS
# RECOMMEND PREREQ: Type::Tiny::XS

our @EXPORT_OK = qw/ rotate_files /;

 view release on metacpan or  search on metacpan

lib/File/XDG.pm  view on Meta::CPAN

use strict;
use warnings;
use Carp ();
use Config;
use Ref::Util qw( is_coderef is_arrayref );
use if $^O eq 'MSWin32', 'Win32';

# ABSTRACT: Basic implementation of the XDG base directory specification
our $VERSION = '1.03'; # VERSION

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

           -- send_work_complete
           -- send_work_fail
        -- _get_js_sock: no execution of object _on_connect if callback is defined
     -- fixing client do_task: do not overwrite on_fail callback
     -- Gearman::Task support of low priority
     -- remove Ref::Util dependency

2.002.004 2016-12-05 09:02:16 Europe/Berlin
     -- requires Ref::Util >= 0.020; see cpan tester report 848fbc3e-b94f-11e6-8baf-a6caeafb6ca6
     -- Makefile.PL updates
        LICENSE: perl
        min perl version 5.8.1
     -- fixing worker GEARMAN_WORKER_USE_STDIO env test

 view release on metacpan or  search on metacpan

lib/Geo/Address/Formatter.pm  view on Meta::CPAN

use feature qw(say);
use Clone qw(clone);
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use File::Basename qw(dirname);
use Ref::Util qw(is_hashref);
use Scalar::Util qw(looks_like_number);
use Text::Hogan::Compiler;
use Try::Catch;
use YAML::XS qw(LoadFile);
use utf8;

 view release on metacpan or  search on metacpan

lib/Geo/What3Words.pm  view on Meta::CPAN

$Data::Dumper::Sortkeys = 1;
use Encode qw( decode_utf8 );
use HTTP::Tiny;
use Net::Ping;
use Net::Ping::External;
use Ref::Util qw( is_hashref is_coderef );
use URI;
# DO NOT TRY TO USE URI::XS IT JUST LEADS TO PROBLEMS

my $JSONXS = Cpanel::JSON::XS->new->allow_nonref(1);

 view release on metacpan or  search on metacpan

lib/Geoffrey/Changelog/Database.pm  view on Meta::CPAN

}

sub insert {
    my ($self, $s_file, $ur_data) = @_;
    $self->_prepare_tables;
    require Ref::Util;
    return $self->{generated_sql} if Ref::Util::is_hashref($ur_data);
    for my $hr_changeset (@{$ur_data}) {
        next unless (exists $hr_changeset->{id});
        next unless scalar @{$hr_changeset->{entries}};

        push(

 view release on metacpan or  search on metacpan

lib/Geoffrey/Converter/Pg/Index.pm  view on Meta::CPAN

    }
    if ( !$params->{column} ) {
        require Geoffrey::Exception::RequiredValue;
        Geoffrey::Exception::RequiredValue::throw_refcolumn_missing();
    }
    require Ref::Util;
    require Geoffrey::Utils;
    return Geoffrey::Utils::replace_spare(
        q~CREATE INDEX {0} ON {1} ({2})~,
        [
            Geoffrey::Utils::add_name(

lib/Geoffrey/Converter/Pg/Index.pm  view on Meta::CPAN

                    context => $params->{table}
                }
            ),
            $params->{table},
            (
                join ', ', Ref::Util::is_arrayref( $params->{column} )
                ? @{ $params->{column} }
                : ( $params->{column} )
            )
        ]
    );

 view release on metacpan or  search on metacpan

lib/Geoffrey/Action/Column.pm  view on Meta::CPAN

use parent 'Geoffrey::Role::Action';

sub add {
    my ($self, $hr_params, $constraint) = @_;
    require Ref::Util;
    if (!Ref::Util::is_hashref($hr_params)) {
        require Geoffrey::Exception::General;
        Geoffrey::Exception::General::throw_wrong_ref(__PACKAGE__ . '::add', 'hash');
    }
    return $self->appending($hr_params->{table}, $hr_params, $constraint) if $self->for_table;
    my $tables = $self->converter->table;

lib/Geoffrey/Action/Column.pm  view on Meta::CPAN

}

sub drop {
    my ($self, $hr_params) = @_;
    require Ref::Util;
    if (!Ref::Util::is_hashref($hr_params)) {
        require Geoffrey::Exception::General;
        Geoffrey::Exception::General::throw_wrong_ref(__PACKAGE__ . '::drop', 'hash');
    }
    my $table = $self->converter->table;
    if (!$table || !$table->can('drop_column')) {

 view release on metacpan or  search on metacpan

lib/Graphics/Grid.pm  view on Meta::CPAN

    };

    if ( $vp->$_isa('Graphics::Grid::Viewport') ) {
        &$push_node($vp);
    }
    elsif ( Ref::Util::is_arrayref($vp) ) {
        &$push_node(@$vp);
    }
    elsif ( $vp->$_isa('Graphics::Grid::ViewportTree') ) {
        my $t = $vp;
        $self->_current_vptree->add_child($t);

 view release on metacpan or  search on metacpan

lib/Guacamole/Deparse.pm  view on Meta::CPAN

use warnings;
use parent 'Exporter';
use experimental qw< postderef signatures >;
use Guacamole;
use Data::Visitor::Tiny qw< visit >;
use Ref::Util qw< is_hashref >;

our @EXPORT_OK = qw< deparse >;

my $var_names_re = qr/^Var(Scalar|Array|Hash|Code|Glob|ArrayTop)$/;

 view release on metacpan or  search on metacpan

lib/HTTP/CSPHeader.pm  view on Meta::CPAN

use Fcntl qw/ O_NONBLOCK O_RDONLY /;
use List::Util 1.29 qw/ pairmap pairs /;
use Session::Token;
use Types::Common 2.000000 qw/ ArrayRef is_ArrayRef Bool HashRef IntRange Str /;

# RECOMMEND PREREQ: Ref::Util::XS
# RECOMMEND PREREQ: Type::Tiny::XS

use namespace::autoclean;

our $VERSION = 'v0.4.1';

 view release on metacpan or  search on metacpan

lib/AnyEvent/HTTP/MultiGet.pm  view on Meta::CPAN

use Modern::Perl;
use Moo;
use MooX::Types::MooseLike::Base qw(:all);
use Data::Dumper;
use Ref::Util qw(is_plain_arrayref);
use namespace::clean;
Log::Log4perl->wrapper_register(__PACKAGE__);

BEGIN {
  extends 'HTTP::MultiGet';

 view release on metacpan or  search on metacpan

lib/Hadoop/HDFS/Command.pm  view on Meta::CPAN

use Data::Dumper;
use DateTime::Format::Strptime;
use DateTime;
use Getopt::Long    ();
use IPC::Cmd        ();
use Ref::Util       ();
use Time::HiRes   qw( time );
use Types::Standard qw(Bool Str);

{ use Moo; }

lib/Hadoop/HDFS/Command.pm  view on Meta::CPAN

    @_ = ($self, $options, @cmd);
};

sub dfs {
    my $self = shift;
    my $options = Ref::Util::is_hashref $_[0] ? shift( @_ ) : {};
    (my $cmd    = shift || die "No dfs command specified") =~ s{ \A [-]+ }{}xms;
    my $method  = '_dfs_' . $cmd;
    Carp::croak "'$cmd' is not implemented!" if ! $self->can( $method );
    $self->$method( $options, @_ );
}

lib/Hadoop/HDFS/Command.pm  view on Meta::CPAN

    my $want_epoch = $options->{want_epoch};
    my $cb = delete $options->{callback};

    if ( $cb ) {
        die "callback needs to be a CODE" if ! Ref::Util::is_coderef $cb;
        if ( defined wantarray ) {
            Carp::croak "You need to call this function in void context when callback is specified";
        }
    }

lib/Hadoop/HDFS/Command.pm  view on Meta::CPAN

    my @getopt_args = (
        \@params,
        \my %arg,
        (
            map { Ref::Util::is_arrayref $_ ? @{ $_ } : () }
                $flags,
                $opt,
        ),
    );

 view release on metacpan or  search on metacpan

lib/Hadoop/Inline/ClassLoader.pm  view on Meta::CPAN

our $VERSION = '0.002'; # VERSION

use Carp           qw( croak   );
use File::Basename qw( dirname );
use Ref::Util      qw(
    is_arrayref
    is_hashref
);

use Constant::FromGlobal

 view release on metacpan or  search on metacpan

lib/Hash/Match.pm  view on Meta::CPAN

our $VERSION = 'v0.8.2';

use Carp qw/ croak /;
use List::AllUtils qw/ natatime /;
use Ref::Util qw/ is_arrayref is_blessed_ref is_coderef is_hashref is_ref is_regexpref /;

# RECOMMEND PREREQ: List::SomeUtils::XS
# RECOMMEND PREREQ: Ref::Util::XS

use namespace::autoclean;


sub new {

 view release on metacpan or  search on metacpan

lib/Image/DS9.pm  view on Meta::CPAN

use Safe::Isa;

use Image::DS9::Command;
use Image::DS9::Util 'parse_version';
use Time::HiRes qw[ sleep ];
use Ref::Util 'is_ref', 'is_arrayref';
use List::Util 'any', 'first';
use Log::Any '$log', prefix => ( __PACKAGE__ . q{: } );
use Image::DS9::Constants::V1 -terminate_ds9, 'TERMINATE_DS9';

use constant SERVER => 'ds9';

 view release on metacpan or  search on metacpan

lib/Iterator/Flex/Array.pm  view on Meta::CPAN

use warnings;

our $VERSION = '0.19';

use Iterator::Flex::Utils ':IterAttrs';
use Ref::Util;
use namespace::clean;
use experimental 'signatures';

use parent 'Iterator::Flex::Base';

lib/Iterator/Flex/Array.pm  view on Meta::CPAN

sub new ( $class, $array, $pars = {} ) {
    $class->_throw( parameter => "argument must be an ARRAY reference" )
      unless Ref::Util::is_arrayref( $array );

    $class->SUPER::new( { array => $array }, $pars );
}


sub construct ( $class, $state ) {

    $class->_throw( parameter => "'state' parameter must be a HASH reference" )
      unless Ref::Util::is_hashref( $state );

    my ( $arr, $prev, $current, $next )
      = @{$state}{qw[ array prev current next ]};

    $class->_throw( parameter => "state 'array' parameter must be a HASH reference" )
      unless Ref::Util::is_arrayref( $arr );

    my $len = @$arr;

    $next = 0 unless defined $next;

 view release on metacpan or  search on metacpan

lib/JSON/Schema/Modern/Document/OpenAPI.pm  view on Meta::CPAN

use JSON::Schema::Modern::Utilities 0.525 qw(assert_keyword_exists assert_keyword_type E canonical_uri get_type);
use Safe::Isa;
use File::ShareDir 'dist_dir';
use Path::Tiny;
use List::Util qw(any pairs);
use Ref::Util 'is_plain_hashref';
use MooX::HandlesVia;
use MooX::TypeTiny 0.002002;
use Types::Standard qw(InstanceOf HashRef Str);
use namespace::clean;

 view release on metacpan or  search on metacpan

lib/JSON/Schema/Modern.pm  view on Meta::CPAN

no if "$]" >= 5.041009, feature => 'smartmatch';
no feature 'switch';
use Mojo::JSON ();  # for JSON_XS, MOJO_NO_JSON_XS environment variables
use Carp qw(croak carp);
use List::Util 1.55 qw(pairs first uniqint pairmap uniq any min);
use Ref::Util 0.100 qw(is_ref is_plain_hashref);
use builtin::compat qw(refaddr load_module);
use Mojo::URL;
use Safe::Isa;
use Path::Tiny;
use Storable 'dclone';