view release on metacpan or search on metacpan
lib/App/RecordStream/Operation/tofasta.pm view on Meta::CPAN
sub accept_record {
my $self = shift;
my $record = shift;
my %props = map {; "-$_" => ${$record->guess_key_from_spec($self->{KEYS}{$_})} }
grep { $self->{KEYS}{$_} ne 'NONE' }
keys %{$self->{KEYS}};
if (not $self->{PASSTHRU} and defined $props{'-seq'}) {
$props{'-seq'} =~ s/\s+//g; # fixme
view release on metacpan or search on metacpan
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
You mentioned that it would like to be potato?
He probably just wants to take over my CELLS and then EXPLODE
inside me like a BARREL of runny CHOPPED LIVER! Or maybe he'd
like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
to a RIGHT-WING MILITARY TAKEOVER of my apartment!! I guess
I should call AL PACINO!
Possibly this has something to do with some problems in your
childhood?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I want to TAKE IT HOME and DRESS IT UP in HOT PANTS!!
When did you first want to take it?
I guess it was all a DREAM.. or an episode of HAWAII FIVE-O...
Is it because of problems at school that you say or an episode of
hawaii five o?
Does someone from PEORIA have a SHORTER ATTENTION span than me?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
Is it because of your plans that you say your ears are gone?
He probably just wants to take over my CELLS and then EXPLODE
inside me like a BARREL of runny CHOPPED LIVER! Or maybe he'd
like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
to a RIGHT-WING MILITARY TAKEOVER of my apartment!! I guess
I should call AL PACINO!
What makes you believe do I know what it means to be truly one
with my booth?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I want DUSTIN HOFFMAN!! .. I want LIBERACE!! YOW!!
I think you have some serious inhibitions.
I guess it was all a DREAM.. or an episode of HAWAII FIVE-O...
What makes you believe it would like to be potato?
I will establish the first SHOPPING MALL in NUTLEY, New Jersey...
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
You mentioned that it would like to be potato?
He probably just wants to take over my CELLS and then EXPLODE
inside me like a BARREL of runny CHOPPED LIVER! Or maybe he'd
like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
to a RIGHT-WING MILITARY TAKEOVER of my apartment!! I guess
I should call AL PACINO!
Possibly this has something to do with some problems in your
childhood?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I want to TAKE IT HOME and DRESS IT UP in HOT PANTS!!
When did you first want to take it?
I guess it was all a DREAM.. or an episode of HAWAII FIVE-O...
Is it because of problems at school that you say or an episode of
hawaii five o?
Does someone from PEORIA have a SHORTER ATTENTION span than me?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
Is it because of your plans that you say your ears are gone?
He probably just wants to take over my CELLS and then EXPLODE
inside me like a BARREL of runny CHOPPED LIVER! Or maybe he'd
like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
to a RIGHT-WING MILITARY TAKEOVER of my apartment!! I guess
I should call AL PACINO!
What makes you believe do I know what it means to be truly one
with my booth?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I want DUSTIN HOFFMAN!! .. I want LIBERACE!! YOW!!
I think you have some serious inhibitions.
I guess it was all a DREAM.. or an episode of HAWAII FIVE-O...
What makes you believe it would like to be potato?
I will establish the first SHOPPING MALL in NUTLEY, New Jersey...
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
YUGGA-HUGGA-BUGGA-TUGGA!! HEY-HEY!! A TRAIN STATION!! No, a POST
OFFICE!! An OCEAN LINER!! No, I think it's a CAFETERIA!!!
Why do you say was you born?
I guess it was all a DREAM.. or an episode of HAWAII FIVE-O...
How do you reconcile your inhibitions?
Place me on a BUFFER counter while you BELITTLE several BELLHOPS
in the Trianon Room!! Let me one of your SUBSIDIARIES!
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
Possibly this is because of problems at school?
He probably just wants to take over my CELLS and then EXPLODE
inside me like a BARREL of runny CHOPPED LIVER! Or maybe he'd
like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
to a RIGHT-WING MILITARY TAKEOVER of my apartment!! I guess
I should call AL PACINO!
What makes you think you guess you should call al pacino?
ONE: I will donate my entire ``BABY HUEY'' comic book collection
to the downtown PLASMA CENTER..
TWO: I won't START a BAND called ``KHADAFY & THE HIT SQUAD''..
THREE: I won't ever TUMBLE DRY my FOX TERRIER again!!
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
Perhaps your life could have caused this.
He probably just wants to take over my CELLS and then EXPLODE
inside me like a BARREL of runny CHOPPED LIVER! Or maybe he'd
like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
to a RIGHT-WING MILITARY TAKEOVER of my apartment!! I guess
I should call AL PACINO!
Why do you say you are only truly alive when you are covered in
polka dots and taco sauce?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
Yow! I want my nose in lights!
Perhaps this is caused by problems at school?
I guess we can live on his POT FARM in HADES!!
Is this how you relax?
I've got an IDEA!! Why don't I STARE at you so HARD,
you forget your SOCIAL SECURITY NUMBER!!
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
Is it because of your plans that you are going through all this?
He probably just wants to take over my CELLS and then EXPLODE
inside me like a BARREL of runny CHOPPED LIVER! Or maybe he'd
like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
to a RIGHT-WING MILITARY TAKEOVER of my apartment!! I guess
I should call AL PACINO!
Is it because of your life that you say you guess you should call
al pacino?
...I think I'm having an overnight sensation right now!!
Why do you say nose would like to have this bad ronald?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
Hold the MAYO & pass the COSMIC AWARENESS...
Is it because of your plans that you are going through all this?
Hello? Enema Bondage? I'm calling because I want to be happy, I guess..
What makes you happy?
Let's climb to the TOP of that MOUNTAIN and think about STRIP MINING!!
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
real reason?
He probably just wants to take over my CELLS and then EXPLODE
inside me like a BARREL of runny CHOPPED LIVER! Or maybe he'd
like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
to a RIGHT-WING MILITARY TAKEOVER of my apartment!! I guess
I should call AL PACINO!
Possibly this is because of your inhibitions?
The FALAFEL SANDWICH lands on my HEAD and I become a VEGETARIAN...
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I can't think about that. It doesn't go with HEDGES in the shape of
LITTLE LULU -- or ROBOTS making BRICKS...
You mentioned that you were high?
Hello? Enema Bondage? I'm calling because I want to be happy, I guess..
How often have you been happy?
I'll show you MY telex number if you show me YOURS...
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I feel like I'm in a Toilet Bowl with a thumbtack in my forehead!!
Maybe this is because of the people you hang around with?
I guess we can live on his POT FARM in HADES!!
Have you been afraid of of being drawn to using harder stuff?
I feel like I am sharing a ``CORN-DOG'' with NIKITA KHRUSCHEV..
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I will invent "TIDY BOWL"...
Possibly this is caused by some problems in your childhood?
I guess you guys got BIG MUSCLES from doing too much STUDYING!
Are you afraid of that?
...A housewife is wearing a polypyrene jumpsuit!!
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
There's a lot of BIG MONEY in MISERY if you have an AGENT!!
You mentioned that 47 people are yelling and sweat is cascading
down your spinal column is fairly enjoyable?
I guess we can live on his POT FARM in HADES!!
Is this how you relax?
I like your SNOOPY POSTER!!
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
Gibble, Gobble, we ACCEPT YOU ---
Is it because of your inhibitions that you say gibble gobble you
accept me?
Hello? Enema Bondage? I'm calling because I want to be happy, I guess..
Have you been absolutely sure you want to be happy you guess?
LOOK!!! I'm WALKING in my SLEEP again!!
You mentioned that luke finds gold on his land?
view release on metacpan or search on metacpan
lib/App/RewriteVersion.pm view on Meta::CPAN
sub _main_module {
my ($self, $dist_dir) = @_;
# Adapted from Dist::Zilla
my $main;
(my $guess = $self->_dist_name($dist_dir)) =~ s{-}{/}g;
$main = $dist_dir->child("lib/$guess.pm");
unless ($main->exists) {
$main = path($self->_shortest_module($dist_dir));
}
croak qq{Could not find any modules to retrieve version from}
unless defined $main and $main->exists;
lib/App/RewriteVersion.pm view on Meta::CPAN
my $current_version = $app->current_version;
my $current_version = $app->current_version(dist_dir => $dist_dir);
my $current_version = $app->current_version(file => $file);
Returns the current version of the distribution using L</"version_from">. If no
C<file> is passed, the main module filename will be guessed from C<dist_dir>
(defaulting to current working directory), using heuristics similar to
L<Dist::Zilla::Plugin::NameFromDirectory> and L<Dist::Zilla/"main_module">. For
example, if the directory is named C<Foo-Bar> it will look for
C<lib/Foo/Bar.pm> within the distribution, and if that doesn't exist, the
shortest module path found. If the C<V> environment variable is set, it will be
returned regardless of other options. An exception will be thrown if no version
is found in the specified or guessed file, or if no perl modules could be
found.
=head2 rewrite_version
my $bool = $app->rewrite_version($file, $version);
view release on metacpan or search on metacpan
t/lib/App/Rssfilter/Feed/Storage/Test/SaveFeedPutsContentToFile.pm view on Meta::CPAN
requires 'feed_storage';
requires 'tempfile';
test save_feed_puts_content_to_file => method {
$self->feed_storage->save_feed( Mojo::DOM->new( '<well>I guess this is it</well>' ) );
is(
$self->tempfile->slurp,
'<well>I guess this is it</well>',
'save_feed writes passed DOM to underlying file'
);
};
1;
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
script/sah-to-human view on Meta::CPAN
schema_file => {
schema=>'str*',
summary => 'Retrieve schema from file',
description => <<'_',
JSON and YAML formats are supported. File type will be guessed from filename,
defaults to JSON.
_
cmdline_aliases => {f=>{}},
'x.schema.entity' => 'filename',
script/sah-to-human view on Meta::CPAN
=item B<--schema-file>=I<filename>, B<-f>
Retrieve schema from file.
JSON and YAML formats are supported. File type will be guessed from filename,
defaults to JSON.
=item B<--schema-json>=I<s>
view release on metacpan or search on metacpan
lib/App/Sandy/DB/Handle/Variation.pm view on Meta::CPAN
}
# Sequence inside perl begins at 0
my $position = int($fields[1] - 1);
# Compare the alterations and reference to guess the max variation on sequence
my $size_of_variation = max map { length } $fields[3], $fields[4];
my $high = $position + $size_of_variation - 1;
my %variation = (
seq_id => $fields[0],
lib/App/Sandy/DB/Handle/Variation.pm view on Meta::CPAN
}
# Sequence inside perl begins at 0
my $position = int($fields[1] - 1);
# Compare the alterations and reference to guess the max variation on sequence
my $size_of_variation = max map { length } $fields[3], $alternate;
my $high = $position + $size_of_variation - 1;
my %variation = (
seq_id => $fields[0],
view release on metacpan or search on metacpan
lib/App/Seacan.pm view on Meta::CPAN
sub create_launcher {
# Instead of giving a very long command to the user
# a launcher script is generated.
# app_name and main_script could be added to the configuration
# so we can add the info directly instead of "guessing" it
# through a regex.
my $self = shift;
my $output = $self->config->{seacan}{output};
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/geopsy/gpdcreport.pm view on Meta::CPAN
releases.
-compat <TYPE> Compatibility with previous versions of .report format. TYPE may take the following
values:
na_viewer old .report as output by the ancestor of dinver (before 2005).
beta first release of the new .report format (not yet support for implicit mode
guess specification). All releases from year 2006 and end of 2005.
current .report produced by current releases of dinver. All releases since
beginning of year 2007.Versioning implemented in this format should
guarantee the future support for this format.
Generic options:
view release on metacpan or search on metacpan
lib/App/ShellUtils.pm view on Meta::CPAN
This distribution contains the following CLI utilities:
=over
=item * L<guess-shell>
=back
=head1 HOMEPAGE
view release on metacpan or search on metacpan
local/lib/perl5/Crypt/OpenSSL/Guess.pm view on Meta::CPAN
if ($^O ne 'MSWin32' and my $prefix = `brew --prefix --installed openssl 2>@{[File::Spec->devnull]}`) {
chomp $prefix;
return $prefix;
}
my @guesses = (
'/home/linuxbrew/.linuxbrew/opt/openssl/bin/openssl' => '/home/linuxbrew/.linuxbrew/opt/openssl', # LinuxBrew openssl
'/opt/homebrew/opt/openssl/bin/openssl' => '/opt/homebrew/opt/openssl', # macOS ARM homebrew
'/usr/local/opt/openssl/bin/openssl' => '/usr/local/opt/openssl', # OSX homebrew openssl
'/usr/local/bin/openssl' => '/usr/local', # OSX homebrew openssl
'/opt/local/bin/openssl' => '/opt/local', # Macports openssl
local/lib/perl5/Crypt/OpenSSL/Guess.pm view on Meta::CPAN
'/sslexe/openssl.exe' => '/sslroot', # VMS, openssl.org
'/ssl1$exe/openssl.exe' => '/ssl1$root',# VMS, VSI or HPE install
'/ssl$exe/openssl.exe' => '/ssl$root', # VMS, HP install
);
while (my $k = shift @guesses
and my $v = shift @guesses) {
if ( -x $k ) {
return $v;
}
}
(undef, $dir) = check_no_path()
local/lib/perl5/Crypt/OpenSSL/Guess.pm view on Meta::CPAN
use Crypt::OpenSSL::Guess;
WriteMakefile(
# ...
LIBS => [openssl_lib_paths() . ' -lssl -lcrypto'],
INC => openssl_inc_paths(), # guess include path or get from $ENV{OPENSSL_PREFIX}
);
=head1 DESCRIPTION
Crypt::OpenSSL::Guess provides helpers to guess OpenSSL include path on any platforms.
Often macOS's homebrew OpenSSL cause a problem on installation due to include path is not added.
Some CPAN module provides to modify include path with configure-args, but L<Carton> or L<Module::CPANfile>
is not supported to pass configure-args to each modules. Crypt::OpenSSL::* modules should use it on your L<Makefile.PL>.
view release on metacpan or search on metacpan
lib/App/Sky/Manager.pm view on Meta::CPAN
one filename.
=item * 'section'
An optional section that will override the target section. If not specified,
the uploader will try to guess based on the file’s basename and the manager
configuration.
=item * 'target_dir'
Overrides the target directory for the upload, to ignore that dictated by
view release on metacpan or search on metacpan
bin/slaughter view on Meta::CPAN
{
#
# Portable filename construction
#
my $guess = File::Spec->catfile( $dir, "Slaughter", "Transport" );
#
# Found the module directory?
#
if ( -d $guess )
{
foreach my $pm ( sort( glob( $guess . "/*.pm" ) ) )
{
# skip the base-class
next if ( $pm =~ /revisionControl\.pm/ );
bin/slaughter view on Meta::CPAN
if ( $CONFIG{ 'prefix' } && !$CONFIG{ 'transport' } )
{
# show what is going on
$CONFIG{ 'verbose' } &&
print "Attempting to guesss transport for $CONFIG{'prefix'}\n";
# git://.... or http://.../foo.git
$CONFIG{ 'transport' } = "git"
if ( $CONFIG{ 'prefix' } =~ /(^git|\.git$)/i );
view release on metacpan or search on metacpan
lib/SVN/Dump/Replayer/Git.pm view on Meta::CPAN
close $tmp or confess $!;
$self->git_env_setup($revision);
# Some changes seem to alter no files. We can detect whether a
# commit is needed using git-status. Otherwise, if we guess wrong,
# git-commit will fail if there's nothing to commit. We bother
# checking git-commit because we do want to catch errors.
# TODO - git-status is slow after a while. Can we do something
# smart to avoid it in all cases?
view release on metacpan or search on metacpan
socialcalc/SocialCalcServersideUtilities.pm view on Meta::CPAN
CalculateCellSkipData($context, $options);
PrecomputeSheetFontsAndLayouts($context, $options);
CalculateColWidthData($context, $options);
# Make a reasonable guess about the size of our rendered sheet, then
# pre-extend that SV. This is *critical* for mod_perl performance,
# as malloc there is much slower there than the command line.
my $outstr = ("\x00" x ($context->{maxrow} * $context->{maxcol} * 100));
$outstr = '';
view release on metacpan or search on metacpan
lib/App/SourcePlot/Source.pm view on Meta::CPAN
}
elsif (@_) {
print "Passed in paramaters are being entered\n" if $locateBug;
my ($ra, $dec, $epoc, undef) = @_;
# Prevent Astro::Coords guessing between radians and degrees.
my $unit = ($ra =~ /:/ or $dec =~ /:/)
? 'sexagesimal'
: 'degrees';
if ($epoc eq 'RJ') {
view release on metacpan or search on metacpan
- Add localization with Locale::TextDomain
0.10 2019-03-30T20:59:56Z
- Add --conf, --version and --help command line parameters
- Fix and improve doc
- Add default value when defined for options guessed from Target and
MsgWriter consuming classes
- Add wikipedia_link option to revolutionarydate msgmaker
- Process wikipedia ambiguous links
- Fix another typo in TODO
- Fix typo in TODO
view release on metacpan or search on metacpan
lib/App/Sqitch/Engine/pg.pm view on Meta::CPAN
return $uri->as_string;
}
# DBD::pg and psql use fallbacks consistently, thanks to libpq. These include
# environment variables, system info (username), the password file, and the
# connection service file. Best for us not to second-guess these values,
# though we admittedly try when setting the database name in the destination
# URI for unnamed targets a few lines up from here.
sub _def_user { }
sub _def_pass { }
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
binaries is smaller.
Also, this leaves "gethostbyname" in - not only is it actually used
often, the Socket module also exposes it, so leaving it out usually
gains little. Why Socket exposes a C function that is in the core
already is anybody's guess.
ADDITIONAL RESOURCES
Some guy has made a repository on github
(<https://github.com/gh0stwizard/staticperl-modules>) with some modules
patched to build with staticperl.
view release on metacpan or search on metacpan
lib/App/SymlinkUtils.pm view on Meta::CPAN
=item * B<content_matches> => I<bool>
Whether content should match extension.
If set to true, will guess media type from content and check that file extension
exists nd matches the media type. Requires L<File::MimeInfo::Magic>, which is
only specified as a "Recommends" dependency by File-Symlink-Util distribution.
=item * B<ext_matches> => I<bool>
lib/App/SymlinkUtils.pm view on Meta::CPAN
=item * B<content_matches> => I<bool>
Whether content should match extension.
If set to true, will guess media type from content and check that file extension
exists nd matches the media type. Requires L<File::MimeInfo::Magic>, which is
only specified as a "Recommends" dependency by File-Symlink-Util distribution.
=item * B<ext_matches> => I<bool>
view release on metacpan or search on metacpan
bin/tacochan view on Meta::CPAN
);
}
sub res_404 { $_[0]->render_text(404, 'Not Found') }
sub guess_chat {
my ($self, $stuff) = @_;
if ($stuff =~ /^#/) {
# from chatname
return $skype->chat($stuff);
} elsif ($stuff =~ /^skype:/) {
bin/tacochan view on Meta::CPAN
return $c->render_text(500, 'Skype is not running')
}
my $chat = $c->req->param('chat');
my $chat_obj = $c->guess_chat($chat);
eval {
$chat_obj->alter('leave');
};
if ($@) {
return $c->render_text(403, "leave failure chat: $chat");
bin/tacochan view on Meta::CPAN
}
my $chat = $c->req->param('chat');
my $message = $c->req->param('message');
my $chat_obj = $c->guess_chat($chat);
eval {
$chat_obj->send_message($message);
};
if ($@) {
return $c->render_text(403, "message sent failure chat: $chat $message");
bin/tacochan view on Meta::CPAN
return $c->render_text(500, 'Skype is not running');
}
my $chat = $c->req->param('chat');
my $chat_obj = $c->guess_chat($chat);
return $c->render_text(200, "$chat_obj->{id}");
};
__PACKAGE__->load_plugin('Web::JSON');
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
print
"*** Dependencies will be installed the next time you type '$make'.\n";
}
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::getcwd() );
view release on metacpan or search on metacpan
examples/complex/input/stylesheet.skx view on Meta::CPAN
<p>Here the code basically says:</p>
<ul>
<li>If there is a variable called "stylesheet" set then use it.</li>
<li>Otherwise include the "style.css" link.</li>
</ul>
<p>If you guessed you could then set a per-page stylesheet-variable you'd be correct.</p>
<p>This page contains a link to one:</p>
<pre>
title: Stylesheet Example
stylesheet: dark.css
----
view release on metacpan or search on metacpan
lib/App/Test/Generator.pm view on Meta::CPAN
The name of the module (optional).
Using the reserved word C<builtin> means you're testing a Perl builtin function.
If omitted, the generator will guess from the config filename:
C<My-Widget.conf> -> C<My::Widget>.
=head3 C<$function>
The function/method to test.
view release on metacpan or search on metacpan
lib/App/ThisDist.pm view on Meta::CPAN
}
}
__DISABLED__FROM_REPO_NAME: {
last; # currently disabled
log_debug "Using CPAN::Dist::FromRepoName to guess from dir name ...";
require CPAN::Dist::FromRepoName;
my $res = CPAN::Dist::FromRepoName::extract_cpan_dist_from_repo_name($dir_basename);
if (defined $res) {
$distname = $res;
log_debug "Guessed distname=$distname from repo name '$dir_basename'";
lib/App/ThisDist.pm view on Meta::CPAN
$detailinfo->{source} = "archive";
$detailinfo->{archive_file} = $distfile;
last GUESS;
}
log_debug "Can't guess distribution, giving up";
} # GUESS
if ($detail) {
$detailinfo->{dist} = $distname;
$detailinfo->{dist_version} = $distver;
lib/App/ThisDist.pm view on Meta::CPAN
=head1 SEE ALSO
L<App::DistUtils>
C<my_dist()> from L<Dist::Util::Current> tries to guess distribution name
associated with source code file. It uses us when guessing via C<$DIST> or
F<.packlist> files fail.
=head1 AUTHOR
perlancar <perlancar@cpan.org>
view release on metacpan or search on metacpan
lib/App/TimeTracker/Command/GitHub.pm view on Meta::CPAN
=head3 repo [REQUIRED]
The name of the repository you are working on. Currently a required
entry to the config file, but we might upgrade it to a command line
param and/or try to guess it from the current working dir or your git
config.
=head3 api_uri
Optional.