Result:
found more than 919 distributions - search limited to the first 2001 files matching your query
( run in 1.020 )
App-lms
view release on metacpan or search on metacpan
exclude_match = ['^CLAUDE\.md$']
[release]
branch = "main"
do_not_upload_to_cpan = 0
App-makebeamerinfo
view release on metacpan or search on metacpan
is( $output, $turn_info, 'Output as expected' );
#===================
# Other tests
eval { $app->transition_set('does_not_exist') };
ok( $@, 'Selecting unknown transition set dies' );
like( $@, qr/Unknown transition set/, 'Error message' );
done_testing;
App-metasyn
view release on metacpan or search on metacpan
script/_metasyn view on Meta::CPAN
## References:
#
## http://wiki.answers.com/Q/What_are_some_examples_of_singular_nouns_ending_in_S
## http://virtuallinguist.typepad.com/the_virtual_linguist/2009/10/singular-nouns-ending-in-s.html
#
#my @not_plural = (qw/
#Aries
#Charles
#Gonzales
#Hades
#Hercules
script/_metasyn view on Meta::CPAN
#yes
#nucleus
#synchronous
#/);
#
#my %not_plural;
#
#@not_plural{@not_plural} = (1) x @not_plural;
#
## A store of words which end in "oe" and whose plural ends in "oes".
#
## References
## http://www.scrabblefinder.com/ends-with/oe/
script/_metasyn view on Meta::CPAN
#sub to_singular
#{
# my ($word) = @_;
# # The return value.
# my $singular = $word;
# if (! $not_plural{$word}) {
# # The word is not in the list of exceptions.
# if ($plural{$word}) {
# # The word has an irregular plural, like "children", or
# # "geese", so look up the singular in the table.
# $singular = $plural{$word};
App-mgen
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
{
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
App-mimi
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
$fatpacked{"Exporter/Shiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXPORTER_SHINY';
package Exporter::Shiny;use 5.006001;use strict;use warnings;use Exporter::Tiny ();our$AUTHORITY='cpan:TOBYINK';our$VERSION='0.03';sub import {my$me=shift;my$caller=caller;(my$nominal_file=$caller)=~ s(::)(/)g;$INC{"$nominal_file\.pm"}||= __FILE__;...
EXPORTER_SHINY
$fatpacked{"Exporter/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXPORTER_TINY';
package Exporter::Tiny;use 5.006001;use strict;use warnings;no warnings qw(void once uninitialized numeric redefine);our$AUTHORITY='cpan:TOBYINK';our$VERSION='0.03';our@EXPORT_OK=qw<mkopt mkopt_hash _croak _carp>;sub _croak ($;@) {require Carp;my$f...
EXPORTER_TINY
$fatpacked{"ExtUtils/Config.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_CONFIG';
package ExtUtils::Config;$ExtUtils::Config::VERSION='0.03';use strict;use warnings;use Config;use Data::Dumper ();sub new {my ($pack,$args)=@_;return bless {values=>($args ? {%$args }: {}),},$pack}sub get {my ($self,$key)=@_;return exists$self->{va...
EXTUTILS_CONFIG
App-mojopaste
view release on metacpan or search on metacpan
0.24 2016-10-13T10:01:53+0200
- Writing/reading files are more robust
0.23 2016-09-08T20:08:22+0200
- Fix rendering 404 for paste_not_found() and .txt extension
0.22 2016-09-06T21:18:39+0200
- Will never allow robots
- Will only graph csv data
App-mookview
view release on metacpan or search on metacpan
t/01_basic.t view on Meta::CPAN
isa_ok $app, 'App::mookview';
my $path = $app->local_or_share_path([qw/share/]);
ok $path;
my $not_found_response = $app->return_404();
ok $not_found_response;
my $css_response = $app->return_css('/css/screen.css');
ok $css_response;
my $code_block = $app->filter_markdown(<<'EOF');
App-mycnfdiff
view release on metacpan or search on metacpan
t/samples/percona-compiled.txt view on Meta::CPAN
--log-throttle-queries-not-using-indexes=#
Log at most this many 'not using index' warnings per
minute to the slow log. Any further warnings will be
condensed into a single summary line. A value of 0
disables throttling. Option has no effect unless
--log_queries_not_using_indexes is set.
--log-timestamps=name
UTC to timestamp log files in zulu time, for more concise
timestamps and easier correlation of logs from servers
from multiple time zones, or SYSTEM to use the system's
local time. This affects only log files, not log tables,
App-optex-rpn
view release on metacpan or search on metacpan
module_maker="ModuleBuildTiny"
static_install = "auto"
[release]
do_not_upload_to_cpan = 0
App-optex-up
view release on metacpan or search on metacpan
[FileGatherer]
exclude_match = ['^images/', '^App-nup/']
[release]
do_not_upload_to_cpan = 0
App-osnames
view release on metacpan or search on metacpan
lib/App/osnames.pm view on Meta::CPAN
=item * B<description.min> => I<str>
Only return records where the 'description' field is greater than or equal to specified value.
=item * B<description.not_contains> => I<str>
Only return records where the 'description' field does not contain specified text.
=item * B<description.not_in> => I<array[str]>
Only return records where the 'description' field is not in the specified values.
=item * B<description.xmax> => I<str>
lib/App/osnames.pm view on Meta::CPAN
=item * B<tags.min> => I<str>
Only return records where the 'tags' field is greater than or equal to specified value.
=item * B<tags.not_contains> => I<str>
Only return records where the 'tags' field does not contain specified text.
=item * B<tags.not_in> => I<array[str]>
Only return records where the 'tags' field is not in the specified values.
=item * B<tags.xmax> => I<str>
lib/App/osnames.pm view on Meta::CPAN
=item * B<value.min> => I<str>
Only return records where the 'value' field is greater than or equal to specified value.
=item * B<value.not_contains> => I<str>
Only return records where the 'value' field does not contain specified text.
=item * B<value.not_in> => I<array[str]>
Only return records where the 'value' field is not in the specified values.
=item * B<value.xmax> => I<str>
App-perlbrew
view release on metacpan or search on metacpan
t/unit-files-are-the-same.t view on Meta::CPAN
for my $i (0..$#test_files) {
my $t = $test_files[$i];
my $u = $test_files[$i - 1];
my $should_be_same = files_are_the_same($t, $t);
my $should_not_be_same = files_are_the_same($t, $u);
note "Comparing $t with $u";
ok ($^O eq 'MSWin32' xor $should_be_same); # should return false on win32
ok !$should_not_be_same;
}
done_testing;
App-perlminlint
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use warnings FATAL => 'all';
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok('README.md' =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/App/perlminlint.pm');
App-perlmv-u
view release on metacpan or search on metacpan
lib/App/perlmv/u.pm view on Meta::CPAN
}
my $all_dest_exist = 1;
for (keys %dest) {
unless ($exists{$_}) { $all_dest_exist = 0; last }
}
my $all_src_not_in_dest_not_exist = 1;
for (keys %src) {
next if $dest{$_};
if ($exists{$_}) { $all_src_not_in_dest_not_exist = 0; last }
}
if ($all_dest_exist && $all_src_not_in_dest_not_exist) {
# fixed
return [304, "All sources do not exist and ".
"all targets already exist"];
}
my $all_src_exist = 1;
for (keys %src) {
unless ($exists{$_}) { $all_src_exist = 0; last }
}
my $all_dest_not_in_src_not_exist = 1;
for (keys %dest) {
next if $src{$_};
if ($exists{$_}) { $all_dest_not_in_src_not_exist = 0; last }
}
if ($all_src_exist && $all_dest_not_in_src_not_exist) {
# fixable
my @do_actions;
my @undo_actions;
my @pairs;
for my $pair (reverse @{ $args{pairs} }) {
App-plackbench
view release on metacpan or search on metacpan
t/03_plackbench_pm.t view on Meta::CPAN
$bench->fixup(undef);
$bench->add_fixup_from_file("$Bin/fail_redirect");
is(Scalar::Util::reftype($bench->fixup()->[0]), 'CODE', 'should initialize fixup() if necessary');
eval {
$bench->add_fixup_from_file("$Bin/does_not_exist");
};
# Don't try and check that the error contains "No such file", cause that's
# a different error in German (just sayin', it's not it came up or
# anything...)
App-plx
view release on metacpan or search on metacpan
bin/plx-packed view on Meta::CPAN
$fatpacked{"App/cpanminus/Dependency.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_CPANMINUS_DEPENDENCY';
package App::cpanminus::Dependency;use strict;use CPAN::Meta::Requirements;sub from_prereqs {my($class,$prereqs,$phases,$types)=@_;my@deps;for my$type (@$types){push@deps,$class->from_versions($prereqs->merged_requirements($phases,[$type])->as_st...
APP_CPANMINUS_DEPENDENCY
$fatpacked{"App/cpanminus/script.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_CPANMINUS_SCRIPT';
package App::cpanminus::script;use strict;use Config;use Cwd ();use App::cpanminus;use App::cpanminus::Dependency;use File::Basename ();use File::Find ();use File::Path ();use File::Spec ();use File::Copy ();use File::Temp ();use Getopt::Long ();...
It appears your cpanm executable was installed via `perlbrew install-cpanm`.
cpanm --self-upgrade won't upgrade the version of cpanm you're running.
Run the following command to get it upgraded.
bin/plx-packed view on Meta::CPAN
if ( $_[0]->{_incr_parser}->{incr_parsing} ) {
Carp::croak("incr_text can not be called when the incremental parser already started parsing");
}
$_[0]->{_incr_parser}->{incr_text};
}
} if ($] >= 5.006)}BEGIN {eval 'require Scalar::Util';unless($@){*JSON::PP::blessed=\&Scalar::Util::blessed;*JSON::PP::reftype=\&Scalar::Util::reftype;*JSON::PP::refaddr=\&Scalar::Util::refaddr}else{eval 'sub UNIVERSAL::a_sub_not_likely_to_be...
JSON_PP
$fatpacked{"JSON/PP/Boolean.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'JSON_PP_BOOLEAN';
use JSON::PP ();use strict;1;
JSON_PP_BOOLEAN
App-pod2gfm
view release on metacpan or search on metacpan
xt/boilerplate.t view on Meta::CPAN
>;
use re qw< eval >;
#use DDP output => 'stdout';
sub not_in_file_ok
{
my $filename = shift;
note("FILENAME: $filename\n\n");
xt/boilerplate.t view on Meta::CPAN
last;
}
}
}
not_in_file_ok('README');
not_in_file_ok('Changes');
not_in_file_ok('lib/App/pod2gfm.pm');
T2->done_testing;
App-podify
view release on metacpan or search on metacpan
t/InlineModule.pm view on Meta::CPAN
=cut
sub too_cool {
}
sub not_documented {
}
=head1 AUTHOR
Jan Henning Thorsen - C<jhthorsen@cpan.org>
App-podweaver
view release on metacpan or search on metacpan
lib/App/podweaver.pm view on Meta::CPAN
$dist_root = $options{ dist_root } || '.';
return(
File::Find::Rule->ignore_vcs
->not_name( qr/~$/ )
->perl_file
->in(
grep { -d $_ }
map { File::Spec->catfile( $dist_root, $_ ) }
qw/lib bin script/
App-ppgrep
view release on metacpan or search on metacpan
script/_ppgrep view on Meta::CPAN
## References:
#
## http://wiki.answers.com/Q/What_are_some_examples_of_singular_nouns_ending_in_S
## http://virtuallinguist.typepad.com/the_virtual_linguist/2009/10/singular-nouns-ending-in-s.html
#
#my @not_plural = (qw/
#Aries
#Charles
#Gonzales
#Hades
#Hercules
script/_ppgrep view on Meta::CPAN
#yes
#nucleus
#synchronous
#/);
#
#my %not_plural;
#
#@not_plural{@not_plural} = (1) x @not_plural;
#
## A store of words which end in "oe" and whose plural ends in "oes".
#
## References
## http://www.scrabblefinder.com/ends-with/oe/
script/_ppgrep view on Meta::CPAN
#sub to_singular
#{
# my ($word) = @_;
# # The return value.
# my $singular = $word;
# if (! $not_plural{$word}) {
# # The word is not in the list of exceptions.
# if ($plural{$word}) {
# # The word has an irregular plural, like "children", or
# # "geese", so look up the singular in the table.
# $singular = $plural{$word};
App-remarkpl
view release on metacpan or search on metacpan
lib/App/remarkpl/public/remark.min.js view on Meta::CPAN
require=function e(t,a,r){function s(i,l){if(!a[i]){if(!t[i]){var o="function"==typeof require&&require;if(!l&&o)return o(i,!0);if(n)return n(i,!0);var c=new Error("Cannot find module '"+i+"'");throw c.code="MODULE_NOT_FOUND",c}var d=a[i]={exports:{}...
a.relevance>r.relevance&&(s=r,r=a)}),s.language&&(r.second_best=s),r}function u(e){return N.tabReplace||N.useBR?e.replace(x,function(e,t){return N.useBR&&"\n"===e?"<br>":N.tabReplace?t.replace(/\t/g,N.tabReplace):void 0}):e}function h(e,t,a){var r=t?...
}),e.COMMENT("#cs","#ce"),e.COMMENT("#comments-start","#comments-end")]},n={begin:"\\$[A-z0-9_]+"},i={className:"string",variants:[{begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{begin:/'/,end:/'/,contains:[{begin:/''/,relevance:0}]}]},l={va...
beginKeywords:"class interface",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.TITLE_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE]},{beginKeywords:"namespace",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.inherit(e.TITLE_MODE,{begin:"[a-zA-Z](\\.?\\w)*"}),...
},a={className:"params",begin:/\(/,end:/\)/,excludeBegin:!0,excludeEnd:!0},r={className:"symbol",variants:[{begin:/\=[lgenxc]=/},{begin:/\$/}]},s={className:"comment",variants:[{begin:"'",end:"'"},{begin:'"',end:'"'}],illegal:"\\n",contains:[e.BACKSL...
},{begin:":\\s*"+t}]}]}}},{name:"hsp",create:function(e){return{case_insensitive:!0,lexemes:/[\w\._]+/,keywords:"goto gosub return break repeat loop continue wait await dim sdim foreach dimtype dup dupptr end stop newmod delmod mref run exgoto on mca...
},contains:[t,{className:"keyword",begin:"\\bend\\sif\\b"},{className:"function",beginKeywords:"function",end:"$",contains:[t,s,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.BINARY_NUMBER_MODE,e.C_NUMBER_MODE,r]},{className:"function",begin:"\\bend\\s+",e...
contains:[{className:"comment",begin:/\(\*/,end:/\*\)/},e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.C_NUMBER_MODE,{begin:/\{/,end:/\}/,illegal:/:/}]}}},{name:"matlab",create:function(e){var t=[e.C_NUMBER_MODE,{className:"string",begin:"'",end:"'",contai...
illegal:"</",contains:[e.C_NUMBER_MODE,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,{className:"string",begin:"`",end:"`",contains:[e.BACKSLASH_ESCAPE]},{begin:"[\\$\\%\\@](\\^\\w\\b|#\\w+|[^\\s\\w{]|{\\w+}|\\w+)"},e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_M...
contains:[i]});return{aliases:["ps"],lexemes:/-?[A-z\.\-]+/,case_insensitive:!0,keywords:{keyword:"if else foreach return function do while until elseif begin for trap data dynamicparam end break throw param continue finally in switch exit filter try...
},{className:"meta",begin:"#\\!?\\[",end:"\\]",contains:[{className:"meta-string",begin:/"/,end:/"/}]},{className:"class",beginKeywords:"type",end:";",contains:[e.inherit(e.UNDERSCORE_TITLE_MODE,{endsParent:!0})],illegal:"\\S"},{className:"class",beg...
literal:"true false nil"},contains:[e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,e.NUMBER_MODE,a,t.preprocessor],illegal:/#/}}},{name:"sql",create:function(e){var t=e.COMMENT("--","$");return{case_insensitive:!0,illegal:/[<>{}*#]/,contains:[{beginKey...
return{aliases:["styl"],case_insensitive:!1,keywords:"if else for in",illegal:"("+o.join("|")+")",contains:[e.QUOTE_STRING_MODE,e.APOS_STRING_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,a,{begin:"\\.[a-zA-Z][a-zA-Z0-9_-]*"+i,returnBegin:!0,cont...
built_in:"ip eip rip al ah bl bh cl ch dl dh sil dil bpl spl r8b r9b r10b r11b r12b r13b r14b r15b ax bx cx dx si di bp sp r8w r9w r10w r11w r12w r13w r14w r15w eax ebx ecx edx esi edi ebp esp eip r8d r9d r10d r11d r12d r13d r14d r15d rax rbx rcx rdx...
"atelier-lakeside-light":".hljs-atelier-lakeside-light .hljs-comment,.hljs-atelier-lakeside-light .hljs-quote{color:#5a7b8c}.hljs-atelier-lakeside-light .hljs-variable,.hljs-atelier-lakeside-light .hljs-template-variable,.hljs-atelier-lakeside-light ...
grayscale:".hljs-grayscale .hljs{display:block;overflow-x:auto;padding:.5em;color:#333;background:#fff}.hljs-grayscale .hljs-comment,.hljs-grayscale .hljs-quote{color:#777;font-style:italic}.hljs-grayscale .hljs-keyword,.hljs-grayscale .hljs-selector...
"solarized-dark":".hljs-solarized-dark .hljs{display:block;overflow-x:auto;padding:.5em;background:#002b36;color:#839496}.hljs-solarized-dark .hljs-comment,.hljs-solarized-dark .hljs-quote{color:#586e75}.hljs-solarized-dark .hljs-keyword,.hljs-solari...
App-remotediff
view release on metacpan or search on metacpan
xt/boilerplate.t view on Meta::CPAN
use warnings;
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
xt/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/App/remotediff.pm');
App-renlikewd
view release on metacpan or search on metacpan
script/renlikewd view on Meta::CPAN
off dry-run mode.
_
args => {
file => {
schema => 'filename::default_only_file_not_dir_in_curdir*',
pos => 0,
},
parents => {
schema => 'posint*',
summary => 'Instead of working directory, use its parent directory (if parents=1) or grandparent directory (if parents=2) and so on',
App-reposdb
view release on metacpan or search on metacpan
script/_reposdb-inline view on Meta::CPAN
## References:
#
## http://wiki.answers.com/Q/What_are_some_examples_of_singular_nouns_ending_in_S
## http://virtuallinguist.typepad.com/the_virtual_linguist/2009/10/singular-nouns-ending-in-s.html
#
#my @not_plural = (qw/
#Aries
#Charles
#Gonzales
#Hades
#Hercules
script/_reposdb-inline view on Meta::CPAN
#yes
#nucleus
#synchronous
#/);
#
#my %not_plural;
#
#@not_plural{@not_plural} = (1) x @not_plural;
#
## A store of words which end in "oe" and whose plural ends in "oes".
#
## References
## http://www.scrabblefinder.com/ends-with/oe/
script/_reposdb-inline view on Meta::CPAN
#sub to_singular
#{
# my ($word) = @_;
# # The return value.
# my $singular = $word;
# if (! $not_plural{$word}) {
# # The word is not in the list of exceptions.
# if ($plural{$word}) {
# # The word has an irregular plural, like "children", or
# # "geese", so look up the singular in the table.
# $singular = $plural{$word};
App-revealup
view release on metacpan or search on metacpan
share/revealjs/plugin/highlight/highlight.esm.js view on Meta::CPAN
function e(t){return(e="function"==typeof Symbol&&"symbol"==typeof Symbol.iterator?function(e){return typeof e}:function(e){return e&&"function"==typeof Symbol&&e.constructor===Symbol&&e!==Symbol.prototype?"symbol":typeof e})(t)}function t(e,t){if(!(...
/*!
* reveal.js plugin that adds syntax highlight support.
*/
var of={id:"highlight",HIGHLIGHT_STEP_DELIMITER:"|",HIGHLIGHT_LINE_DELIMITER:",",HIGHLIGHT_LINE_RANGE_DELIMITER:"-",hljs:rf,init:function(e){var t=e.getConfig().highlight||{};t.highlightOnLoad="boolean"!=typeof t.highlightOnLoad||t.highlightOnLoad,t....
App-rsync-new2old
view release on metacpan or search on metacpan
script/rsync-new2old view on Meta::CPAN
return ($max_mtime, $max_path);
}
($mtime, $path);
}
my %Opts = (create_target_if_not_exists => 0);
Getopt::Long::Configure('bundling', 'pass_through', 'no_auto_abbrev', 'permute');
GetOptions(
'help|h|?' => sub {
print <<'_';
script/rsync-new2old view on Meta::CPAN
no warnings 'once';
print "rsync-new2old version ", ($main::VERSION || "dev"),
($main::DATE ? " ($main::DATE)" : ""), "\n";
exit 0;
},
'create-target-if-not-exists' => \$Opts{create_target_if_not_exists},
);
my ($source, $target);
for (@ARGV) {
if (/\A-/) {
script/rsync-new2old view on Meta::CPAN
die "rsync-new2old: Can't find source '$source', must already exist and a local path\n"
unless -e $source;
my ($abs_source, $source_leaf, $source_ends_in_slash) = process_path($source);
my ($abs_target, $target_leaf, $target_ends_in_slash) = process_path($target);
my $real_target = $source_ends_in_slash ? $target : "$abs_target/$source_leaf";
if ($Opts{create_target_if_not_exists}) {
unless (-e $real_target) {
if (-d $source) {
make_path($real_target) or die "rsync-new2old: Can't make_path '$real_target': $!\n";
} else {
open my $fh, ">", $real_target or die "rsync-new2old: Can't create file '$real_target': $!\n";
App-sbozyp
view release on metacpan or search on metacpan
if (version_gt($available_version, $installed_version)) {
print "$pkgname $installed_version -> $available_version\n";
}
}
} elsif ($opt_listpkgsnotinrepo) {
print "$_\n" for sbo_pkgs_not_in_repo();
}
}
sub main_search {
sbozyp_getopts(
} grep /_SBo$/, sbozyp_readdir("$root/var/lib/pkgtools/packages");
}
return %installed_sbo_pkgs;
}
sub sbo_pkgs_not_in_repo {
state @prgnams = do {
my $root = $ENV{ROOT} // '/';
-d "$root/var/lib/pkgtools/packages" ? sort grep { !prgnam_to_pkgname($_) } map {
my ($prgnam) = parse_slackware_pkgname(basename($_));
} grep /_SBo$/, sbozyp_readdir("$root/var/lib/pkgtools/packages") : ();
App-sh2p
view release on metacpan or search on metacpan
lib/App/sh2p/Builtins.pm view on Meta::CPAN
# There are a lot of functions in here,
# try to keep them in alphabetic order
#
########################################################
# For builtins/functionality that cannot be implemented
sub not_implemented {
error_out "The following line cannot be translated:";
error_out "@_";
return scalar(@_);
}
lib/App/sh2p/Builtins.pm view on Meta::CPAN
1;
__END__
=head1 Summary
package App::sh2p::Builtins;
sub not_implemented
# For builtins/functionality that cannot be implemented
sub one4one
sub general_arg_list
sub advise
sub do_autoload
App-smtpstatus
view release on metacpan or search on metacpan
lib/App/smtpstatus.pm view on Meta::CPAN
=item * B<code.min> => I<str>
Only return records where the 'code' field is greater than or equal to specified value.
=item * B<code.not_contains> => I<str>
Only return records where the 'code' field does not contain specified text.
=item * B<code.not_in> => I<array[str]>
Only return records where the 'code' field is not in the specified values.
=item * B<code.xmax> => I<str>
lib/App/smtpstatus.pm view on Meta::CPAN
=item * B<description.min> => I<str>
Only return records where the 'description' field is greater than or equal to specified value.
=item * B<description.not_contains> => I<str>
Only return records where the 'description' field does not contain specified text.
=item * B<description.not_in> => I<array[str]>
Only return records where the 'description' field is not in the specified values.
=item * B<description.xmax> => I<str>
lib/App/smtpstatus.pm view on Meta::CPAN
=item * B<summary.min> => I<str>
Only return records where the 'summary' field is greater than or equal to specified value.
=item * B<summary.not_contains> => I<str>
Only return records where the 'summary' field does not contain specified text.
=item * B<summary.not_in> => I<array[str]>
Only return records where the 'summary' field is not in the specified values.
=item * B<summary.xmax> => I<str>
( run in 1.020 second using v1.01-cache-2.11-cpan-39bf76dae61 )