view release on metacpan or search on metacpan
include/fetch/ft_future.h view on Meta::CPAN
hmf_cancel(aTHX_ next);
}
XSRETURN_EMPTY;
}
/* on_done / on_fail filter: b = user cb, i = required state */
XS_INTERNAL(hm_xs_ondone_cb);
XS_INTERNAL(hm_xs_ondone_cb) {
dXSARGS;
hm_clos *cl = hm_clos_of(aTHX_ cv);
SV *f;
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
if( -d $path ) {
require lib;
lib->import( $path );
return $path;
}
my $ret= require $path;
UpdateInc( $path );
return $ret;
}
my $up= dirname( $dir );
die "$Pkg can't find $find in ancestor directory of $from.\n"
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
[DynamicPrereqs]
-body = # Because many filesystem modules are buggier
-body = # on Windows, we're going to push for more aggressive
-body = # dependencies to get the most current bug fixes.
-body = requires('File::Spec', '3.24') if is_os('MSWin32') or is_os('cygwin');
view release on metacpan or search on metacpan
XML::LibXML = 0
YAML::XS = 0
[Prereqs / TestRequires]
-phase = test
-relationship = requires
Path::Tiny = 0
Test::Exception = 0
Test::File = 0
[PodWeaver]
view release on metacpan or search on metacpan
List::Util = 0
Moose = 0
[Prereqs / TestRequires]
-phase = test
-relationship = requires
Path::Tiny = 0
Test::Exception = 0
Test::File = 0
[ChangelogFromGit]
view release on metacpan or search on metacpan
[RecommendedPrereqs]
[AutoPrereqs]
[EnsurePrereqsInstalled]
:version = 0.003
type = requires
type = recommends
[GitHub::Meta]
repo = git://github.com/robrwo/perl5-File-MultiTemp.git
view release on metacpan or search on metacpan
ExtUtils::MakeMaker = 7.22
Module::Metadata = 1.000015
[Prereqs / DevelopRequires ]
-phase = develop
-relationship = requires
Software::Security::Policy::Individual = 0.10
Test::CPAN::Changes = 0
Test::Vars = 0.015
[Prereqs / RunRequires]
-phase = runtime
-relationship = requires
List::Util = 1.43
; [EnsurePrereqsInstalled]
; :version = 0.003
; type = requires
; type = recommends
[AutomationPolicy]
template = human_supervised
view release on metacpan or search on metacpan
[RemovePrereqs::Provided / @Author::KENTNL/RemovePrereqs::Provided]
[Prereqs / @Author::KENTNL/::Role::BundleDeps]
-phase = develop
-relationship = requires
Dist::Zilla::Plugin::Author::KENTNL::CONTRIBUTING = 0.001003
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
view release on metacpan or search on metacpan
lib/File/SmartTail.pm view on Meta::CPAN
}
{
my $v;
sub LOG {
$v ||= require File::SmartTail::Logger && File::SmartTail::Logger::LOG();
}
}
#
# Attempt to normalize path of prefix.
view release on metacpan or search on metacpan
; version_rel_day = 26
; version_rel_hour = 23
; version_rel_time_zone = Pacific/Auckland
; 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
Test::Most = 0
Sub::Override = 0
; Uncomment if you need JSON::XS
;[DynamicPrereqs]
;-body = requires('JSON::XS', '4.02') if has_module('JSON::XS', '4.01') or !defined has_module('JSON::XS', '4.01');
view release on metacpan or search on metacpan
scripts/ttfeval view on Meta::CPAN
my $res;
if ($m =~ /^(\S+)\s*=\s*(.*)$/o) # 'module=something'
{
eval "\$res = require $1; $1->import(split(/,/,'$2'));" ;
}
elsif ($m =~ /^(\S+)\s+(.*)$/o) # 'module something'
{
eval "\$res = require $1; $1->import($2);" ;
}
else # 'module'
{
eval "\$res = require $m; $m->import unless \$c eq 'm';" ;
}
die "Couldn't find module '$m'\n" unless $res;
}
view release on metacpan or search on metacpan
lib/Chj/Packages.pm view on Meta::CPAN
require_package
fallible_require_package_by_path
xrequire_package_by_path
);
my $packagename = "Chj::Packages";
my $possibly_previously_loaded_path = require_package $packagename;
my $true_or_failure = fallible_require_package_by_path $packagename;
# xrequire_package_by_path turns the failure into an exception.
# related (mess?):
# use FP::Predicates qw($package_re);
lib/Chj/Packages.pm view on Meta::CPAN
returns an FP::Failure';
my $path_abs = abs_path($path) // die "abs_path('$path'), given path: $!";
my $package = path_to_package__cheap $path; # XX hack, how to generalize?
# Can't load by path (at least not 'properly'), so, load and then
# check:
my $path2 = require_package $package;
my $path_abs2 = abs_path($path2)
// die "abs_path('$path2'), path retrieved after loading: $!";
if ($path_abs eq $path_abs2) {
1
view release on metacpan or search on metacpan
bin/report_missing_language_tags.pl view on Meta::CPAN
# this is just a development tool that I use to find missing language-specific
# tags when I update POSIX.pm
chdir '..' unless -d 'conf';
chdir "conf/languages" or die "Can't cd to languages directory: $!";
my $posix = require "./POSIX.pm";
print "Missing tags:\n";
for my $file (<*.pm>) {
next if $file =~ /^POSIX/;
my $contents = require "./$file";
my @missing = sort grep {!$contents->{$_}} keys %$posix;
next unless @missing;
print "$file: @missing\n\n";
}
view release on metacpan or search on metacpan
lib/Galileo/files/public/assets/pagedown/Markdown.Sanitizer.js view on Meta::CPAN
(function () {
var output, Converter;
if (typeof exports === "object" && typeof require === "function") { // we're in a CommonJS (e.g. Node.js) module
output = exports;
Converter = require("./Markdown.Converter").Converter;
} else {
output = window.Markdown;
Converter = output.Converter;
}
view release on metacpan or search on metacpan
script/character-sheet-generator view on Meta::CPAN
=cut
use FindBin;
use lib "$FindBin::Bin/../lib";
my $res = require Game::CharacterSheetGenerator
or not defined $res and die "Cannot load Game::CharacterSheetGenerator: $!"
or not $res and die "Game::CharacterSheetGenerator did not return a true value\n";
view release on metacpan or search on metacpan
script/face-generator view on Meta::CPAN
=cut
use FindBin;
use lib "$FindBin::Bin/../lib";
my $res = require Game::FaceGenerator
or not defined $res and die "Cannot load Game::FaceGenerator: $!"
or not $res and die "Game::FaceGenerator did not return a true value\n";
view release on metacpan or search on metacpan
script/text-mapper view on Meta::CPAN
=cut
use FindBin;
use lib "$FindBin::Bin/../lib";
my $res = require Game::TextMapper
or not defined $res and die "Cannot load Game::TextMapper: $!"
or not $res and die "Game::TextMapper did not return a true value\n";
view release on metacpan or search on metacpan
root/sfbb/form.tt view on Meta::CPAN
[% BLOCK field %]
[%- type = dta.type %]
[%- name = dta.name %]
[%- missing = view.form.results.missing( "$name" ) %]
[%- required = dta.optional ? 0 : 1 %]
[%- required_mark = required ? ' *' : '' %]
[%- IF type == 'file' %]
<label id="[% dta.name _ '_label' %]" class="[% required ? 'required' : '' %]"
for="[% dta.name %]">[% dta.label _ required_mark %]</label>
<input type="file" name="[% dta.name %]" />
view release on metacpan or search on metacpan
lib/Gearman/JobScheduler/Worker.pm view on Meta::CPAN
if ($path_or_name =~ /\.pm$/) {
# /somewhere/Foo/Bar.pm
# Expect the package to return its name so that we'll know how to call it:
# http://stackoverflow.com/a/9850017/200603
$path_or_name = require $path_or_name;
if ($path_or_name . '' eq '1') {
LOGDIE("The function package should return __PACKAGE__ at the end of the file instead of just 1.");
}
$path_or_name->import();
1;
view release on metacpan or search on metacpan
[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
;version_rel_month = 2
;version_rel_day = 21
;version_rel_hour = 18
;version_rel_time_zone = Pacific/Auckland
-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
; version_rel_day = 20
; version_rel_hour = 15
; version_rel_time_zone = Pacific/Auckland
; 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
[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
;version_rel_month = 1
;version_rel_day = 9
;version_rel_hour = 22
;version_rel_time_zone = Pacific/Auckland
-phase = develop
-relationship = requires
Dist::Zilla::Plugin::Author::KENTNL::CONTRIBUTING = 0.001003
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
view release on metacpan or search on metacpan
[RemovePrereqs::Provided / @Author::KENTNL/RemovePrereqs::Provided]
[Prereqs / @Author::KENTNL/::Role::BundleDeps]
; auto_prereqs_skip = File::Find
-phase = develop
-relationship = requires
Dist::Zilla::Plugin::Author::KENTNL::CONTRIBUTING = 0.001003
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
view release on metacpan or search on metacpan
lib/Geo/GeoNames.pm view on Meta::CPAN
get => 'get?',
hierarchy => 'hierarchy?',
children => 'children?',
);
# r = required
# o = optional
# rc = required - only one of the fields marked with rc is allowed. At least one must be present
# om = optional, multiple entries allowed
# d = deprecated - will be removed in later versions
our %valid_parameters = (
search => {
'q' => 'rc',