view release on metacpan or  search on metacpan

lib/PDF/TableX.pm  view on Meta::CPAN

has rows          => (is => 'ro', isa => 'Int', default => 0);
has cols          => (is => 'ro', isa => 'Int', default => 0);
has repeat_header => (is => 'rw', isa => 'Bool', default => 0);

# private attrs
has _cols => (is => 'ro', init_arg => undef, isa => 'ArrayRef[ Object ]', default => sub {[]});

# some sugar
use overload '@{}' => sub { return $_[0]->{_children}; }, fallback => 1;

# make some methods

 view release on metacpan or  search on metacpan

lib/PDK/Content/Reader.pm  view on Meta::CPAN

use DateTime;
use Carp qw'croak';
use namespace::autoclean;
use Data::Dumper;

has config => (is => 'ro', isa => 'ArrayRef[Str]', required => 1, );

has confContent => (is => 'ro', isa => 'Str', lazy => 1, builder => '_buildConfContent', );

has cursor => (is => 'ro', isa => 'Int', default => 0, );

 view release on metacpan or  search on metacpan

lib/PDK/DBI/Mysql.pm  view on Meta::CPAN

use Moose;
use DBIx::Custom;
use namespace::autoclean;
use Carp qw(croak);

has option => (is => 'ro', isa => 'Maybe[HashRef[Str]]', default => undef,);

with 'PDK::DBI::Role';

has '+dbi' => (isa => 'DBIx::Custom', handles => qr/^(?:select|update|insert|delete|execute|user).*/, );

 view release on metacpan or  search on metacpan

lib/PDK/Utils/Cache.pm  view on Meta::CPAN

use utf8;
use v5.30;
use Moose;
use namespace::autoclean;

has cache => (is => 'ro', isa => 'HashRef[Ref]', default => sub { {} }, );

sub get {
  my ($self, @keys) = @_;
  return $self->locate(@keys);
}

 view release on metacpan or  search on metacpan

lib/PGObject/Util/LogRep/TestDecoding.pm  view on Meta::CPAN

Undef or an arrayref of schalars.  If it is set, then matches returns true if
the message matches any table in any schema mentioned.

=cut

has schema => (is => 'ro', isa => Maybe[ArrayRef[Str]]);

=head2 txn_status Bool

Whether to report transactoin status.

lib/PGObject/Util/LogRep/TestDecoding.pm  view on Meta::CPAN

operates along with the schema filter and if either matches, the match is
met.

=cut

has tables => (is => 'ro', isa => Maybe[ArrayRef[Str]]);

=head2 current_txn (calculated)

Logical replication sends messages out for transactions in commit order.
Assuming the transaction numbers have been requested, this will produce the

 view release on metacpan or  search on metacpan

lib/PGP/Finger.pm  view on Meta::CPAN

use PGP::Finger::DNS;
use PGP::Finger::Keyserver;
use PGP::Finger::ResultSet;

has 'sources' => ( is => 'ro', isa => 'ArrayRef[PGP::Finger::Source]', lazy => 1,
	default => sub { [
		PGP::Finger::DNS->new,
		PGP::Finger::Keyserver->new,
	] },
);

 view release on metacpan or  search on metacpan

lib/PGXN/API.pm  view on Meta::CPAN

are L<URI::Template> objects. Includes the additional URI templates added by
L<PGXN::API::Indexer/update_mirror_meta>.

=cut

has uri_templates => (is => 'ro', isa => 'HashRef', lazy => 1, default => sub {
    my $self = shift;
    my $tmpl = $self->read_json_from(
        catfile $self->doc_root, 'index.json'
    );
    return { map { $_ => URI::Template->new($tmpl->{$_}) } keys %{ $tmpl } };

 view release on metacpan or  search on metacpan

lib/POE/Component/Server/Postfix.pm  view on Meta::CPAN

  Wheel::ReadWrite
);
use Socket ();

has server  => (is => 'ro', lazy_build => 1);
has clients => (is => 'ro', isa => 'HashRef', default => sub { {} });
has handler => (is => 'ro', isa => 'CodeRef', required => 1);
has filter  => (is => 'ro', isa => 'Str', required => 1);

sub _build_server {
  my ($self) = @_;

 view release on metacpan or  search on metacpan

lib/POE/Test/Helpers/MooseRole.pm  view on Meta::CPAN

    isa        => 'POE::Test::Helpers',
    lazy_build => 1,
    handles    => [ 'reached_event', 'check_all_counts' ],
);

has 'tests'       => ( is => 'ro', isa => 'HashRef', required => 1         );
has 'params_type' => ( is => 'ro', isa => 'Str',     default  => 'ordered' );

sub _build_object {
    my $self   = shift;
    my $object = POE::Test::Helpers->new(

 view release on metacpan or  search on metacpan

lib/Parallel/Downloader.pm  view on Meta::CPAN

use Moo;
use MooX::Types::MooseLike::Base qw( Bool Int HashRef CodeRef ArrayRef );

sub {
    has requests       => ( is => 'ro', isa => ArrayRef, required => 1 );
    has workers        => ( is => 'ro', isa => Int,      default  => sub { 10 } );
    has conns_per_host => ( is => 'ro', isa => Int,      default  => sub { 4 } );
    has aehttp_args    => ( is => 'ro', isa => HashRef,  default  => sub { {} } );
    has debug          => ( is => 'ro', isa => Bool,     default  => sub { 0 } );
    has logger         => ( is => 'ro', isa => CodeRef,  default  => sub { \&_default_log } );
    has build_response => ( is => 'ro', isa => CodeRef,  default  => sub { \&_default_build_response } );
    has sorted         => ( is => 'ro', isa => Bool,     default  => sub { 1 } );

    has _consumables => ( is => 'lazy', isa => ArrayRef, builder => '_requests_interleaved_by_host' );

    has _responses => ( is => 'ro', isa => ArrayRef, default => sub { [] } );
    has _cv => ( is => 'ro', isa => sub { $_[0]->isa( 'AnyEvent::CondVar' ) }, default => sub { AnyEvent->condvar } );
  }
  ->();

use AnyEvent::HTTP;

 view release on metacpan or  search on metacpan

lib/Parallel/Manager.pm  view on Meta::CPAN

#------------------------------------------------------------------------------
# 定义模块通用方法和属性
#------------------------------------------------------------------------------
has handler => (is => 'rw', isa => 'CodeRef', required => 1,);

has workers => (is => 'ro', isa => 'ArrayRef', required => 1,);

has thread => (is => 'rw', isa => 'Int', default => 5,);

# 等待子进程以及进入下一个子进程的周期
has poll_interval => (is => 'rw', isa => 'Num', default => 0.5,);

 view release on metacpan or  search on metacpan

lib/Parse/StackTrace.pm  view on Meta::CPAN

use List::Util qw(max min);
use Scalar::Util qw(blessed);

our $VERSION = '0.08';

has 'threads'    => (is => 'ro', isa => 'ArrayRef[Parse::StackTrace::Thread]',
                     required => 1);
has 'binary'     => (is => 'ro', isa => 'Str|Undef');
has 'text_lines' => (is => 'ro', isa => 'ArrayRef[Str]', required => 1);

# Defaults for StackTrace types that don't define these.
use constant BIN_REGEX => '';
use constant IGNORE_LINES => {};

 view release on metacpan or  search on metacpan

lib/Path/Router/Route/Match.pm  view on Meta::CPAN

use namespace::clean 0.23;
# ABSTRACT: The result of a Path::Router match


has 'path'    => (is => 'ro', isa => Str,     required => 1);
has 'mapping' => (is => 'ro', isa => HashRef, required => 1);

has 'route'   => (
    is       => 'ro',
    isa      => InstanceOf['Path::Router::Route'],
    required => 1,

 view release on metacpan or  search on metacpan

lib/Paws/Kinesis/MemoryCaller.pm  view on Meta::CPAN

use Paws::Kinesis::Record;
use Paws::Kinesis::Shard;
use Paws::Kinesis::SequenceNumberRange;
use Paws::Kinesis::StreamDescription;

has store => (is => 'ro', isa => 'HashRef', default => sub { +{} });
has shard_iterator__address => (
    is => 'ro',
    isa => 'HashRef',
    default => sub { +{} },
);

 view release on metacpan or  search on metacpan

lib/Paws/Net/MultiplexCaller.pm  view on Meta::CPAN

  with 'Paws::Net::CallerRole';

  our $VERSION = '0.03';

  # TODO: HashRef of things that do Paws::Net::CallerRole
  has caller_for => (is => 'ro', isa => 'HashRef', required => 1);
  # TODO: thing that does Paws::Net::CallerRole or Undef
  has default_caller => (is => 'ro', isa => 'Object');

  sub get_implementation {
    my ($self, $service) = @_;

 view release on metacpan or  search on metacpan

lib/Paws/ACM.pm  view on Meta::CPAN

  sub signing_name { 'acm' }
  sub version { '2015-12-08' }
  sub target_prefix { 'CertificateManager' }
  sub json_version { "1.1" }
  has max_attempts => (is => 'ro', isa => 'Int', default => 5);
  has retry => (is => 'ro', isa => 'HashRef', default => sub {
    { base => 'rand', type => 'exponential', growth_factor => 2 }
  });
  has retriables => (is => 'ro', isa => 'ArrayRef', default => sub { [
  ] });

  with 'Paws::API::Caller', 'Paws::API::EndpointResolver', 'Paws::Net::V4Signature', 'Paws::Net::JsonCaller';