view release on metacpan or  search on metacpan

t/lib/OI18nTest/CDBI.pm  view on Meta::CPAN

package OI18nTest::CDBI;
use strict;
use warnings;
use base qw(Class::DBI::mysql);
my $cfg = require("dbi_connect.pl");

my $db       = $ENV{DBI_DBNAME} || $cfg->{db};
my $table    = $ENV{DBI_TABLE}  || $cfg->{table};
my $user     = $ENV{DBI_USER}   || $cfg->{user};
my $password = $ENV{DBI_PASS}   || $cfg->{password};

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

But, it's more interesting than that. You can load it with C<require>
and call C<arguments> to get the data structure it passes to
C<WriteMakefile>:

	my $package = require '/path/to/Makefile.PL';
	my $arguments = $package->arguments;

Note that C<require>-ing a file makes an entry in C<%INC> for exactly
that name. If you try to C<require> another file with the same name,
even from a different path, C<require> thinks it has already loaded

 view release on metacpan or  search on metacpan

t/Common.pm  view on Meta::CPAN

sub method_fail_msg { return "because $_[0] can't $_[1]" }

sub TC { return 1 + TN() }
sub test_constructor {
    my ($class, @args) = @_;
    my $pass = require_ok( $class );
    my $o;
    SKIP: {
        skip load_fail_msg($class), TC() - 1 unless $pass;
        $o = test_new($class,@args);
    }

 view release on metacpan or  search on metacpan

hax/make_argcheck_ops.c.inc  view on Meta::CPAN

#endif

#define make_argcheck_ops(required, optional, slurpy, subname)  S_make_argcheck_ops(aTHX_ required, optional, slurpy, subname)
static OP *S_make_argcheck_ops(pTHX_ int required, int optional, char slurpy, SV *subname)
{
  int params = required + optional;

#ifdef HAVE_OP_ARGCHECK
  UNOP_AUX_item *aux = make_argcheck_aux(params, optional, slurpy);

  return op_prepend_elem(OP_LINESEQ, newSTATEOP(0, NULL, NULL),

hax/make_argcheck_ops.c.inc  view on Meta::CPAN

  OP *ret = NULL;

  if(required > 0) {
    SV *message = newSVpvf("Too few arguments for subroutine '%" SVf "'", subname);
    /* @_ >= required or die ... */
    OP *checkop = 
      newSTATEOP(0, NULL,
        newLOGOP(OP_OR, 0,
          newBINOP(OP_GE, 0,
            /* scalar @_ */

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

[Prereqs / DevelopRequires]
Perl::Critic = 1.156

[EnsurePrereqsInstalled]
:version = 0.003
type = requires
type = recommends

[GitHub::Meta]
repo = git://github.com/robrwo/Object-Signature-Portable.git

 view release on metacpan or  search on metacpan

t/jira/jira.json  view on Meta::CPAN

      }
    },
    "/rest/api/3/issue/{issueIdOrKey}/attachments": {
      "post": {
        "deprecated": false,
        "description": "Adds one or more attachments to an issue. Attachments are posted as multipart/form-data ([RFC 1867](https://www.ietf.org/rfc/rfc1867.txt)).\n\nNote that:\n\n *  The request must have a `X-Atlassian-Token: no-check` header, if ...
        "operationId": "addAttachment",
        "parameters": [
          {
            "description": "The ID or key of the issue that attachments are added to.",
            "in": "path",

 view release on metacpan or  search on metacpan

template/show_label  view on Meta::CPAN

[%- req = '' -%]
[% IF is_required -%]
  [%- IF NOT required_display -%]
     [%- required_display = OI.theme_properties.required -%]
  [%- END -%]
  [%- req = required_display -%]
[% END %]
[% pre_label %]<b>[% label %]</b>[% req %][% post_label %]

 view release on metacpan or  search on metacpan

lib/PAUSEx/Log.pm  view on Meta::CPAN

this function will automatically pick up.

=cut

sub fetch_log ( $class, $user = $ENV{CPAN_USER}, $pass = $ENV{CPAN_PASS} ) {
	state $rc = require Mojo::UserAgent;
	state $ua = Mojo::UserAgent->new;
	state $url_template = 'https://%s:%s@pause.perl.org/pause/authenquery?ACTION=tail_logfile&pause99_tail_logfile_1=5000&pause99_tail_logfile_sub=Tail+characters';
	state $url = sprintf $url_template, $user, $pass;

	my $tx = $ua->get( $url );

 view release on metacpan or  search on metacpan

matio-1.5.0/getopt/getopt_long.c  view on Meta::CPAN

			return (BADCH);
#else
			return (BADARG);
#endif
		}
		if (long_options[match].has_arg == required_argument ||
		    long_options[match].has_arg == optional_argument) {
			if (has_equal)
				optarg = has_equal;
			else if (long_options[match].has_arg ==
			    required_argument) {

matio-1.5.0/getopt/getopt_long.c  view on Meta::CPAN

				 * optional argument doesn't use next nargv
				 */
				optarg = nargv[optind++];
			}
		}
		if ((long_options[match].has_arg == required_argument)
		    && (optarg == NULL)) {
			/*
			 * Missing argument; leading ':' indicates no error
			 * should be generated.
			 */

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

-phase = runtime
-relationship = recommends

[Prereqs / TestRequires]
-phase = test
-relationship = requires

[Prereqs / AuthorDeps]
-phase = develop
-relationship = requires

[Test::Compile]


[ModuleBuild]

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

Term::Encoding = 0
Term::UI = 0

[Prereqs / TestRequires]
-phase = test
-relationship = requires
Test::Most = 0

[Prereqs / AuthorDeps]
-phase = develop
-relationship = requires
IO::Socket::IP = 0
Module::Spy = 0
Test::MockModule = 0
Test::PostgreSQL = 0
Test::MockObject = 0

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

-phase = develop
-relationship = recommends

[Prereqs / TestRequires]
-phase = test
-relationship = requires
Test::Most = 0

[Prereqs / AuthorDeps]
-phase = develop
-relationship = requires
Treex::Core = 0

[Test::Compile]

[ModuleBuild]

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

footer = |  close FH;
footer = |}

[DynamicPrereqs]
-condition = prompt_default_no('Do you want to enable optional TLS support ( requires POE::Component::SSLify )')
-body = requires('POE::Component::SSLify','0.10')

[Prereqs / ConfigureRequires]
ExtUtils::MakeMaker = 0

[Prereqs / BuildRequires]

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

[@BINGOS]

[DynamicPrereqs]
-condition = prompt_default_no('Do you want encryption ( requires Mcrypt )')
-body = requires( 'Mcrypt' => '2.5.7.0' );

[Prereqs / TestRequires]
Test::More = 0.47

[Prereqs]

 view release on metacpan or  search on metacpan

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

    my $count   = @$args;

    #      - parv[0] = nickname
    #      - parv[1] = TS
    #      - parv[2] = [-][raw]
    #      - parv[3] = required user mode(s) to see the tag
    #      - parv[4] = tag line

    SWITCH: {
        if (!$self->_state_sid_serv($prefix) && $prefix ne $sid) {
            last SWITCH;

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

footer = |  close FH;
footer = |}

[DynamicPrereqs]
-condition = prompt_default_no('Do you want encryption ( requires Mcrypt )')
-body = requires( 'Mcrypt' => '2.5.7.0' );

[Prereqs / TestRequires]
Test::More = 0.47

[Prereqs]

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

[@BINGOS]

[DynamicPrereqs]
-condition = prompt_default_no('Do you want to install optional module File::LibMagic')
-body = requires('File::LibMagic','1.15')

[Prereqs / ConfigureRequires]
ExtUtils::MakeMaker = 0

[Prereqs / BuildRequires]

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

[@BINGOS]

[DynamicPrereqs]
-condition = is_os('MSWin32')
-body = requires( 'POE::Wheel::Run::Win32' => 0.10 );
-body = requires( 'Win32API::File' => 0 );

[Prereqs / TestRequires]
Test::Harness = 3.14
Test::More = 0.47

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

[Git::Commit]
[Git::Tag]
[Git::Push]
[Prereqs / ConfigureRequires]
-phase = configure
-type = requires
Devel::CheckLib = 0

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

[Git::Tag]
[Git::Push]

[Prereqs / ConfigureRequires]
-phase = configure
-type = requires
Devel::CheckLib = 0
[Prereqs / TestRecommends]
-phase = test
-type = recommends
Signal::Mask = 0

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

But, it's more interesting than that. You can load it with C<require>
and call C<arguments> to get the data structure it passes to
C<WriteMakefile>:

	my $package = require '/path/to/Makefile.PL';
	my $arguments = $package->arguments;

Note that C<require>-ing a file makes an entry in C<%INC> for exactly
that name. If you try to C<require> another file with the same name,
even from a different path, C<require> thinks it has already loaded

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

But, it's more interesting than that. You can load it with C<require>
and call C<arguments> to get the data structure it passes to
C<WriteMakefile>:

	my $package = require '/path/to/Makefile.PL';
	my $arguments = $package->arguments;

Note that C<require>-ing a file makes an entry in C<%INC> for exactly
that name. If you try to C<require> another file with the same name,
even from a different path, C<require> thinks it has already loaded

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

[Prereqs / TestRequires]
Test::More = 0.96

[DynamicPrereqs]
-body = requires('File::Spec', is_os('MSWin32') ? '3.2701' : '0.84');
-body = requires('IO::String') if $] < '5.008000';

[Git::GatherDir]
exclude_filename = README.pod
[MetaYAML]
[MetaJSON]

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

Test::MinimumVersion.max_target_perl = 5.008001

; authordep ExtUtils::HasCompiler = 0.014
[DynamicPrereqs]
:version = 0.029
-body = requires('Package::Stash::XS', '0.26') if !want_pp() and can_xs();

; authordep Dist::Zilla::Plugin::SurgicalPodWeaver

[Prereqs / TestRequires]
Test::More = 0.88

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

[RemovePrereqs::Provided / @Author::KENTNL/RemovePrereqs::Provided]

[Prereqs / @Author::KENTNL/::Role::BundleDeps]
; twitter_extra_hash_tags =
-phase = develop
-relationship = requires
Dist::Zilla::Plugin::Author::KENTNL::RecommendFixes = 0.004002
Dist::Zilla::Plugin::Author::KENTNL::TravisCI = 0.001002
Dist::Zilla::Plugin::Authority = 1.006
Dist::Zilla::Plugin::AutoPrereqs = 0
Dist::Zilla::Plugin::BumpVersionAfterRelease = 0

 view release on metacpan or  search on metacpan

lib/Panda/Install/Payload.pm  view on Meta::CPAN

    my $module = shift;
    my $info = $module_info{$module};
    unless ($info) {
        my $file = module_info_file($module) or return undef;
        return undef unless -f $file;
        $info = require $file or return undef;
        $module_info{$module} = $info;
    }
    return $info;
}

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

; version_rel_hour  = 1
; version_rel_time_zone = Pacific/Auckland
; twitter_extra_hash_tags =
; auto_prereqs_skip = File::Find
-phase = develop
-relationship = requires
Dist::Zilla::Plugin::Author::KENTNL::RecommendFixes = 0.004002
Dist::Zilla::Plugin::Author::KENTNL::TravisCI = 0.001002
Dist::Zilla::Plugin::Authority = 1.006
Dist::Zilla::Plugin::AutoPrereqs = 0
Dist::Zilla::Plugin::BumpVersionAfterRelease = 0

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

; version_rel_hour  = 4
; version_rel_time_zone = Pacific/Auckland
; twitter_extra_hash_tags =
; auto_prereqs_skip = File::Find
-phase = develop
-relationship = requires
Dist::Zilla::Plugin::Author::KENTNL::RecommendFixes = 0.004002
Dist::Zilla::Plugin::Author::KENTNL::TravisCI = 0.001002
Dist::Zilla::Plugin::Authority = 1.006
Dist::Zilla::Plugin::AutoPrereqs = 0
Dist::Zilla::Plugin::BumpVersionAfterRelease = 0

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

[RemovePrereqs::Provided / @Author::KENTNL/RemovePrereqs::Provided]

[Prereqs / @Author::KENTNL/::Role::BundleDeps]
-phase = develop
-relationship = requires
Dist::Zilla::Plugin::Author::KENTNL::RecommendFixes = 0.004002
Dist::Zilla::Plugin::Author::KENTNL::TravisCI = 0.001002
Dist::Zilla::Plugin::Authority = 1.006
Dist::Zilla::Plugin::AutoPrereqs = 0
Dist::Zilla::Plugin::BumpVersionAfterRelease = 0

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

But, it's more interesting than that. You can load it with C<require>
and call C<arguments> to get the data structure it passes to
C<WriteMakefile>:

	my $package = require '/path/to/Makefile.PL';
	my $arguments = $package->arguments;

Note that C<require>-ing a file makes an entry in C<%INC> for exactly
that name. If you try to C<require> another file with the same name,
even from a different path, C<require> thinks it has already loaded