view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/MakeMaker/Awesome.pm  view on Meta::CPAN

    return $config;
};

has WriteMakefile_arg_strs => (
    is => 'ro', isa => ArrayRef[Str],
    traits => ['Array'],
    lazy => 1,
    default => sub { [] },
    documentation => "Additional arguments passed to ExtUtils::MakeMaker's WriteMakefile()",
);

lib/Dist/Zilla/Plugin/MakeMaker/Awesome.pm  view on Meta::CPAN

    return \@share_dir_block;
}

has header_strs => (
    is => 'ro', isa => ArrayRef[Str],
    traits => ['Array'],
    lazy => 1,
    default => sub { [] },
    documentation => "Additional code lines to include at the beginning of Makefile.PL",
);

lib/Dist/Zilla/Plugin/MakeMaker/Awesome.pm  view on Meta::CPAN

            }
            : () );
}

has footer_strs => (
    is => 'ro', isa => ArrayRef[Str],
    traits => ['Array'],
    lazy => 1,
    default => sub { [] },
    documentation => "Additional code lines to include at the end of Makefile.PL",
);

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/Munge/Whitespace.pm  view on Meta::CPAN

with 'Dist::Zilla::Role::FileMunger';

has 'preserve_trailing' => ( is => 'ro', isa => 'Bool',     lazy => 1, default => sub { undef } );
has 'preserve_cr'       => ( is => 'ro', isa => 'Bool',     lazy => 1, default => sub { undef } );
has 'filename'          => ( is => 'ro', isa => 'ArrayRef', lazy => 1, default => sub { [] } );
has 'match'             => ( is => 'ro', isa => 'ArrayRef', lazy => 1, default => sub { [] } );

has '_match_expr'    => ( is => 'ro', isa => 'RegexpRef', lazy_build => 1 );
has '_eol_kill_expr' => ( is => 'ro', isa => 'RegexpRef', lazy_build => 1 );

around dump_config => sub {

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/MungeFile/WithConfigFile.pm  view on Meta::CPAN

    is => 'ro', isa => 'Str',
    required => 1,
);

has _config_data => (
    is => 'ro', isa => 'HashRef',
    lazy => 1,
    default => sub {
        my $self = shift;
        $self->get_config_from_file(path($self->configfile)->absolute($self->zilla->root));
    },

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/OptionalFeature.pm  view on Meta::CPAN

    lazy => 1,
    default => 'requires',
);

has _prereqs => (
    is => 'ro', isa => HashRef[NonEmptySimpleStr],
    lazy => 1,
    default => sub { {} },
    traits => ['Hash'],
    handles => { _prereq_modules => 'keys', _prereq_version => 'get' },
);

lib/Dist/Zilla/Plugin/OptionalFeature.pm  view on Meta::CPAN

        _prereqs => $args,
    };
};

has _dynamicprereqs_prompt => (
    is => 'ro', isa => 'ArrayRef[Str]',
    lazy => 1,
    default => sub {
        my $self = shift;

        my $phase = $self->_prereq_phase;

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/Prereqs/DarkPAN.pm  view on Meta::CPAN

  default  => 'requires',
);

# For full phase control, use above commented code.

has _deps     => ( is => 'ro', isa => 'HashRef', default => sub { {} }, );
has _raw_deps => ( is => 'ro', isa => 'HashRef', default => sub { {} }, );

around 'dump_config' => sub {
  my ( $orig, $self, @args ) = @_;
  my $config = $self->$orig(@args);
  my $localconf = $config->{ +__PACKAGE__ } = {};

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/RPM/Push.pm  view on Meta::CPAN

    }
    return;
}

has '_rpmbuild_options' => (
	is => 'ro', isa => 'ArrayRef[Str]', lazy => 1,
	default => sub {
		my $self = shift;
		return( [
			$self->sign ? '--sign' : (),
			$self->ignore_build_deps ? '--nodeps' : (),

lib/Dist/Zilla/Plugin/RPM/Push.pm  view on Meta::CPAN

    }

    return;
}

has '_packages_build' => ( is => 'ro', isa => 'ArrayRef[Str]', lazy => 1, default => sub { [] } );

sub _execute_rpmbuild {
	my $self = shift;
	my ($in, $out, $err);
	my $lang = $ENV{'LANG'};

lib/Dist/Zilla/Plugin/RPM/Push.pm  view on Meta::CPAN

	$ENV{'LANG'} = $lang;
	return;
}

has _packages_to_push => (
	is => 'ro', isa => 'ArrayRef[Str]', lazy => 1,
	default => sub {
		my $self = shift;
		my $regex = $self->push_ignore_packages;
		return( [ grep { $_ !~ m/$regex/ } @{$self->_packages_build} ] );
	},
);

has _push_command => (
	is => 'ro', isa => 'ArrayRef', lazy => 1,
	default => sub {
		my $self = shift;
		return( [ split(/ /, $self->push_command) ] );
	},
);

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/RPM.pm  view on Meta::CPAN

    }
    return;
}

has '_rpmbuild_options' => (
  is => 'ro', isa => 'ArrayRef[Str]', lazy => 1,
  default => sub {
    my $self = shift;
    return( [
      $self->sign ? '--sign' : (),
      $self->ignore_build_deps ? '--nodeps' : (),

lib/Dist/Zilla/Plugin/RPM.pm  view on Meta::CPAN

    }

    return;
}

has '_packages_build' => ( is => 'ro', isa => 'ArrayRef[Str]', lazy => 1,
  default => sub { [] }
);

sub _execute_rpmbuild {
  my $self = shift;

lib/Dist/Zilla/Plugin/RPM.pm  view on Meta::CPAN

  $ENV{'LANG'} = $lang;
  return;
}

has _packages_to_push => (
  is => 'ro', isa => 'ArrayRef[Str]', lazy => 1,
  default => sub {
    my $self = shift;
    my $regex = $self->push_ignore_packages;
    return( [ grep { $_ !~ m/$regex/ } @{$self->_packages_build} ] );
  },
);

has _push_command => (
  is => 'ro', isa => 'ArrayRef', lazy => 1,
  default => sub {
    my $self = shift;
    return( [ split(/ /, $self->push_command) ] );
  },
);

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/ReportVersions/Tiny.pm  view on Meta::CPAN

        '!!! [ReportVersions::Tiny] is deprecated; recommended alternative: [Test::ReportPrereqs]'
};


sub mvp_multivalue_args { qw{exclude include} };
has exclude => (is => 'ro', isa => 'ArrayRef', default => sub { [] });
has include => (is => 'ro', isa => 'ArrayRef', default => sub { [] });

our $template = q{use strict;
use warnings;
use Test::More 0.88;
# This is a relatively nice way to avoid Test::NoWarnings breaking our

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/RewriteVersion/Transitional.pm  view on Meta::CPAN

        return '';
    },
);

has _fallback_version_provider_args => (
    is => 'ro', isa => 'HashRef[Str]',
);

has _fallback_version_provider_obj => (
    is => 'ro',
    isa => role_type('Dist::Zilla::Role::VersionProvider'),

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/Subversion/Check.pm  view on Meta::CPAN

		$self->svn->info("", undef, 'HEAD', sub { $rev = $_[1]->rev }, 0);
		return($rev);
	}
);

has '_svn_status' => ( is => 'ro', isa => 'HashRef[ArrayRef[Str]]', lazy_build => 1 );

sub _build__svn_status {
	my $self = shift;
	my $ret = { 'untracked' => [], 'added' => [], 'missing' => [], 'deleted' => [],
		'modified' => [], 'merged' => [], 'conflicted' => [] };

lib/Dist/Zilla/Plugin/Subversion/Check.pm  view on Meta::CPAN

	return($ret);
}

foreach my $i ('untracked', 'added', 'missing', 'deleted', 'modified', 'merged', 'conflicted') {
	has '_'.$i.'_files' => (
		is => 'ro', isa => 'ArrayRef[Str]', lazy => 1,
		traits => [ 'Array' ],
		default => sub {
			my $self = shift;
			return($self->_svn_status->{$i});
		},

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/Subversion/NextVersion.pm  view on Meta::CPAN

                         default => sub { qr/^(.+)$/ } );

has first_version  => ( is => 'ro', isa=>'Str', default => '0.001' );

has 'all_versions' => (
	is => 'ro', isa => 'ArrayRef[version]', lazy => 1,
	default => sub {
		my $self = shift;
		my $regex = $self->version_regexp;
		my $listing = $self->svn->ls($self->tag_folder, 'HEAD', 0);
		my @versions = keys %$listing;

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/Test/CheckBreaks.pm  view on Meta::CPAN

        'CPAN::Meta::Check' => $self->_cmc_prereq,
    );
}

has _x_breaks_data => (
    is => 'ro', isa => 'HashRef[Str]',
    init_arg => undef,
    lazy => 1,
    default => sub {
        my $self = shift;
        my $breaks_data = $self->zilla->distmeta->{x_breaks};

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/Test/DirectoryLayout.pm  view on Meta::CPAN

use Test::DirectoryLayout;
use Test::More;

with 'Dist::Zilla::Role::TestRunner';

has add_dir => ( is => 'ro', isa => 'ArrayRef[Str]', default => sub { [] } );

sub mvp_multivalue_args { return qw(add_dir) }

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

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/Test/Kwalitee/Extra.pm  view on Meta::CPAN

use Data::Section-setup;
with 'Dist::Zilla::Role::FileGatherer', 'Dist::Zilla::Role::TextTemplate';

sub mvp_multivalue_args { return qw( arg ) }

has arg => ( is => 'ro', isa => 'ArrayRef[Str]', traits => [ 'Array' ], default => sub { [] }, handles => { push_arg => 'push' }, );

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

  my $tests = q{eval "use Test::Kwalitee::Extra";};

 view release on metacpan or  search on metacpan

t/contributors.t  view on Meta::CPAN

{
    package MyContributors;
    use Moose;
    with 'Dist::Zilla::Role::MetaProvider';
    sub mvp_multivalue_args { qw(contributor) }
    has contributor => ( is => 'ro', isa => 'ArrayRef[Str]', lazy => 1, default => sub { [] } );
    sub metadata { +{ x_contributors => shift->contributor } }
}

sub get_content {
  my ($args) = @_;

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/TravisCI.pm  view on Meta::CPAN

with 'Dist::Zilla::Role::FileGatherer','Dist::Zilla::Role::AfterBuild', 'Beam::Emitter';

our @phases = ( ( map { my $phase = $_; ('before_'.$phase, $phase, 'after_'.$phase) } qw( install script ) ), 'after_success', 'after_failure' );
our @emptymvarrayattr = qw( notify_email notify_irc requires env script_env extra_dep apt_package );

has $_ => ( is => 'ro', isa => 'ArrayRef[Str]', default => sub { [] } ) for (@phases, @emptymvarrayattr);

our @bools = qw( verbose test_deps test_authordeps no_notify_email coveralls );

has $_ => ( is => 'ro', isa => 'Bool', default => sub { 0 } ) for @bools;

has irc_template  => ( is => 'ro', isa => 'ArrayRef[Str]', default => sub { [
   "%{branch}#%{build_number} by %{author}: %{message} (%{build_url})",
] } );

has perl_version  => ( is => 'ro', isa => 'ArrayRef[Str]', default => sub { [
   "5.30",
   "5.28",
   "5.26",
   "5.24",
   "5.22",

lib/Dist/Zilla/Plugin/TravisCI.pm  view on Meta::CPAN

   "5.16",
   "5.14",
] } );


has 'write_to' => ( is => 'ro', isa => 'ArrayRef[Str]', default => sub { [ 'root' ] } );

our @core_env = ("HARNESS_OPTIONS=j10:c HARNESS_TIMER=1");

around mvp_multivalue_args => sub {
  my ($orig, $self) = @_;

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/PluginBundle/Author/KENTNL.pm  view on Meta::CPAN

has 'plugins' => ( 'is' => 'ro' =>, 'isa' => 'ArrayRef', 'init_arg' => undef, 'lazy' => 1, 'default' => sub { [] } );

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/PluginBundle/DANIELP.pm  view on Meta::CPAN

    is => 'ro', lazy => 1,
    default => sub { 'release-%v' }
);

has skip => (
    is => 'ro', isa => 'ArrayRef', lazy => 1,
    default => sub { $_[0]->payload->{skip} || [] }
);

has skip_version => (
    is => 'ro', isa => 'ArrayRef', lazy => 1,
    default => sub { $_[0]->payload->{skip_version} || [] }
);


has 'synopsis_test' => (

 view release on metacpan or  search on metacpan

lib/Docker/Registry/Auth/GCEServiceAccount.pm  view on Meta::CPAN

  has service_account_file => (is => 'ro', isa => Str, default => sub {
    "$ENV{HOME}/.gcloud/sd.json"
  });

  has service_account => (is => 'ro', isa => HashRef, lazy => 1, default => sub {
    my $self = shift;
    my $f = Path::Class::File->new($self->service_account_file);
    my $json = JSON::MaybeXS->new;
    return $json->decode(join '', $f->slurp);
  });

lib/Docker/Registry/Auth/GCEServiceAccount.pm  view on Meta::CPAN

      message => "private_key entry not found in service_account information",
    }) if (not defined $value);
    return $value;
  });

  has scopes => (is => 'ro', isa => ArrayRef[Str], default => sub {
    [ 'https://www.googleapis.com/auth/devstorage.read_only' ];
  });

  has time_source => (is => 'ro', isa => CodeRef, default => sub {
    return sub { time };

 view release on metacpan or  search on metacpan

lib/EPL2/Pad.pm  view on Meta::CPAN

has clear_image_buffer => ( is => 'rw', isa => 'Bool',    default => 1, );
has height             => ( is => 'rw', isa => Padheight, default => 0, );
has width              => ( is => 'rw', isa => Padwidth,  default => 0, );

#Private Attributes
has commands => ( is => 'ro', isa => 'ArrayRef', default => sub { []; }, init_arg => undef, );

#Methods
method add_command( EPL2::Command $command ) {
    push @{ $self->commands }, $command;
}

 view release on metacpan or  search on metacpan

lib/ETLp/Audit/FileProcess.pm  view on Meta::CPAN

    use ETLp::Exception;
    
    has 'item' =>
      (is => 'ro', isa => 'ETLp::Audit::Item', required => 1, weak_ref => 1);
    has 'filename' => (is => 'ro', isa => 'Str',     required => 1);
    has 'config'   => (is => 'ro', isa => 'HashRef', required => 1);
    
=head2 method_id

Return the primary key of the file process record

 view release on metacpan or  search on metacpan

lib/ElasticSearchX/Model/Document/Set.pm  view on Meta::CPAN

has search_type =>
    ( isa => QueryType, is => 'rw', traits => [qw(ChainedClone)] );

sub query_type { shift->search_type(@_) }

has mixin => ( is => 'ro', isa => 'HashRef', traits => [qw(ChainedClone)] );

has inflate =>
    ( isa => 'Bool', default => 1, is => 'rw', traits => [qw(ChainedClone)] );

sub raw {

 view release on metacpan or  search on metacpan

lib/Email/Sender/Transport/Redirect/Recipients.pm  view on Meta::CPAN

=cut


has to => (is => 'ro', isa => Str, required => 1);
has exclude => (is => 'ro', isa => ArrayRef[Str], default => sub { [] });

sub BUILDARGS {
    my ($class, @args) = @_;
    die "Only one argument is supported!" unless @args == 1;
    my $arg = shift @args;

 view release on metacpan or  search on metacpan

lib/Email/Sender/Transport/SMTP.pm  view on Meta::CPAN

    return 1;
  },
);

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

has port => (
  is  => 'ro',
  isa => Int,
  lazy    => 1,

 view release on metacpan or  search on metacpan

lib/Fancy/Middleware.pm  view on Meta::CPAN

    has response => (is => 'ro', isa => PSGIResponse, writer => 'set_response');

    
    has env => (is => 'ro', isa => HashRef, writer => 'set_env');


    method wrap(ClassName $class: CodeRef $app, @args)
    {
        my $self = $class->new(app => $app, @args);

 view release on metacpan or  search on metacpan

lib/CPAN/MetaMuncher.pm  view on Meta::CPAN

has module => (is => 'rw', required => 1, isa => 'CPANPLUS::Module');

# FIXME -- we should check to make sure we're supported, etc, etc
#has _meta => (is => 'ro', isa => 'YAML::Tiny', lazy_build => 1);
#has _meta => (is => 'ro', isa => 'ArrayRef[HashRef]|YAML::Tiny', lazy_build => 1);
has _meta => (is => 'ro', lazy_build => 1);

sub _build__meta {
    my $self = shift @_;

 view release on metacpan or  search on metacpan

lib/Fedora/App/ReviewTool/KojiTask.pm  view on Meta::CPAN

sub _build_build_log { shift->_find_link(sub { /build\.log/ }) }
sub _build_root_log  { shift->_find_link(sub { /root\.log/  }) }
sub _build_state_log { shift->_find_link(sub { /state\.log/ }) }

has rpms => 
    (is => 'ro', isa => 'ArrayRef[URI]', lazy_build => 1, auto_deref => 1);
sub _build_rpms { [ shift->_find_links(sub { /\.rpm$/ }) ] }

sub _find_link { (shift->_find_links(@_))[0] }

sub _find_links {

 view release on metacpan or  search on metacpan

lib/Fedora/Bugzilla/Bug.pm  view on Meta::CPAN

# The data attibute contains the raw hashref returned by Bugs.get_bugs. Note
# that if any updates are made, this is NOT the place to do it; update() pulls
# the new values from the attributes themselves, NOT this hash.

has data =>
    (is => 'ro', isa => 'HashRef', lazy_build => 1, is_clear_master => 1);

sub _build_data {
    my $self = shift @_;

    # prefer id over alias

 view release on metacpan or  search on metacpan

lib/File/DataClass/Cache.pm  view on Meta::CPAN

# Public attributes
has 'cache'            => is => 'lazy', isa => Object, builder => sub {
   $_[ 0 ]->cache_class->new( %{ $_[ 0 ]->cache_attributes } ) };

has 'cache_attributes' => is => 'ro',   isa => HashRef, required => TRUE;

has 'cache_class'      => is => 'lazy', isa => LoadableClass,
   default             => 'Cache::FastMmap';

has 'log'              => is => 'ro',   isa => Object, required => TRUE;

lib/File/DataClass/Cache.pm  view on Meta::CPAN

   use File::DataClass::Types qw(Cache);
   use File::DataClass::Cache;

   has 'cache'            => is => 'lazy', isa => Cache;

   has 'cache_attributes' => is => 'ro', isa => 'HashRef',
      default             => sub { return {} };

   my $_cache_objects = {};

   sub _build_cache {