view release on metacpan or search on metacpan
lib/Net/Amazon/EMR/AddInstanceGroupsResult.pm view on Meta::CPAN
use Moose;
with 'Net::Amazon::EMR::Role::AttrHash';
use Net::Amazon::EMR::Coercions;
has 'InstanceGroupIds' => ( is => 'ro', isa => 'Net::Amazon::EMR::Type::ArrayRefofStr', coerce => 1 );
has 'JobFlowId' => ( is => 'ro', isa => 'Str' );
__PACKAGE__->meta->make_immutable();
view release on metacpan or search on metacpan
lib/Net/Amazon/S3/HTTPRequest.pm view on Meta::CPAN
has 's3' => ( is => 'ro', isa => 'Net::Amazon::S3', required => 1 );
has 'method' => ( is => 'ro', isa => 'HTTPMethod', required => 1 );
has 'path' => ( is => 'ro', isa => 'Str', required => 1 );
has 'headers' =>
( is => 'ro', isa => 'HashRef', required => 0, default => sub { {} } );
has 'content' =>
( is => 'ro', isa => 'Str|CodeRef|ScalarRef', required => 0, default => '' );
has 'metadata' =>
( is => 'ro', isa => 'HashRef', required => 0, default => sub { {} } );
has use_virtual_host => (
is => 'ro',
isa => 'Bool',
lazy => 1,
default => sub { $_[0]->s3->use_virtual_host },
view release on metacpan or search on metacpan
lib/Net/CascadeCopy.pm view on Meta::CPAN
use POSIX ":sys_wait_h"; # imports WNOHANG
use Proc::Queue size => 32, debug => 0, trace => 0, delay => 1;
my $logger = get_logger( 'default' );
has data => ( is => 'ro', isa => 'HashRef', default => sub { return {} } );
has total_time => ( is => 'rw', isa => 'Num', default => 0 );
has ssh => ( is => 'ro', isa => 'Str', default => "ssh" );
has ssh_args => ( is => 'ro', isa => 'Str', default => "-x -A" );
lib/Net/CascadeCopy.pm view on Meta::CPAN
# maximum processes per remote server
has max_forks => ( is => 'ro', isa => 'Num', default => 2 );
# keep track of child processes
has children => ( is => 'ro', isa => 'HashRef', default => sub { return {} } );
# for testing purposes
has transfer_map => ( is => 'ro', isa => 'HashRef', default => sub { return {} } );
# sort order
has sort_order => ( is => 'ro', isa => 'HashRef', default => sub { return {} } );
sub add_group {
my ( $self, $group, $servers_a ) = @_;
$logger->info( "Adding group: $group: ",
view release on metacpan or search on metacpan
lib/Net/DNS/Dynamic/Adfilter.pm view on Meta::CPAN
#use Data::Dumper;
extends 'Net::DNS::Dynamic::Proxyserver';
has adblock_stack => ( is => 'ro', isa => 'ArrayRef', required => 0 );
has blacklist => ( is => 'ro', isa => 'Str', required => 0 );
has whitelist => ( is => 'ro', isa => 'Str', required => 0 );
has loopback => ( is => 'ro', isa => 'Str', required => 0 );
has adfilter => ( is => 'rw', isa => 'HashRef', required => 0 );
has network => ( is => 'rw', isa => 'HashRef', required => 0 );
view release on metacpan or search on metacpan
lib/Net/DNS/Dynamic/Proxyserver.pm view on Meta::CPAN
has debug => ( is => 'ro', isa => 'Int', required => 0, default => 0 );
has host => ( is => 'ro', isa => 'Str', required => 0, default => '*' );
has port => ( is => 'ro', isa => 'Int', required => 0, default => 53 );
has uid => ( is => 'ro', isa => 'Int', required => 0 );
has gid => ( is => 'ro', isa => 'Int', required => 0 );
has ask_etc_hosts => ( is => 'ro', isa => 'HashRef', required => 0 );
has ask_sql => ( is => 'ro', isa => 'Net.DNS.Dynamic.Proxyserver.ValidSQLArguments', required => 0 );
has addrs => ( is => 'rw', isa => 'HashRef', init_arg => undef );
has forwarders => ( is => 'rw', isa => 'ArrayRef', required => 0, init_arg => 'nameservers' );
has forwarders_port => ( is => 'ro', isa => 'Int', required => 0, init_arg => 'nameservers_port' );
view release on metacpan or search on metacpan
lib/Net/Fluidinfo/Namespace.pm view on Meta::CPAN
use Moose;
extends 'Net::Fluidinfo::Base';
has description => (is => 'rw', isa => 'Str');
has parent => (is => 'ro', isa => 'Maybe[Net::Fluidinfo::Namespace]', lazy_build => 1);
has namespace_names => (is => 'ro', isa => 'ArrayRef[Str]', writer => '_set_namespace_names');
has tag_names => (is => 'ro', isa => 'ArrayRef[Str]', writer => '_set_tag_names');
with 'Net::Fluidinfo::HasObject', 'Net::Fluidinfo::HasPath';
our %FULL_GET_FLAGS = (
description => 1,
view release on metacpan or search on metacpan
lib/Net/Google/Blogger/Blog.pm view on Meta::CPAN
has numeric_id => ( is => 'ro', isa => 'Str', required => 1 );
has title => ( is => 'rw', isa => 'Str', required => 1 );
has public_url => ( is => 'ro', isa => 'Str', required => 1 );
has id_url => ( is => 'ro', isa => 'Str', required => 1 );
has post_url => ( is => 'ro', isa => 'Str', required => 1 );
has source_xml_tree => ( is => 'ro', isa => 'HashRef', required => 1 );
has blogger => ( is => 'ro', isa => 'Net::Google::Blogger', required => 1 );
has entries => (
is => 'rw',
isa => 'ArrayRef[Net::Google::Blogger::Blog::Entry]',
view release on metacpan or search on metacpan
lib/Net/Google/DataAPI/Auth/ClientLogin/Multiple.pm view on Meta::CPAN
has account_type => ( is => 'ro', isa => 'Str', required => 1, default => 'HOSTED_OR_GOOGLE' );
has source => ( is => 'ro', isa => 'Str', required => 1, default => __PACKAGE__ );
has username => ( is => 'ro', isa => 'Str', required => 1 );
has password => ( is => 'ro', isa => 'Str', required => 1 );
has services => ( is => 'ro', isa => 'HashRef', required => 1 );
has tokens => ( is => 'rw', isa => 'HashRef', default => sub { +{} });
sub sign_request {
my ($self, $req, $host) = @_;
$host ||= $req->uri->host;
view release on metacpan or search on metacpan
lib/Net/Google/DocumentsList/Metadata.pm view on Meta::CPAN
}
);
entry_has quota_bytes_total => (is => 'ro', isa => 'Int', tagname => 'quotaBytesTotal', ns => 'gd');
entry_has quota_bytes_used => (is => 'ro', isa => 'Int', tagname => 'quotaBytesUsed', ns => 'gd');
entry_has quota_bytes_used_in_trash => (is => 'ro', isa => 'Int', tagname => 'quotaBytesUsed', ns => 'gd');
entry_has max_upload_size => (is => 'ro', isa => 'HashRef',
from_atom => sub {
my ($self, $atom) = @_;
+{
map { $_->getAttribute('kind') => $_->textContent }
nodelist($atom->elem, $self->ns('docs')->{uri}, 'maxUploadSize')
}
},
);
for my $tag (qw(importFormat exportFormat)) {
entry_has String::CamelCase::decamelize($tag) => (is => 'ro', isa => 'HashRef',
from_atom => sub {
my ($self, $atom) = @_;
my $res = {};
for my $node (nodelist($atom->elem, $self->ns('docs')->{uri}, $tag)) {
my $source = $node->getAttribute('source');
view release on metacpan or search on metacpan
lib/Net/LCDproc/Screen.pm view on Meta::CPAN
has is_new => (is => 'rw', isa => Bool, default => 1);
has _lcdproc => (is => 'rw', isa => InstanceOf['Net::LCDproc']);
has _state => (is => 'ro', isa => HashRef, default => sub {{}});
sub set {
my ($self, $attr, $val) = @_;
view release on metacpan or search on metacpan
lib/Net/Mattermost/Bot.pm view on Meta::CPAN
has username => (is => 'ro', isa => Str, required => 1);
has password => (is => 'ro', isa => Str, required => 1);
has debug => (is => 'ro', isa => Bool, default => 0);
has ping_interval => (is => 'ro', isa => Int, default => 15);
has ssl_opts => (is => 'ro', isa => HashRef, default => sub { {} });
has token => (is => 'rw', isa => Str, default => '');
has user_id => (is => 'rw', isa => Str, default => '');
has api_url => (is => 'ro', isa => Str, lazy => 1, builder => '_build_api_url');
has endpoints => (is => 'ro', isa => HashRef, lazy => 1, builder => '_build_endpoints');
has furl => (is => 'ro', isa => Object, lazy => 1, builder => '_build_furl');
has headers => (is => 'rw', isa => ArrayRef, lazy => 1, builder => '_build_headers',
handles_via => 'Array',
handles => { add_header => 'push' });
has ws_url => (is => 'ro', isa => Str, lazy => 1, builder => '_build_ws_url');
view release on metacpan or search on metacpan
lib/Net/PMP/CollectionDoc.pm view on Meta::CPAN
is => 'rw',
isa => 'Net::PMP::Type::Href',
required => 0,
coerce => 1,
);
has 'links' => ( is => 'ro', isa => 'HashRef', required => 0, );
has 'attributes' => ( is => 'ro', isa => 'HashRef', required => 0, );
has 'version' =>
( is => 'ro', isa => 'Str', required => 1, default => sub {'1.0'}, );
has 'items' => ( is => 'ro', isa => 'ArrayRef', required => 0, );
=head1 NAME
Net::PMP::CollectionDoc - Collection.doc+JSON object for Net::PMP::Client
view release on metacpan or search on metacpan
lib/Net/Plurk/Plurk.pm view on Meta::CPAN
has 'no_comments' => (is => 'ro', isa => 'Int');
has 'content' => (is => 'ro', isa => 'Str');
has 'content_raw' => (is => 'ro', isa => 'Str');
has 'response_count' => (is => 'ro', isa => 'Int');
has 'responses_seen' => (is => 'ro', isa => 'Int');
has 'limited_to' => (is => 'ro', isa => 'ArrayRef[Int] | Undef');
no Moose::Util::TypeConstraints;
no Moose;
__PACKAGE__->meta->make_immutable;
1;
view release on metacpan or search on metacpan
my $datafile = dist_file( 'Net-RIR_CC', 'list-of-country-codes-and-rirs-ordered-by-country-code.html' );
-f $datafile or die "Missing datafile '$datafile'\n";
return $datafile;
} );
has 'table' => ( is => 'ro', lazy_build => 1 );
has 'cc_map' => ( is => 'ro', isa => 'HashRef', lazy_build => 1 );
has 'a3_map' => ( is => 'ro', isa => 'HashRef', lazy_build => 1 );
sub _build_table {
my $self = shift;
my $te = HTML::TableExtract->new( headers => [ 'A 2', 'A 3', 'Region' ] );
view release on metacpan or search on metacpan
lib/Net/RackSpace/CloudServers/Server.pm view on Meta::CPAN
isa => 'Maybe[ArrayRef[Str]]',
required => 1,
default => undef
);
has 'metadata' =>
(is => 'ro', isa => 'Maybe[HashRef]', required => 1, default => undef);
has 'personality' =>
(is => 'ro', isa => 'Maybe[ArrayRef]', required => 1, default => undef);
no Any::Moose;
__PACKAGE__->meta->make_immutable();
sub change_root_password {
view release on metacpan or search on metacpan
lib/Net/Riak/MapReducePhase.pm view on Meta::CPAN
use Scalar::Util;
use JSON;
has type => (is => 'rw', isa => 'Str', required => 1,);
has function => (is => 'ro', isa => 'Str', required => 1);
has arg => (is => 'ro', isa => 'ArrayRef', default => 'None');
has language => (is => 'ro', isa => 'Str', default => 'javascript');
has keep => (is => 'rw', isa => 'JSON::Boolean', default => sub {JSON::false});
sub to_array {
my $self = shift;
view release on metacpan or search on metacpan
lib/Net/SAML2/SP.pm view on Meta::CPAN
has 'authnreq_signed' => (isa => 'Bool', is => 'ro', required => 0, default => 1);
has 'want_assertions_signed' => (isa => 'Bool', is => 'ro', required => 0, default => 1);
has 'sign_metadata' => (isa => 'Bool', is => 'ro', required => 0, default => 1);
has assertion_consumer_service => (is => 'ro', isa => 'ArrayRef', required => 1);
has single_logout_service => (is => 'ro', isa => 'ArrayRef', required => 1);
around BUILDARGS => sub {
my $orig = shift;
my $self = shift;
view release on metacpan or search on metacpan
lib/Net/SMTP/Verify.pm view on Meta::CPAN
} );
}
}
has '_known_hosts' => (
is => 'ro', isa => 'ArrayRef', lazy => 1,
default => sub { [] },
traits => [ 'Array' ],
handles => {
'_reset_known_hosts' => 'clear',
'_add_known_host' => 'push',
view release on metacpan or search on metacpan
lib/Net/Stripe/BalanceTransaction.pm view on Meta::CPAN
has 'type' => (is => 'ro', isa => 'TransactionType');
has 'created' => (is => 'ro', isa => 'Int');
has 'available_on' => (is => 'ro', isa => 'Int');
has 'status' => (is => 'ro', isa => 'StatusType');
has 'fee' => (is => 'ro', isa => 'Int');
has 'fee_details' => (is => 'ro', isa => 'Maybe[ArrayRef]');
has 'source' => (is => 'ro', isa => 'Str');
has 'description' => (is => 'ro', isa => 'Maybe[Str]');
__PACKAGE__->meta->make_immutable;
1;
view release on metacpan or search on metacpan
lib/Net/TextMessage/Canada.pm view on Meta::CPAN
The functionality of the email-to-SMS gateway is carrier dependent. That is to say: some carriers that appreciate you as a human being make it work seamlessly. Other carriers that want to maximize their wallets may make receiving these messages exp...
=cut
has 'provider_map' => (is => 'ro', isa => 'HashRef', lazy_build => 1);
=head1 METHODS
=head2 $ntmc->providers();
view release on metacpan or search on metacpan
lib/NewsExtractor/Error.pm view on Meta::CPAN
use Moo;
use NewsExtractor::Types qw<Bool Text HashRef>;
has is_exception => ( required => 1, is => 'ro', isa => Bool, default => 0 );
has message => ( required => 1, is => 'ro', isa => Text );
has debug => ( required => 0, is => 'ro', isa => HashRef );
1;
view release on metacpan or search on metacpan
lib/Norma/ORM/Collection.pm view on Meta::CPAN
package Norma::ORM::Collection;
our $VERSION = "0.02";
use Moose;
has items => (is => 'ro', isa => 'ArrayRef', auto_deref => 1);
has total_count => (is => 'ro');
has query => (is => 'ro');
has class => (is => 'ro', required => 1);
has limit_offset => (is => 'ro');
view release on metacpan or search on metacpan
lib/OPM/Installer.pm view on Meta::CPAN
has package => ( is => 'ro', isa => Str );
has version => ( is => 'ro', isa => Str, lazy => 1, default => \&_build_version );
has prove => ( is => 'ro', default => sub { 0 } );
has manager => ( is => 'ro', lazy => 1, default => \&_build_manager );
has repositories => ( is => 'ro', isa => ArrayRef[Str] );
has conf => ( is => 'ro' );
has force => ( is => 'ro', isa => Bool );
has sudo => ( is => 'ro', isa => Bool );
has utils_ts => ( is => 'ro', lazy => 1, default => sub{ OPM::Installer::Utils::TS->new } );
has verbose => ( is => 'ro', isa => Bool, default => sub { 0 } );
view release on metacpan or search on metacpan
lib/OTRS/OPM/Installer.pm view on Meta::CPAN
has package => ( is => 'ro', isa => Str );
has otrs_version => ( is => 'ro', isa => Str, lazy => 1, default => \&_build_otrs_version );
has prove => ( is => 'ro', default => sub { 0 } );
has manager => ( is => 'ro', lazy => 1, default => \&_build_manager );
has repositories => ( is => 'ro', isa => ArrayRef[Str] );
has conf => ( is => 'ro' );
has force => ( is => 'ro', isa => Bool );
has sudo => ( is => 'ro', isa => Bool );
has utils_otrs => ( is => 'ro', lazy => 1, default => sub{ OTRS::OPM::Installer::Utils::OTRS->new } );
has verbose => ( is => 'ro', isa => Bool, default => sub { 0 } );
view release on metacpan or search on metacpan
lib/OWL/Simple/Class.pm view on Meta::CPAN
=cut
our $VERSION = 0.05;
has 'label' => ( is => 'rw', isa => 'Str' );
has 'synonyms' => ( is => 'ro', isa => 'ArrayRef', default => sub { [] } );
has 'definitions' => ( is => 'ro', isa => 'ArrayRef', default => sub { [] } );
has 'annotation' => ( is => 'rw', isa => 'Str', default => '');
has 'xrefs' => ( is => 'ro', isa => 'ArrayRef', default => sub { [] } );
has 'subClassOf' => ( is => 'ro', isa => 'ArrayRef', default => sub { [] } );
has 'part_of' => ( is => 'ro', isa => 'ArrayRef', default => sub { [] } );
has 'id' => (
is => 'rw',
isa => 'Str',
trigger => sub {
my ( $self, $id ) = @_;
view release on metacpan or search on metacpan
lib/OpenERP/OOM/Schema.pm view on Meta::CPAN
}
#-------------------------------------------------------------------------------
has _class_cache => (is => 'ro', isa => 'HashRef', default => sub { {} } );
sub class {
my ($self, $class) = @_;
if(exists $self->_class_cache->{$class})
view release on metacpan or search on metacpan
lib/OpusVL/AppKit/Plugin/AppKit.pm view on Meta::CPAN
###########################################################################################################################
# moose calls.
###########################################################################################################################
has appkit_controllers => ( is => 'ro', isa => 'ArrayRef', lazy_build => 1 );
sub _build_appkit_controllers
{
my ( $c ) = shift;
my @controllers;
view release on metacpan or search on metacpan
lib/OrePAN2/Index.pm view on Meta::CPAN
use Moo;
use Types::Standard qw( HashRef );
use namespace::clean;
has index => ( is => 'ro', isa => HashRef, default => sub { +{} } );
sub load {
my ( $self, $fname ) = @_;
my $fh = do {
view release on metacpan or search on metacpan
lib/P2/Scheduler.pm view on Meta::CPAN
Days_in_Month
Day_of_Week
);
# resources per priority
has 'resources' => (is => 'ro', isa => 'ArrayRef', required => 1);
# the type of resource
has 'resource_type' => (is => 'ro', isa => 'Str', default => 'namespace');
# how many tests per priority per day
view release on metacpan or search on metacpan
lib/PAUSE/Permissions/Module.pm view on Meta::CPAN
has 'm' => (is => 'ro');
# has 'f' => (is => 'ro', isa => 'Str');
has 'f' => (is => 'ro');
# has 'c' => (is => 'ro', isa => 'ArrayRef[Str]');
has 'c' => (is => 'ro');
sub owner
{
my $self = shift;