Result:
found more than 1015 distributions - search limited to the first 2001 files matching your query
( run in 1.436 )
App-Wikidata-Print
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
App-Wikidata-Template-CS-CitaceMonografie
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
App-WordPressTools
view release on metacpan or search on metacpan
script/wp-tools view on Meta::CPAN
}
open my $db_test, '<', $db_file;
my $first_line = <$db_test>;
close $db_test;
if ($first_line =~ /Usage: mysqldump/) {
die "Database dump looks like it failed because it contains usage (command: $dump_command)";
}
}
}
### backup filesystem
App-YoutubeDlIf
view release on metacpan or search on metacpan
lib/App/YoutubeDlIf.pm view on Meta::CPAN
my @argv_for_youtube_dl;
ARG:
for my $arg (@{$args{urls_or_ids}}) {
FILTER: {
# looks like an option name
last FILTER if $arg =~ /\A--?\w+/ && $arg !~ $re_video_id;
my $video_id = YouTube::Util::extract_youtube_video_id($arg);
if ($video_id) {
log_trace "Argument %s has video ID %s", $arg, $video_id;
App-Zapzi
view release on metacpan or search on metacpan
You can chain together adding and showing, eg
$ zapzi add show README.md
will add a copy of README.md to the database and then open a browser
to show how it looks in readable format.
# Configuration
To view or change configuration variables use the `config get` or
`config set` commands, eg:
App-ZodiacUtils
view release on metacpan or search on metacpan
script/_chinese-zodiac-of view on Meta::CPAN
#
#=head2 COMPLETE_BASH_SUMMARY_ALIGN
#
#String. Either C<left> (the default) or C<right>.
#
#The C<left> align looks something like this:
#
# --bar Summary about the bar option
# --baz Summary about the baz option
# --foo Summary about the foo option
# --schapen Summary about the schapen option
script/_chinese-zodiac-of view on Meta::CPAN
#
#use 5.010001;
#use strict;
#use warnings;
#
#use Scalar::Util qw(looks_like_number blessed reftype refaddr);
#
#require Exporter;
#our @ISA = qw(Exporter);
#our @EXPORT = qw(dd dmp);
#our @EXPORT_OK = qw(dd_ellipsis dmp_ellipsis);
script/_chinese-zodiac-of view on Meta::CPAN
#
# my $ref = ref($val);
# if ($ref eq '') {
# if (!defined($val)) {
# return "undef";
# } elsif (looks_like_number($val) && !$OPT_STRINGIFY_NUMBERS &&
# # perl does several normalizations to number literal, e.g.
# # "+1" becomes 1, 0123 is octal literal, etc. make sure we
# # only leave out quote when the number is not normalized
# $val eq $val+0 &&
# # perl also doesn't recognize Inf and NaN as numeric
script/_chinese-zodiac-of view on Meta::CPAN
# for (@_) {
# my $ref = ref($_);
# if ($ref eq 'ARRAY') { $prev = $_ }
# elsif ($ref eq 'HASH') { $meta = $_ }
# elsif (!$ref) {
# if (Scalar::Util::looks_like_number($_)) {
# $status = $_;
# } else {
# $msg = $_;
# }
# }
script/_chinese-zodiac-of view on Meta::CPAN
#
## Check whether or not a scalar should be emitted as an plain scalar.
#sub is_valid_plain {
# my $self = shift;
# return 0 unless length $_[0];
# return 0 if $self->quote_numeric_strings and Scalar::Util::looks_like_number($_[0]);
# # refer to YAML::Old::Loader::parse_inline_simple()
# return 0 if $_[0] =~ /^[\s\{\[\~\`\'\"\!\@\#\>\|\%\&\?\*\^]/;
# return 0 if $_[0] =~ /[\{\[\]\},]/;
# return 0 if $_[0] =~ /[:\-\?]\s/;
# return 0 if $_[0] =~ /\s#/;
script/_chinese-zodiac-of view on Meta::CPAN
# }
# else {
# $self->die('YAML_LOAD_ERR_BAD_SEQ_ELEMENT');
# }
#
# # Check whether the preface looks like a YAML mapping ("key: value").
# # This is complicated because it has to account for the possibility
# # that a key is a quoted string, which itself may contain escaped
# # quotes.
# my $preface = $self->preface;
# if ( $preface =~ /^ (\s*) ( \w .*? \: (?:\ |$).*) $/x or
App-ZofCMS
view release on metacpan or search on metacpan
lib/App/ZofCMS/Config.pm view on Meta::CPAN
as is described in section B<Note on page and dir query parameters>
above.
B<Note:> when specifying the "directory keys", make sure to have the leading
and ending slash (or just one slash if it's a "root" directory),
because that's what the C<dir> query parameter looks like after being
processed.
=head2 C<zcms_template_extension>
{ zcms_template_extension => '.tmpl', }
App-a2p
view release on metacpan or search on metacpan
lib/App/a2p.pm view on Meta::CPAN
nonexistent array elements spring into existence simply by being
referenced. If somehow you are relying on this mechanism to create
null entries for a subsequent for...in, they won't be there in perl.
If a2p makes a split line that assigns to a list of variables that
looks like (Fld1, Fld2, Fld3...) you may want to rerun a2p using the
B<-n> option mentioned above. This will let you name the fields
throughout the script. If it splits to an array instead, the script
is probably referring to the number of fields somewhere.
The exit statement in awk doesn't necessarily exit; it goes to the END
App-after
view release on metacpan or search on metacpan
# for (@_) {
# my $ref = ref($_);
# if ($ref eq 'ARRAY') { $prev = $_ }
# elsif ($ref eq 'HASH') { $meta = $_ }
# elsif (!$ref) {
# if (Scalar::Util::looks_like_number($_)) {
# $status = $_;
# } else {
# $msg = $_;
# }
# }
App-ansiecho
view release on metacpan or search on metacpan
Number of arguments are calculated from the number of `%` characters
in the format string except `%%`. Variable width and precision
parameter `*` can be used like `%*s` or `%*.*s`.
Format string also can be made by **-f** option. Next commands produce
same output, but second one looks better.
ansiecho -f -f '%%%ds' 16 hello
ansiecho -f '%*s' 16 hello
App-assh
view release on metacpan or search on metacpan
lib/App/assh.pm view on Meta::CPAN
assh
assh HOSTNAME
=head1 REQUIREMENTS
First, you will need a file `~E<sol>.sshE<sol>config`. It looks something like this:
Host foo
HostName bar.example.com
User baz
App-bmkpasswd
view release on metacpan or search on metacpan
# obnoxious and useless test noise, something's fucky with this cat's
# smokers; f.ex:
# http://www.cpantesters.org/cpan/report/82c71a7e-e6a9-11e5-8839-f3218d218ed8
require Test::More;
Test::More::plan(skip_all =>
"this looks like one of Nigel Horne's busted smokers"
)
}
}
use Test::Cmd;
diag "Found SHA support";
$cmd->run(args => '-m sha256', stdin => 'foo');
is $? >> 8, 0, 'bmkpasswd (-m sha256) exit 0';
my $crypt = $cmd->stdout;
chomp $crypt;
ok index($crypt, '$5$') == 0, 'sha256 hash looks ok';
$cmd->run(args => "-c @{[quotemeta $crypt]} foo");
cmp_ok $cmd->stdout, 'eq', "Match\n$crypt\n",
'bmkpasswd -c (sha256) returned hash';
}
App-boxmuller
view release on metacpan or search on metacpan
scripts/boxmuller view on Meta::CPAN
#!/usr/bin/perl
use 5.014 ; use strict ; use warnings ; # the functions requires 5.10 for "state", 5.14 for srand.
use Getopt::Std ; getopts ':.:@:1d:g:Lm:s:v:', \my%o ;
use Math::Trig qw/pi/ ; # 5.4ã‹ã‚‰
use Scalar::Util qw/looks_like_number/ ; # 5.7.3ã‹ã‚‰
use Term::ANSIColor qw/:constants color/ ; $Term::ANSIColor::AUTORESET = 1 ;
use Time::HiRes qw/sleep usleep gettimeofday tv_interval/ ; # 5.7.3ã‹ã‚‰
$SIG{INT} = sub { & SecondInfo ; exit 130 } ;
scripts/boxmuller view on Meta::CPAN
exit 0 ;
sub init ( ) { #オプションを使ã£ãŸè¨å®š
$o{s} = defined $o{s} ? srand $o{s} : srand ; # 乱数シードã®ä¿ç®¡/è¨å®š
sub LLN ( $ ) ; * LLN = * looks_like_number ; # 関数åãŒé•·ã™ãŽã‚‹ã®ã§ã€çŸãã—ãŸã€‚
sub printErr( $ ){ print STDERR BRIGHT_RED "Option -$_[0] should have a numeric specification.\n" ; exit 1 }
$mu = $o{m} ? LLN $o{m} ? $o{m} : printErr "m" : 0 ; #m : å¹³å‡
$sd = $o{d} ? LLN $o{d} ? $o{d} : printErr "d" : $o{v} ? LLN $o{v} ? sqrt $o{v} : printErr "v" : 1 ; #sd：標準åå·®
}
App-cloc
view release on metacpan or search on metacpan
and --not-match-d to include the file's path
in the regex, not just the file's basename.
(This does not expand each file to include its
absolute path, instead it uses as much of
the path as is passed in to cloc.)
Note: --match-d always looks at the full
path and therefore is unaffected by --fullpath.
--include-lang=<L1>[,L2,] Count only the given comma separated languages
L1, L2, L3, et cetera.
--match-d=<regex> Only count files in directories matching the Perl
regex. For example
return unless %git_hash;
my $have_tar_git = external_utility_exists($ON_WINDOWS ? "unzip" : "tar --version") &&
external_utility_exists("git --version");
if (!$have_tar_git) {
warn "One or more inputs looks like a git hash but " .
"either git or tar is unavailable.\n";
return;
}
my %repo_listing = (); # $repo_listing{hash}{files} = 1;
if ($ON_WINDOWS) {
$F_norm = lc $F_norm; # for case insensitive file name comparisons
$F_norm =~ s{\\}{/}g; # Windows directory separators to Unix
$F_norm =~ s{^\./}{}g; # remove leading ./
if (($F_norm !~ m{^/}) and ($F_norm !~ m{^\w:/})) {
# looks like a relative path; prefix with cwd
$F_norm = lc "$cwd/$F_norm";
}
} else {
$F_norm =~ s{^\./}{}g; # remove leading ./
if ($F_norm !~ m{^/}) {
# looks like a relative path; prefix with cwd
$F_norm = lc "$cwd/$F_norm";
}
}
# Remove trailing / so it does not interfere with further regex code
# that does not expect it
# Note that /usr/src/redhat/BUILD/ucd-snmp-4.1.1/ov/bitmaps/UCD.20.p
# is actually C code. The heuristics determine that they're not Pascal,
# but because it ends in ".p" it's not counted as C code either.
# I believe this is actually correct behavior, because frankly it
# looks like it's automatically generated (it's a bitmap expressed as code).
# Rather than guess otherwise, we don't include it in a list of
# source files. Let's face it, someone who creates C files ending in ".p"
# and expects them to be counted by default as C files in SLOCCount needs
# their head examined. I suggest examining their head
# with a sucker rod (see syslogd(8) for more on sucker rods).
App-colsummary
view release on metacpan or search on metacpan
use Encode qw[ decode_utf8 encode_utf8 ] ;
use FindBin qw [ $Script ] ;
use Getopt::Std ; getopts 'R:c:g:i:jm:r:su:v:z=!@:#:0:2:' => \my %o ;
use List::Util qw/max min maxstr minstr/ ;
use POSIX qw/strtod/ ; # # å¹³å‡å€¤ã®è¨ˆç®—ã«ç”¨ã„ã‚‹ str to double.
use Scalar::Util qw/looks_like_number/;
use Term::ANSIColor qw/:constants color/ ; $Term::ANSIColor::AUTORESET = 1 ;
use Time::HiRes qw [ gettimeofday tv_interval ] ; my ${ dt_start } = [ gettimeofday ] ;
my $sdt = sprintf '%04d-%02d-%02d %02d:%02d:%02d', do{my @t= @{[localtime]}[5,4,3,2,1,0]; $t[0]+=1900; $t[1]++; @t } ;
eval "use PerlIO::gzip;1" or die "PerlIO::gzip cannot be loaded, so -z does not work. ($Script, $sdt)\n" if $o{z} ;
# é…列å‚ç…§ã‹ã‚‰ã€æœ€å°å€¤æœ€å¤§å€¤ã‚’å–り出ã™
sub minmaxstr ( $ ) {
* uniq = sub (@) {my %hh ;map { $hh{$_}++ != 0 ? () : $_ } @_ } ;
sub part ( &@ ) ;
sub RangeStr ( $$ ) ;
my @gps = part {/^0*$/ ? 0 : looks_like_number $_ ? 1 : 2} @{ $_[0] } ;
my @ostr ;
push @ostr, join $o{r}, sort & uniq ( @{$gps[0]} ) if $gps[0] ; # 空文å—列ãŒã‚ã‚‹ã¨ãã®å‡¦ç†
push @ostr, RangeStr( min(@{$gps[1]}), max(@{$gps[1]}) ) if $gps[1] ; # æ•°ã«è¦‹ãˆã‚‹å€¤ãŒã‚ã‚‹ã¨ãã®å‡¦ç†
push @ostr, RangeStr( minstr(@{$gps[2]}), maxstr(@{$gps[2]}) ) if $gps[2] ; # æ•°ã«è¦‹ãˆãªã„値ãŒã‚ã‚‹ã¨ãã®å‡¦ç†
return @ostr;
App-cpackage
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
App-cpanbaker
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
App-cpanchanges
view release on metacpan or search on metacpan
lib/App/cpanchanges.pm view on Meta::CPAN
cpanchanges --distribution libwww-perl
cpanchanges --help
=head1 DESCRIPTION
App::cpanchanges looks up release change logs from
L<MetaCPAN|https://metacpan.org>'s API and displays them to you in your
terminal. Think of it as L<perldoc> or L<cpandoc|Pod::Cpandoc> for change
logs.
By default it expects a module name which it maps to the latest release
(C<AUTHOR/Release-Name-VERSION>) and then looks up the changes file for that
release.
App::cpanchanges is simply a package placeholder for the included cpanchanges
script. The (currently very tiny) guts of the script may be librarized in the
future, but they're very simple right now.
App-cpanmigrate
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
App-cpanminus
view release on metacpan or search on metacpan
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
my $is_key = $_[2];
# Check this before checking length or it winds up looking like a string!
my $has_string_flag = _has_internal_string_value($string);
return '~' unless defined $string;
return "''" unless length $string;
if (Scalar::Util::looks_like_number($string)) {
# keys and values that have been used as strings get quoted
if ( $is_key || $has_string_flag ) {
return qq['$string'];
}
else {
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
=head2 Exporting Without Using Exporter's import Method
Exporter has a special method, 'export_to_level' which is used in situations
where you can't directly call Exporter's
import method. The export_to_level
method looks like:
MyPackage->export_to_level(
$where_to_export, $package, @what_to_export
);
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
=item * round-trip integrity
When you serialise a perl data structure using only data types supported
by JSON and Perl, the deserialised data structure is identical on the Perl
level. (e.g. the string "2.0" doesn't suddenly become "2" just because
it looks like a number). There I<are> minor exceptions to this, read the
MAPPING section below to learn about those.
=item * strict checking of JSON correctness
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
As this callback gets called less often then the C<filter_json_object>
one, decoding speed will not usually suffer as much. Therefore, single-key
objects make excellent targets to serialise Perl objects into, especially
as single-key JSON objects are as close to the type-tagged value concept
as JSON gets (it's basically an ID/VALUE tuple). Of course, JSON does not
support this in any way, so you need to make sure your data never looks
like a serialised Perl hash.
Typical names for the single object key are C<__class_whatever__>, or
C<$__dollars_are_rarely_used__$> or C<}ugly_brace_placement>, or even
things like C<__class_md5sum(classname)__>, to reduce the risk of clashing
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
my $found = shift()->_do_find_module(@_) or return;
return $found->[1];
}
# given a line of perl code, attempt to parse it if it looks like a
# $VERSION assignment, returning sigil, full name, & package name
sub _parse_version_expression {
my $self = shift;
my $line = shift;
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
'OtherPackage::Name' => ...
}
=head2 C<< package_versions_from_directory($dir, \@files?) >>
Scans C<$dir> for .pm files (unless C<@files> is given, in which case looks
for those files in C<$dir> - and reads each file for packages and versions,
returning a hashref of the form:
{
'Package::Name' => {
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
}
}
sub load_string {
my ($class, $string) = @_;
if ( $string =~ /^---/ ) { # looks like YAML
return $class->load_yaml_string($string);
}
elsif ( $string =~ /^\s*\{/ ) { # looks like JSON
return $class->load_json_string($string);
}
else { # maybe doc-marker-free YAML
return $class->load_yaml_string($string);
}
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
my $arg = shift @args;
# check for lethal dash first to stop processing before causing problems
# the fancy dash is U+2212 or \xE2\x88\x92
if ($arg =~ /\xE2\x88\x92/ or $arg =~ /−/) {
die <<'DEATH';
WHOA THERE! It looks like you've got some fancy dashes in your commandline!
These are *not* the traditional -- dashes that software recognizes. You
probably got these by copy-pasting from the perldoc for this module as
rendered by a UTF8-capable formatter. This most typically happens on an OS X
terminal, but can happen elsewhere too. Please try again after replacing the
dashes with normal minus signs.
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
=item SHELL
=item COMSPEC
local::lib looks at the user's C<SHELL> environment variable when printing out
commands to add to the shell configuration file.
On Win32 systems, C<COMSPEC> is also examined.
=back
App-cpanoutdated-coro
view release on metacpan or search on metacpan
script/cpan-outdated-coro view on Meta::CPAN
## --NOTFOUND: $file
}
# ignore old distribution.
# This is a heuristic approach. It is not a strict.
# If you want a strict check, cpan-outdated looks 02packages.details.txt.gz twice.
# It is too slow.
#
# But, 02packages.details.txt.gz is sorted.
# Submodules are listed after main module most of the time.
# This strategy works well for now.
App-cpantimes
view release on metacpan or search on metacpan
my $found = shift()->_do_find_module(@_) or return;
return $found->[1];
}
# given a line of perl code, attempt to parse it if it looks like a
# $VERSION assignment, returning sigil, full name, & package name
sub _parse_version_expression {
my $self = shift;
my $line = shift;
my %arg_store;
for my $arg (@args) {
# check for lethal dash first to stop processing before causing problems
if ($arg =~ /−/) {
die <<'DEATH';
WHOA THERE! It looks like you've got some fancy dashes in your commandline!
These are *not* the traditional -- dashes that software recognizes. You
probably got these by copy-pasting from the perldoc for this module as
rendered by a UTF8-capable formatter. This most typically happens on an OS X
terminal, but can happen elsewhere too. Please try again after replacing the
dashes with normal minus signs.
App-crosstable
view release on metacpan or search on metacpan
#!/usr/bin/perl
use 5.014 ; use strict ; use warnings ;
use Scalar::Util qw/looks_like_number/; # 5.7 ~
use Getopt::Std; getopts '::^:~=+:,:@:0:1:R:d:i:qvm:' , \my %o ;
use Term::ANSIColor qw/:constants color/; $Term::ANSIColor::AUTORESET = 1 ;# v5.6 ~
#use utf8 ;
my $isep = $o{i} // "\t" ; # 入力ã®åŒºåˆ‡ã‚Šæ–‡å—
my $oemp = $o{'0'} // 0 ; # 出力ã®ã‚»ãƒ«ãŒæœªå®šç¾©å€¤ã®å ´åˆã«ä»£ã‚ã‚Šã«å‡ºåŠ›ã™ã‚‹æ–‡å—列
# my %Cv ; for my$i(@a1){for my$j(@a2){$Cv{$i}{$j}=($Cc{$i}{$j}//0)-($Ce{$i}{$j}//0)}}
}
sub StrNumSort ( @ ) {
+( sort { $a cmp $b } grep { ! looks_like_number ($_) } @_ ) ,
( sort { $a <=> $b } grep { looks_like_number ($_) } @_ ) ;
}
sub showMat ( $$ ) {
my ($C,$h11) = @_ ; # セル, 縦軸, 横軸, 出力表ã®å·¦ä¸Šã®æ–‡å—列
my @a1 = StrNumSort ( keys %{$C} ) ; # 縦軸ã®å„é …ç›®å
App-diff_spreadsheets
view release on metacpan or search on metacpan
t/t_Common.pm view on Meta::CPAN
List::Util->import::into($target, qw/reduce min max first any all none sum0/);
require Scalar::Util;
Scalar::Util->import::into($target, qw/blessed reftype looks_like_number
weaken isweak refaddr/);
require Cwd;
Cwd->import::into($target, qw/getcwd abs_path fastgetcwd fast_abs_path/);
App-digestarchive
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
App-distfind
view release on metacpan or search on metacpan
lib/App/distfind.pm view on Meta::CPAN
filters out duplicates. Tilde characters will be expanded to C<$ENV{HOME}>.
The returning list is returned as an array reference.
=head2 find_dists
Traverses the given directories, looks for Perl module distributions, and
returns a list of paths to those distribution directories. See C<--prune> for
directories that will be pruned. Also if a Perl module distribution directory
is found, it is then pruned because we assume that it won't recursively
contain another Perl module distribution.
App-financeta
view release on metacpan or search on metacpan
595746ca292225bcdc3afd484629ac6d75bc72f8
Getting ready to add multiple sources for supporting research
Tue Mar 14 11:35:36 2023 -0400
87e7a4149755bb37ab3c2f7dda241d0a84586d0f
Progress bar looks better now and works like a progress bar with a test application to view it
Mon Mar 13 11:13:58 2023 -0400
cd5c8ab027600d7568f08dc5d3e6b7dd978a4279
Removing class based instantiation of PDL and using just the exported functions
595746ca292225bcdc3afd484629ac6d75bc72f8
Getting ready to add multiple sources for supporting research
Tue Mar 14 11:35:36 2023 -0400
87e7a4149755bb37ab3c2f7dda241d0a84586d0f
Progress bar looks better now and works like a progress bar with a test application to view it
Mon Mar 13 11:13:58 2023 -0400
cd5c8ab027600d7568f08dc5d3e6b7dd978a4279
Removing class based instantiation of PDL and using just the exported functions
595746ca292225bcdc3afd484629ac6d75bc72f8
Getting ready to add multiple sources for supporting research
Tue Mar 14 11:35:36 2023 -0400
87e7a4149755bb37ab3c2f7dda241d0a84586d0f
Progress bar looks better now and works like a progress bar with a test application to view it
Mon Mar 13 11:13:58 2023 -0400
cd5c8ab027600d7568f08dc5d3e6b7dd978a4279
Removing class based instantiation of PDL and using just the exported functions
App-finddo
view release on metacpan or search on metacpan
script/_finddo view on Meta::CPAN
#
#use 5.010001;
#use strict;
#use warnings;
#
#use Scalar::Util qw(looks_like_number blessed reftype refaddr);
#
#require Exporter;
#our @ISA = qw(Exporter);
#our @EXPORT = qw(dd dmp);
#
script/_finddo view on Meta::CPAN
#
# my $ref = ref($val);
# if ($ref eq '') {
# if (!defined($val)) {
# return "undef";
# } elsif (looks_like_number($val) && !$OPT_STRINGIFY_NUMBERS &&
# $val eq $val+0 &&
# $val !~ /\A-?(?:inf(?:inity)?|nan)\z/i
# ) {
# return $val;
# } else {
script/_finddo view on Meta::CPAN
# for (@_) {
# my $ref = ref($_);
# if ($ref eq 'ARRAY') { $prev = $_ }
# elsif ($ref eq 'HASH') { $meta = $_ }
# elsif (!$ref) {
# if (Scalar::Util::looks_like_number($_)) {
# $status = $_;
# } else {
# $msg = $_;
# }
# }
App-gcal
view release on metacpan or search on metacpan
lib/App/gcal.pm view on Meta::CPAN
for my $arg (@$args) {
my $cal;
if ( ( -e $arg ) && ( -r $arg ) ) {
# looks like a file
$cal = _process_file($arg);
}
else {
App-genpw-base56
view release on metacpan or search on metacpan
script/_genpw-base56 view on Meta::CPAN
#
#use 5.010001;
#use strict;
#use warnings;
#
#use Scalar::Util qw(looks_like_number blessed reftype refaddr);
#
#require Exporter;
#our @ISA = qw(Exporter);
#our @EXPORT = qw(dd dmp);
#
script/_genpw-base56 view on Meta::CPAN
#
# my $ref = ref($val);
# if ($ref eq '') {
# if (!defined($val)) {
# return "undef";
# } elsif (looks_like_number($val) && !$OPT_STRINGIFY_NUMBERS &&
# $val eq $val+0 &&
# $val !~ /\A-?(?:inf(?:inity)?|nan)\z/i
# ) {
# return $val;
# } else {
script/_genpw-base56 view on Meta::CPAN
# for (@_) {
# my $ref = ref($_);
# if ($ref eq 'ARRAY') { $prev = $_ }
# elsif ($ref eq 'HASH') { $meta = $_ }
# elsif (!$ref) {
# if (Scalar::Util::looks_like_number($_)) {
# $status = $_;
# } else {
# $msg = $_;
# }
# }
script/_genpw-base56 view on Meta::CPAN
#}
#
#sub is_valid_plain {
# my $self = shift;
# return 0 unless length $_[0];
# return 0 if $self->quote_numeric_strings and Scalar::Util::looks_like_number($_[0]);
# return 0 if $_[0] =~ /^[\s\{\[\~\`\'\"\!\@\#\>\|\%\&\?\*\^]/;
# return 0 if $_[0] =~ /[\{\[\]\},]/;
# return 0 if $_[0] =~ /[:\-\?]\s/;
# return 0 if $_[0] =~ /\s#/;
# return 0 if $_[0] =~ /\:(\s|$)/;
( run in 1.436 second using v1.01-cache-2.11-cpan-64827b87656 )