view release on metacpan or search on metacpan
WIP/blib/lib/Mildew/AST/Block.pm view on Meta::CPAN
class Mildew::AST::Block extends Mildew::AST::Base {
has 'stmts' => (is=>'ro',isa=>'ArrayRef[Mildew::AST::Base]');
has 'regs' => (is=>'ro',default=>sub {[]},isa=>'ArrayRef[Str]');
method m0ld($ret) {
"my $ret = mold {\n"
. join('',map {'my $'.$_.";\n"} @{$self->regs})
. join("",map { $_->m0ld('$void') } @{$self->stmts})
. "};\n";
view release on metacpan or search on metacpan
lib/Module/Faker/Dist.pm view on Meta::CPAN
#pod =cut
# Module::Faker options
has cpan_author => (is => 'ro', isa => 'Maybe[Str]', default => 'LOCAL');
has archive_ext => (is => 'ro', isa => 'Str', default => 'tar.gz');
has append => (is => 'ro', isa => 'ArrayRef[HashRef]', default => sub {[]});
has mtime => (is => 'ro', isa => 'Int', predicate => 'has_mtime');
#pod =attr x_authority
#pod
#pod This is the C<X_Authority> header that gets put into the META files.
view release on metacpan or search on metacpan
lib/Module/Provision/Base.pm view on Meta::CPAN
option 'perms' => is => 'ro', isa => OctalNum, format => 'i',
documentation => 'Default permission for file / directory creation',
default => '640', coerce => TRUE;
option 'plugins' => is => 'ro', isa => ArrayRef[NonEmptySimpleStr],
documentation => 'Name of optional plugins to load, comma separated list',
builder => sub { [] }, format => 's', short => 'M',
coerce => sub { (is_arrayref $_[ 0 ])
? $_[ 0 ] : [ split m{ , }mx, $_[ 0 ] ] };
view release on metacpan or search on metacpan
lib/Mojo/PDF/Primitive/Table.pm view on Meta::CPAN
has at => (
is => 'ro',
required => 1,
isa => Tuple[ StrictNum, StrictNum ],
);
has data => ( is => 'ro', required => 1, isa => ArrayRef, );
has pdf => (
is => 'ro',
required => 1,
isa => InstanceOf['Mojo::PDF'],
);
view release on metacpan or search on metacpan
lib/MongoDBx/Class.pm view on Meta::CPAN
=cut
has 'namespace' => (is => 'ro', isa => 'Str', required => 1);
has 'search_dirs' => (is => 'ro', isa => 'ArrayRef[Str]', default => sub { [] });
has 'doc_classes' => (is => 'ro', isa => 'HashRef', default => sub { {} });
=head2 namespace
A string representing the namespace of the MongoDB schema used (e.g.
C<MyApp::Schema>). Your document classes, structurally speaking, should be
view release on metacpan or search on metacpan
# from RT Bug #81725
package Bar;
use Moose;
with 'Mongoose::Document';
has y => ( is => 'ro', isa => 'HashRef[ArrayRef[Foo]]' );
package Foo;
use Moose;
with 'Mongoose::EmbeddedDocument';
view release on metacpan or search on metacpan
lib/Monorail/Change/AddField.pm view on Meta::CPAN
has type => (is => 'ro', isa => 'Str', required => 1);
has is_nullable => (is => 'ro', isa => 'Bool', required => 1, default => 1);
has is_primary_key => (is => 'ro', isa => 'Bool', required => 1, default => 0);
has is_unique => (is => 'ro', isa => 'Bool', required => 1, default => 0);
has default_value => (is => 'ro', isa => 'Any', required => 0);
has size => (is => 'ro', isa => 'ArrayRef', required => 0);
__PACKAGE__->meta->make_immutable;
sub as_sql {
view release on metacpan or search on metacpan
xt/croak-locations.t view on Meta::CPAN
location_ok <<'END_CODE', 'Moo::Role::_inhale_if_moose - isa from type';
BEGIN {
eval qq{
package ${PACKAGE}::Role;
use Moose::Role;
has attr1 => (is => 'ro', isa => 'HashRef');
1;
} or die $@;
}
use Moo;
with "${PACKAGE}::Role";
view release on metacpan or search on metacpan
t/12-args.t view on Meta::CPAN
has 'error2' => ( is => 'ro' );
has 'class2' => ( is => 'ro', isa => Str );
has 'num' => ( is => 'ro' ); # can be anything
has 'args' => ( is => 'ro', isa => ArrayRef );
our $count = 0;
sub alt_new {
++$count;
view release on metacpan or search on metacpan
t/11-construct_attribute.t view on Meta::CPAN
expected => 'Hello World',
name => '_construct_attributes with a Type::Tiny Isa',
);
run_test_isa(
args => ['ro', HashRef, ],
expected => 'Hello World',
name => '_construct_attributes with a Type::Tiny Isa',
);
run_test_isa(
args => ['ro', [qw/one two three/], { isa => ArrayRef }],
expected => 'Hello World',
name => '_construct_attributes with a Type::Tiny Isa',
);
sub run_test {
view release on metacpan or search on metacpan
t/parameterized_inflate.t view on Meta::CPAN
eval q{
package Local::TestClass;
use Moo;
use MooX::Types::MooseLike::Base qw( Enum AnyOf Str ArrayRef ScalarRef HashRef HasMethods );
has chipmunk => (is => 'ro', isa => Enum[qw(Alvin Simon Theodore)]);
has songs => (is => 'ro', isa => AnyOf[ Str, ArrayRef[Str] ]);
has complex => (is => 'ro', isa => HashRef[ArrayRef[ScalarRef[HasMethods[qw/foo bar/]]]]);
1;
} or die $@;
is(
exception { Local::TestClass->new(chipmunk => 'Simon', songs => []) },
view release on metacpan or search on metacpan
examples/simple.pl view on Meta::CPAN
package Foo;
use Moo;
use MooX::late;
has bar => (is => 'ro', isa => 'Str|ArrayRef[Int|Num]|Int');
Foo->new(bar => [1, '2o', 3])
view release on metacpan or search on metacpan
inc/Documentation.pm view on Meta::CPAN
with 'Dist::Zilla::Role::MetaProvider';
sub mvp_multivalue_args { 'module' }
has module => (
is => 'ro', isa => 'ArrayRef[Str]',
required => 1,
);
sub metadata
{
view release on metacpan or search on metacpan
lib/MooseX/AbstractFactory/Role.pm view on Meta::CPAN
our $VERSION = '0.004003'; # VERSION
our $AUTHORITY = 'cpan:PENFOLD';
has _options => (is => 'ro', isa => 'ArrayRef[Any]');
has _implementation => (is => 'ro', isa => 'Str');
sub create {
my ($class, $impl, @impl_args) = @_;
view release on metacpan or search on metacpan
t/01-standard_coercion.t view on Meta::CPAN
return shift @{$_};
};
has test_str_coerce => (is => 'ro', isa => 'TestStr', coerce => 1);
has test_int_coerce => (is => 'ro', isa => 'TestInt', coerce => 1);
has test_arrayref_coerce => (is => 'ro', isa => 'TestClass::TestArrayRef', coerce => 1);
has test_hashref_coerce => (is => 'ro', isa => 'TestClass::TestHashRef', coerce => 1);
has test_str_from_array_coerce => (is => 'ro', isa => 'TestStr', coerce => 1);
STR_COERCION: {
my $test;
eval { $test = __PACKAGE__->new( test_str_coerce => '1') };
view release on metacpan or search on metacpan
t/lib/ConfigCascade/Test/Book.pm view on Meta::CPAN
package ConfigCascade::Test::Book;
use Moose;
with 'MooseX::ConfigCascade';
has pages => (is => 'ro', isa => 'ArrayRef');
1;
view release on metacpan or search on metacpan
lib/MooseX/CurriedHandles.pm view on Meta::CPAN
use Moose;
use Scalar::Util qw(blessed);
our $VERSION = '0.03';
extends 'Moose::Meta::Attribute';
has curried_handles => ( is => 'ro', isa => 'HashRef', default => sub { {} } );
after 'attach_to_class' => sub {
my ($attr, $class) = @_;
foreach my $method_name (keys %{ $attr->curried_handles }) {
view release on metacpan or search on metacpan
lib/MooseX/DIC/Configuration/ServiceMetadata.pm view on Meta::CPAN
use constant DEFAULT_BUILDER => 'Moose';
has class_name => ( is => 'ro', isa => 'Str', required => 1 );
has implements => ( is => 'ro', isa => 'Str', required => 1 );
has scope => ( is => 'ro', isa => 'ServiceScope', default => DEFAULT_SCOPE );
has qualifiers => ( is => 'ro', isa => 'ArrayRef[Str]', default => sub { [] } );
has environment => ( is => 'ro', isa => 'Str', default => DEFAULT_ENVIRONMENT );
has builder => ( is => 'ro', isa => 'Str', default => DEFAULT_BUILDER );
has dependencies => ( is => 'ro', isa => 'HashRef[MooseX::DIC::Configuration::ServiceMetadata::Dependency]', default => sub {{}} );
__PACKAGE__->meta->make_immutable;
1;
view release on metacpan or search on metacpan
lib/MooseX/DeepAccessors.pm view on Meta::CPAN
use Moose;
use Scalar::Util qw(blessed);
our $VERSION = '0.02';
extends 'Moose::Meta::Attribute';
has deep_accessors => ( is => 'ro', isa => 'HashRef', default => sub { {} } );
after 'attach_to_class' => sub {
my ($attr, $class) = @_;
foreach my $method_name (keys %{ $attr->deep_accessors }) {
view release on metacpan or search on metacpan
no warnings qw( experimental::signatures experimental::postderef );
use namespace::autoclean;
use mro 'c3';
has [ 'x', 'y' ] => ( is => 'ro', isa => Num );
has session => ( is => 'ro', isa => HashRef, init_arg => undef, default => sub { { session => 1234 } } );
sub session_id ($self) {
my $session = $self->session;
return "$session->@{session}";
}
view release on metacpan or search on metacpan
lib/MooseX/Getopt/ProcessedArgv.pm view on Meta::CPAN
our $VERSION = '0.78';
use Moose;
use namespace::autoclean;
has 'argv_copy' => (is => 'ro', isa => 'ArrayRef');
has 'extra_argv' => (is => 'ro', isa => 'ArrayRef');
has 'usage' => (is => 'ro', isa => 'Maybe[Object]');
has 'constructor_params' => (is => 'ro', isa => 'HashRef');
has 'cli_params' => (is => 'ro', isa => 'HashRef');
__PACKAGE__->meta->make_immutable();
1;
view release on metacpan or search on metacpan
t/001-basic.t view on Meta::CPAN
has blo => (is => 'ro', isa => 'Exciting', coerce => 1, default => 'DEFAULT', omnitrigger => \&_capture_changes);
has goo => (is => 'rw', isa => 'Exciting', coerce => 1, default => 'DEFAULT' , lazy => 1, clearer => '_clear_goo', omnitrigger => \&_capture_changes);
has moo => (is => 'rw', isa => 'Exciting', coerce => 1, builder => '_build_bar', lazy => 1, clearer => '_clear_moo', omnitrigger => \&_capture_changes);
has changes => (is => 'ro', isa => 'HashRef', default => sub { {} });
has biz => (is => 'rw', isa => 'ArrayRef', weak_ref => 1, omnitrigger => \&_capture_weaklings);
has buz => (is => 'rw', isa => 'ArrayRef', weak_ref => 1, default => sub { $arrayref_buz }, lazy => 1, omnitrigger => \&_capture_weaklings);
has bez => (is => 'rw', isa => 'ArrayRef', weak_ref => 1, default => sub { $arrayref_bez }, lazy => 1, omnitrigger => \&_capture_weaklings);
has weaklings => (is => 'ro', isa => 'HashRef', default => sub { {} });
has ziz => (is => 'rw', isa => 'Exciting', coerce => 1,
initializer => sub {
view release on metacpan or search on metacpan
init_arg => 'nums',
},
);
has size => (is => 'ro', isa => 'Int');
has nums => (is => 'ro', isa => 'ArrayRef[Int]');
}
{
my $obj = Object->new(10);
isa_ok($obj, 'Object');
view release on metacpan or search on metacpan
lib/MooseX/Role/UnsafeConstructable.pm view on Meta::CPAN
package Foo;
use Moose;
with 'MooseX::Role::UnsafeConstructable';
has field => (is => 'ro', isa => 'HashRef[ArrayRef[Str]]');
__PACKAGE__->meta->make_immutable;
package main;
view release on metacpan or search on metacpan
t/001_basic.t view on Meta::CPAN
has 'number' => ( is => 'ro', isa => 'Int' );
has 'string' => ( is => 'ro', isa => 'Str' );
has 'boolean' => ( is => 'ro', isa => 'Bool' );
has 'float' => ( is => 'ro', isa => 'Num' );
has 'array' => ( is => 'ro', isa => 'ArrayRef' );
has 'hash' => ( is => 'ro', isa => 'HashRef' );
has 'object' => ( is => 'ro', isa => 'Foo' );
has 'union' => ( is => 'ro', isa => 'ArrayRef|Str' );
has 'union2' => ( is => 'ro', isa => 'ArrayRef|Str' );
}
{
my $foo = Foo->new(
number => 10,
view release on metacpan or search on metacpan
lib/MooseX/Types/Ro.pm view on Meta::CPAN
package Foo;
use Moose;
use MooseX::Types::Ro qw(RoArrayRef RoHashRef);
has array => ( is => 'ro', isa => RoArrayRef, coerce => 1 );
has hash => ( is => 'ro', isa => RoHashRef, coerce => 1 );
my $foo = Foo->new(array => [1, 2, 3], hash => { foo => 1, bar => 2 });
# These all throw exceptions now:
view release on metacpan or search on metacpan
lib/MooseX/Types/Combine.pm view on Meta::CPAN
#pod use Moose;
#pod
#pod use TransportTypes qw( CarType SkisType );
#pod
#pod has car => ( is => 'ro', isa => CarType, required => 1 );
#pod has ski_rack => ( is => 'ro', isa => ArrayRef[SkisType], required => 1 );
#pod ...
#pod
#pod Libraries on the right end of the list passed to L</provide_types_from> take
#pod precedence over those on the left in case of conflicts. So, in the above
#pod example if both the C<MotorizedTypes> and C<UnmotorizedTypes> libraries provided
lib/MooseX/Types/Combine.pm view on Meta::CPAN
use Moose;
use TransportTypes qw( CarType SkisType );
has car => ( is => 'ro', isa => CarType, required => 1 );
has ski_rack => ( is => 'ro', isa => ArrayRef[SkisType], required => 1 );
...
Libraries on the right end of the list passed to L</provide_types_from> take
precedence over those on the left in case of conflicts. So, in the above
example if both the C<MotorizedTypes> and C<UnmotorizedTypes> libraries provided
view release on metacpan or search on metacpan
lib/MsOffice/Word/Surgeon.pm view on Meta::CPAN
# syntax to show embedded fields -- used by PackagePart::replace_field
has 'show_embedded_field' => (is => 'ro', isa => 'Str', default => '{%s}');
# inner attributes lazily constructed by the module
has_inner 'parts' => (is => 'ro', isa => 'HashRef[MsOffice::Word::Surgeon::PackagePart]',
traits => ['Hash'], handles => {part => 'get'});
has_inner 'document' => (is => 'ro', isa => 'MsOffice::Word::Surgeon::PackagePart',
handles => [qw/contents original_contents indented_contents plain_text replace/]);
# Note: this attribute is equivalent to $self->part('document'); made into an attribute
view release on metacpan or search on metacpan
lib/MsOffice/Word/Template.pm view on Meta::CPAN
# See also BUILDARGS: the constructor can also take a "docx" arg
# that will be automatically translated into a "surgeon" attribute
has 'surgeon' => (is => 'ro', isa => 'MsOffice::Word::Surgeon', required => 1);
has 'data_color' => (is => 'ro', isa => 'Str', default => "yellow");
has 'control_color' => (is => 'ro', isa => 'Str', default => "green");
has 'part_names' => (is => 'ro', isa => 'ArrayRef[Str]', lazy => 1,
default => sub {[keys shift->surgeon->parts->%*]});
has 'property_files'=> (is => 'ro', isa => 'ArrayRef[Str]',
default => sub {[qw(docProps/core.xml docProps/app.xml docProps/custom.xml)]});
# constructor attributes for building a templating engine
has 'engine_class' => (is => 'ro', isa => 'Str', default => 'TT2');
has 'engine_args' => (is => 'ro', isa => 'ArrayRef', default => sub {[]});
# attributes lazily constructed by the module -- not received through the constructor
has_inner 'engine' => (is => 'ro', isa => 'MsOffice::Word::Template::Engine');
view release on metacpan or search on metacpan
lib/Net/Amazon/EC2/AvailabilityZone.pm view on Meta::CPAN
=cut
has 'zone_name' => ( is => 'ro', isa => 'Str', required => 1 );
has 'zone_state' => ( is => 'ro', isa => 'Str', required => 1 );
has 'region_name' => ( is => 'ro', isa => 'Maybe[Str]', required => 1 );
has 'messages' => ( is => 'ro', isa => 'ArrayRef[Net::Amazon::EC2::AvailabilityZoneMessage]|Undef', required => 0 );
__PACKAGE__->meta->make_immutable();
=head1 AUTHOR