Result:
found more than 860 distributions - search limited to the first 2001 files matching your query
( run in 1.199 )
App-pl
view release on metacpan or search on metacpan
I<perl:> Specify C<@INC>/C<#include> directory (several B<-I>'s allowed).
=item C<-iI<[extension]>>
I<perl:> Edit C<< <> >> files in place (makes backup if extension supplied).
=item C<-n>
I<As I said before, I never repeat myself. :-)>
App-plockf
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
\bBuild.COM$
\bBUILD.COM$
\bbuild.com$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
App-pltest
view release on metacpan or search on metacpan
I<perl:> Specify C<@INC>/C<#include> directory (several B<-I>'s allowed).
=item C<-iI<[extension]>>
I<perl:> Edit C<< <> >> files in place (makes backup if extension supplied).
=item C<-n>
I<As I said before, I never repeat myself. :-)>
App-podispell
view release on metacpan or search on metacpan
bin/podispell view on Meta::CPAN
my $class = shift;
my $self = bless {@_}, $class;
}
sub dictionary { $_[0]{dictionary} }
sub backup { $_[0]{backup} }
sub check_file {
my ($self, $file) = @_;
open my $in, '<', $file
or die "Can't open $file: $!";
bin/podispell view on Meta::CPAN
print { $out } $checked;
close $out;
if ($self->backup) {
rename $file, "$file.bak"
or die "unable to create backup file for $file!: $!";
}
rename $outfile, $file;
}
bin/podispell view on Meta::CPAN
{
use Getopt::Long qw(:config gnu_getopt no_auto_abbrev no_ignore_case);
GetOptions(
'd|dictionary=s@' => \(my $dictionary),
'b|backup' => \(my $backup),
'h|help' => sub {
require Pod::Usage;
Pod::Usage::pod2usage(-exitval => 0, -verbose => 1);
},
'V|version' => sub {
bin/podispell view on Meta::CPAN
},
) or exit 1;
my $speller = Pod::SpellChecker->new(
($dictionary ? ( dictionary => $dictionary ) : ()),
($backup ? ( backup => $backup ) : ()),
);
if (!@ARGV) {
die "no files specified!\n";
}
bin/podispell view on Meta::CPAN
=item C<-d> C<--dictionary>
Sets the dictionary to use. Defaults to 'C<en_US>'. Can be specified multiple
times.
=item C<-b> C<--backup>
Keep backup files. A copy of the file will be saved with a C<.bak> extension
before being modified.
=item C<-h> C<--help>
Display this help text.
App-podweaver
view release on metacpan or search on metacpan
lib/App/podweaver.pm view on Meta::CPAN
sub SUCCESS_CHANGED() { 2; }
sub weave_file
{
my ( $self, %input ) = @_;
my ( $file, $no_backup, $write_to_dot_new, $weaver );
my ( $perl, $ppi_document, $pod_after_end, @pod_tokens, $pod_str,
$pod_document, %weave_args, $new_pod, $end, $new_perl,
$output_file, $backup_file, $fh, $module_info );
unless( $file = delete $input{ filename } )
{
$log->errorf( 'Missing file parameter in args %s', \%input )
if $log->is_error();
lib/App/podweaver.pm view on Meta::CPAN
{
$log->errorf( 'Missing weaver parameter in args %s', \%input )
if $log->is_error();
return( FAIL );
}
$no_backup = delete $input{ no_backup };
$write_to_dot_new = delete $input{ new };
# From here and below is mostly hacked out from
# Dist::Zilla::Plugin::PodWeaver
lib/App/podweaver.pm view on Meta::CPAN
if $log->is_info();
return( SUCCESS_UNCHANGED );
}
$output_file = $write_to_dot_new ? ( $file . '.new' ) : $file;
$backup_file = $file . '.bak';
unless( $write_to_dot_new or $no_backup )
{
unlink( $backup_file );
copy( $file, $backup_file );
}
$log->debugf( "Writing new '%s' for '%s'", $output_file, $file )
if $log->is_debug();
# We want to preserve permissions and other stuff, so we open
lib/App/podweaver.pm view on Meta::CPAN
=item B<< weaver => >> I<$weaver> (required)
The L<Pod::Weaver> instance to use for the weaving.
=item B<< no_backup => >> I<0> | I<1> (default: 0)
If set to a true value, no backup will be made of the original file.
=item B<< new => >> I<0> | I<1> (default: 0)
If set to a true value, the modified file will be written to the
original filename with C<.new> appended, rather than overwriting
App-ppgrep
view release on metacpan or search on metacpan
script/_ppgrep view on Meta::CPAN
# my ($self, $l, $r) = @_;
# $self->path([]);
# $self->errors([]);
# $self->mem({});
# $self->cur_mem_key(undef);
# my ($key, $res, $backup) = $self->_merge(undef, $l, $r);
# {
# success => !@{ $self->errors },
# error => (@{ $self->errors } ?
# join(", ",
# map { sprintf("/%s: %s", join("/", @{ $_->[0] }), $_->[1]) }
# @{ $self->errors }) : ''),
# result => $res,
# backup => $backup,
# };
#}
#
## handle circular refs: process todo's
#sub _process_todo {
script/_ppgrep view on Meta::CPAN
# }
# } else {
# $self->mem->{$memkey} = {res=>undef, todo=>[]};
# $self->cur_mem_key($memkey);
# #print "DEBUG: invoking ".$mh->name."'s $meth(".dmp($key).", ".dmp($l).", ".dmp($r).")\n";
# my ($newkey, $res, $backup) = $mh->$meth($key, $l, $r);
# #print "DEBUG: setting res for mem<$memkey>\n";
# $self->mem->{$memkey}{res} = [$newkey, $res, $backup];
# $self->_process_todo;
# return ($newkey, $res, $backup);
# }
# } else {
# $self->_process_todo;
# #print "DEBUG: invoking ".$mh->name."'s $meth(".dmp($key).", ".dmp($l).", ".dmp($r).")\n";
# return $mh->$meth($key, $l, $r);
script/_ppgrep view on Meta::CPAN
#specified hash. Return the same hash but with prefixes removed.
#
#=head2 merge($l, $r)
#
#Merge two nested data structures. Returns the result hash: {
#success=>0|1, error=>'...', result=>..., backup=>... }. The 'error'
#key is set to contain an error message if there is an error. The merge
#result is in the 'result' key. The 'backup' key contains replaced
#elements from the original hash/array.
#
#=head1 FAQ
#
#=head2 What is this module good for? Why would I want to use this module instead of the other hash merge modules?
script/_ppgrep view on Meta::CPAN
# my $c = $mm->config;
# return $self->merge_SCALAR_SCALAR($key, $l, $r) unless $c->recurse_array;
# return if $c->wanted_path && !$mm->_path_is_included($mm->path, $c->wanted_path);
#
# my @res;
# my @backup;
# my $la = @$l;
# my $lb = @$r;
# push @{ $mm->path }, -1;
# for my $i (0..($la > $lb ? $la : $lb)-1) {
# #print "DEBUG: merge_A_A: #$i: a->[$i]=".Data::Dumper->new([$l->[$i]])->Indent(0)->Terse(1)->Dump.", b->[$i]=".Data::Dumper->new([$r->[$i]])->Indent(0)->Terse(1)->Dump."\n";
# $mm->path->[-1] = $i;
# if ($i < $la && $i < $lb) {
# push @backup, $l->[$i];
# my ($subnewkey, $subres, $subbackup, $is_circular) = $mm->_merge($i, $l->[$i], $r->[$i], $c->default_mode);
# last if @{ $mm->errors };
# if ($is_circular) {
# push @res, undef;
# #print "DEBUG: pushing todo to mem<".$mm->cur_mem_key.">\n";
# push @{ $mm->mem->{ $mm->cur_mem_key }{todo} }, sub {
# my ($subnewkey, $subres, $subbackup) = @_;
# #print "DEBUG: Entering todo subroutine (i=$i)\n";
# $res[$i] = $subres;
# }
# } else {
# push @res, $subres;# if defined($newkey); = we allow DELETE on array?
script/_ppgrep view on Meta::CPAN
# } else {
# push @res, $r->[$i];
# }
# }
# pop @{ $mm->path };
# ($key, \@res, \@backup);
#}
#
#sub _prefilter_hash {
# my ($self, $h, $desc, $sub) = @_;
# my $mm = $self->merger;
script/_ppgrep view on Meta::CPAN
# my $c = $mm->config;
#
# #print "DEBUG: Entering _merge_gen(".dmp($hl).", ".dmp($hr).", $mode, ...)\n";
#
# my $res = {};
# my $backup = {};
#
# my %k = map {$_=>1} keys(%$hl), keys(%$hr);
# push @{ $mm->path }, "";
# K:
# for my $k (keys %k) {
script/_ppgrep view on Meta::CPAN
# if (!$do_merge) {
# $res->{$k} = $hl->{$k} if $hl->{$k};
# next K;
# }
#
# $backup->{$k} = $hl->{$k}[1] if $hl->{$k} && $hr->{$k};
# if ($hl->{$k}) {
# push @o, $hl->{$k};
# }
# if ($hr->{$k}) {
# my %m = map {$_=>$mm->modes->{$_}->precedence_level} keys %{ $hr->{$k} };
script/_ppgrep view on Meta::CPAN
# if (@o == 1 &&
# (($hl->{$k} && $mh->can("merge_left_only")) ||
# ($hr->{$k} && $mh->can("merge_right_only")))) {
# # there's only left-side or right-side
# my $meth = $hl->{$k} ? "merge_left_only" : "merge_right_only";
# my ($subnewkey, $v, $subbackup, $is_circular, $newmode) = $mh->$meth($k, $o[$i][1]); # XXX handle circular?
# next K unless defined($subnewkey);
# $final_mode = $newmode;
# $v = $res;
# } else {
# $final_mode = $o[$i][0];
script/_ppgrep view on Meta::CPAN
# or do {
# $mm->push_error("Can't merge $final_mode + $o[$i][0]");
# return;
# };
# #print "DEBUG: merge $final_mode+$o[$i][0] = $m->[0], $m->[1]\n";
# my ($subnewkey, $subbackup);
# ($subnewkey, $v, $subbackup, $is_circular) = $mm->_merge($k, $v, $o[$i][1], $m->[0]);
# return if @{ $mm->errors };
# if ($is_circular) {
# if ($i < $#o) {
# $mm->push_error("Can't handle circular at $i of $#o merges (mode $m->[0]): not the last merge");
# return;
# }
# #print "DEBUG: pushing todo to mem<".$mm->cur_mem_key.">\n";
# push @{ $mm->mem->{ $mm->cur_mem_key }{todo} }, sub {
# my ($subnewkey, $subres, $subbackup) = @_;
# #print "DEBUG: Entering todo subroutine (k=$k)\n";
# my $final_mode = $m->[1];
# #XXX return unless defined($subnewkey);
# $res->{$k} = [$m->[1], $subres];
# if ($c->readd_prefix) {
script/_ppgrep view on Meta::CPAN
# }
# $res->{$k} = [$final_mode, $v] unless $is_circular;
# }
# pop @{ $mm->path };
# #print "DEBUG: Leaving _merge_gen, res = ".dmp($res)."\n";
# ($res, $backup);
#}
#
## hh is {key=>[MODE, val], ...} which is the format returned by _merge_gen
#sub _readd_prefix {
# my ($self, $hh, $k, $defmode) = @_;
script/_ppgrep view on Meta::CPAN
#
# my $okr = $self->_gen_right($r, $mode, sub {$_[0] eq $ok});
# return if @{ $mm->errors };
#
# push @{ $mm->path }, $ok;
# my ($res, $backup);
# {
# local $c->{readd_prefix} = 0;
# ($res, $backup) = $self->_merge_gen($okl, $okr, $mode);
# }
# pop @{ $mm->path };
# return if @{ $mm->errors };
#
# #print "DEBUG: merge options key (".dmp($okl).", ".dmp($okr).") = ".dmp($res)."\n";
script/_ppgrep view on Meta::CPAN
# return;
# }
# }
#
# # STEP 4. MERGE LEFT & RIGHT
# my ($res, $backup) = $self->_merge_gen($hl, $hr, $mode, $em, $im, $emr, $imr);
# return if @{ $mm->errors };
#
# #print "DEBUG: intermediate res(5) = ".Data::Dumper->new([$res])->Indent(0)->Terse(1)->Dump."\n";
#
# # STEP 5. TURN BACK {key=>[MODE=>val]}, ...} INTO {(prefix)key => val, ...}
script/_ppgrep view on Meta::CPAN
# if ($config_replaced) {
# $mm->config($orig_c);
# #print "DEBUG: Restored config, config=", dmp($mm->config), "\n";
# }
#
# #print "DEBUG: backup = ".Data::Dumper->new([$backup])->Indent(0)->Terse(1)->Dump."\n";
# #print "DEBUG: leaving merge_H_H, result = ".dmp($res)."\n";
# ($key, $res, $backup);
#}
#
#1;
## ABSTRACT: Base class for Data::ModeMerge mode handler
#
script/_ppgrep view on Meta::CPAN
#
#sub default_prefix_re { qr/^!/ }
#
## merge_left_only and merge_right_only are a bit different: they are
## called with $l only or $r only instead of both, and should return an
## extra argument $mode, i.e. ($key, $result, $backup, $is_circular,
## $mode)
#sub merge_left_only {
# my ($self, $key, $l) = @_;
# return;
#}
App-prowess
view release on metacpan or search on metacpan
0.05 2017-06-20T00:24:42+0200
- Fix unit tests: "'.' is no longer in @INC at ..."
0.04 2016-10-02T20:11:39+0200
- Ignore dotfiles and backup files in the watch list #3
0.03 2015-11-27T11:04:54+0100
- Fix http://cpantesters.org/cpan/report/3259e778-8ee4-11e5-b888-bf4ee0bfc7aa
0.02 2015-11-19T09:31:20+0100
App-psort
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
\bBuild.COM$
\bBUILD.COM$
\bbuild.com$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
App-psst
view release on metacpan or search on metacpan
[GatherDir]
include_dotfiles = 1 ; for t/*/.psst.yaml
exclude_match = ^\.git(ignore|/.*)$
exclude_match = (^|/)#[^/]+#$ ; emacs autosave
exclude_match = ~$ ; emacs backup
[ExecDir]
[PruneCruft]
[MinimumPerl] ; with Perl::MinimumVersion
App-rainbarf
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
\bBuild.COM$
\bBUILD.COM$
\bbuild.com$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
App-remarkpl
view release on metacpan or search on metacpan
lib/App/remarkpl/public/remark.min.js view on Meta::CPAN
},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-rename
view release on metacpan or search on metacpan
1.11 Tue Mar 23 13:41:00 CET 2021
- Fix examples in documentation
1.10 Fri Mar 19 22:00:12 CET 2021
- Skip files containing 0-bytes
- Fix a backup file issue related to wildcards
1.9 Fri Jul 4 02:51:17 CEST 2014
- use bsd_glob to handle files with space in the name.
1.8 Sun Sep 19 20:19:36 CEST 2010
- Ensure directories exist for backup files.
1.7 Sun Sep 19 19:47:47 CEST 2010
- Fixed a long standing bug related to backup
- Added --prefix, --basename-prefix and -z for --suffix
- Updated documentation
1.6 Mon Aug 18 16:45:06 CEST 2008
- inlined mkpath for better control of error messages.
App-reposdb
view release on metacpan or search on metacpan
script/_reposdb-inline view on Meta::CPAN
# my ($self, $l, $r) = @_;
# $self->path([]);
# $self->errors([]);
# $self->mem({});
# $self->cur_mem_key(undef);
# my ($key, $res, $backup) = $self->_merge(undef, $l, $r);
# {
# success => !@{ $self->errors },
# error => (@{ $self->errors } ?
# join(", ",
# map { sprintf("/%s: %s", join("/", @{ $_->[0] }), $_->[1]) }
# @{ $self->errors }) : ''),
# result => $res,
# backup => $backup,
# };
#}
#
## handle circular refs: process todo's
#sub _process_todo {
script/_reposdb-inline view on Meta::CPAN
# }
# } else {
# $self->mem->{$memkey} = {res=>undef, todo=>[]};
# $self->cur_mem_key($memkey);
# #print "DEBUG: invoking ".$mh->name."'s $meth(".dmp($key).", ".dmp($l).", ".dmp($r).")\n";
# my ($newkey, $res, $backup) = $mh->$meth($key, $l, $r);
# #print "DEBUG: setting res for mem<$memkey>\n";
# $self->mem->{$memkey}{res} = [$newkey, $res, $backup];
# $self->_process_todo;
# return ($newkey, $res, $backup);
# }
# } else {
# $self->_process_todo;
# #print "DEBUG: invoking ".$mh->name."'s $meth(".dmp($key).", ".dmp($l).", ".dmp($r).")\n";
# return $mh->$meth($key, $l, $r);
script/_reposdb-inline view on Meta::CPAN
#specified hash. Return the same hash but with prefixes removed.
#
#=head2 merge($l, $r)
#
#Merge two nested data structures. Returns the result hash: {
#success=>0|1, error=>'...', result=>..., backup=>... }. The 'error'
#key is set to contain an error message if there is an error. The merge
#result is in the 'result' key. The 'backup' key contains replaced
#elements from the original hash/array.
#
#=head1 FAQ
#
#=head2 What is this module good for? Why would I want to use this module instead of the other hash merge modules?
script/_reposdb-inline view on Meta::CPAN
# my $c = $mm->config;
# return $self->merge_SCALAR_SCALAR($key, $l, $r) unless $c->recurse_array;
# return if $c->wanted_path && !$mm->_path_is_included($mm->path, $c->wanted_path);
#
# my @res;
# my @backup;
# my $la = @$l;
# my $lb = @$r;
# push @{ $mm->path }, -1;
# for my $i (0..($la > $lb ? $la : $lb)-1) {
# #print "DEBUG: merge_A_A: #$i: a->[$i]=".Data::Dumper->new([$l->[$i]])->Indent(0)->Terse(1)->Dump.", b->[$i]=".Data::Dumper->new([$r->[$i]])->Indent(0)->Terse(1)->Dump."\n";
# $mm->path->[-1] = $i;
# if ($i < $la && $i < $lb) {
# push @backup, $l->[$i];
# my ($subnewkey, $subres, $subbackup, $is_circular) = $mm->_merge($i, $l->[$i], $r->[$i], $c->default_mode);
# last if @{ $mm->errors };
# if ($is_circular) {
# push @res, undef;
# #print "DEBUG: pushing todo to mem<".$mm->cur_mem_key.">\n";
# push @{ $mm->mem->{ $mm->cur_mem_key }{todo} }, sub {
# my ($subnewkey, $subres, $subbackup) = @_;
# #print "DEBUG: Entering todo subroutine (i=$i)\n";
# $res[$i] = $subres;
# }
# } else {
# push @res, $subres;# if defined($newkey); = we allow DELETE on array?
script/_reposdb-inline view on Meta::CPAN
# } else {
# push @res, $r->[$i];
# }
# }
# pop @{ $mm->path };
# ($key, \@res, \@backup);
#}
#
#sub _prefilter_hash {
# my ($self, $h, $desc, $sub) = @_;
# my $mm = $self->merger;
script/_reposdb-inline view on Meta::CPAN
# my $c = $mm->config;
#
# #print "DEBUG: Entering _merge_gen(".dmp($hl).", ".dmp($hr).", $mode, ...)\n";
#
# my $res = {};
# my $backup = {};
#
# my %k = map {$_=>1} keys(%$hl), keys(%$hr);
# push @{ $mm->path }, "";
# K:
# for my $k (keys %k) {
script/_reposdb-inline view on Meta::CPAN
# if (!$do_merge) {
# $res->{$k} = $hl->{$k} if $hl->{$k};
# next K;
# }
#
# $backup->{$k} = $hl->{$k}[1] if $hl->{$k} && $hr->{$k};
# if ($hl->{$k}) {
# push @o, $hl->{$k};
# }
# if ($hr->{$k}) {
# my %m = map {$_=>$mm->modes->{$_}->precedence_level} keys %{ $hr->{$k} };
script/_reposdb-inline view on Meta::CPAN
# if (@o == 1 &&
# (($hl->{$k} && $mh->can("merge_left_only")) ||
# ($hr->{$k} && $mh->can("merge_right_only")))) {
# # there's only left-side or right-side
# my $meth = $hl->{$k} ? "merge_left_only" : "merge_right_only";
# my ($subnewkey, $v, $subbackup, $is_circular, $newmode) = $mh->$meth($k, $o[$i][1]); # XXX handle circular?
# next K unless defined($subnewkey);
# $final_mode = $newmode;
# $v = $res;
# } else {
# $final_mode = $o[$i][0];
script/_reposdb-inline view on Meta::CPAN
# or do {
# $mm->push_error("Can't merge $final_mode + $o[$i][0]");
# return;
# };
# #print "DEBUG: merge $final_mode+$o[$i][0] = $m->[0], $m->[1]\n";
# my ($subnewkey, $subbackup);
# ($subnewkey, $v, $subbackup, $is_circular) = $mm->_merge($k, $v, $o[$i][1], $m->[0]);
# return if @{ $mm->errors };
# if ($is_circular) {
# if ($i < $#o) {
# $mm->push_error("Can't handle circular at $i of $#o merges (mode $m->[0]): not the last merge");
# return;
# }
# #print "DEBUG: pushing todo to mem<".$mm->cur_mem_key.">\n";
# push @{ $mm->mem->{ $mm->cur_mem_key }{todo} }, sub {
# my ($subnewkey, $subres, $subbackup) = @_;
# #print "DEBUG: Entering todo subroutine (k=$k)\n";
# my $final_mode = $m->[1];
# #XXX return unless defined($subnewkey);
# $res->{$k} = [$m->[1], $subres];
# if ($c->readd_prefix) {
script/_reposdb-inline view on Meta::CPAN
# }
# $res->{$k} = [$final_mode, $v] unless $is_circular;
# }
# pop @{ $mm->path };
# #print "DEBUG: Leaving _merge_gen, res = ".dmp($res)."\n";
# ($res, $backup);
#}
#
## hh is {key=>[MODE, val], ...} which is the format returned by _merge_gen
#sub _readd_prefix {
# my ($self, $hh, $k, $defmode) = @_;
script/_reposdb-inline view on Meta::CPAN
#
# my $okr = $self->_gen_right($r, $mode, sub {$_[0] eq $ok});
# return if @{ $mm->errors };
#
# push @{ $mm->path }, $ok;
# my ($res, $backup);
# {
# local $c->{readd_prefix} = 0;
# ($res, $backup) = $self->_merge_gen($okl, $okr, $mode);
# }
# pop @{ $mm->path };
# return if @{ $mm->errors };
#
# #print "DEBUG: merge options key (".dmp($okl).", ".dmp($okr).") = ".dmp($res)."\n";
script/_reposdb-inline view on Meta::CPAN
# return;
# }
# }
#
# # STEP 4. MERGE LEFT & RIGHT
# my ($res, $backup) = $self->_merge_gen($hl, $hr, $mode, $em, $im, $emr, $imr);
# return if @{ $mm->errors };
#
# #print "DEBUG: intermediate res(5) = ".Data::Dumper->new([$res])->Indent(0)->Terse(1)->Dump."\n";
#
# # STEP 5. TURN BACK {key=>[MODE=>val]}, ...} INTO {(prefix)key => val, ...}
script/_reposdb-inline view on Meta::CPAN
# if ($config_replaced) {
# $mm->config($orig_c);
# #print "DEBUG: Restored config, config=", dmp($mm->config), "\n";
# }
#
# #print "DEBUG: backup = ".Data::Dumper->new([$backup])->Indent(0)->Terse(1)->Dump."\n";
# #print "DEBUG: leaving merge_H_H, result = ".dmp($res)."\n";
# ($key, $res, $backup);
#}
#
#1;
## ABSTRACT: Base class for Data::ModeMerge mode handler
#
script/_reposdb-inline view on Meta::CPAN
#
#sub default_prefix_re { qr/^!/ }
#
## merge_left_only and merge_right_only are a bit different: they are
## called with $l only or $r only instead of both, and should return an
## extra argument $mode, i.e. ($key, $result, $backup, $is_circular,
## $mode)
#sub merge_left_only {
# my ($self, $key, $l) = @_;
# return;
#}
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-rhich
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bbuild.com$
# and Module::Build::Tiny generated files
\b_build_params$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
App-rs
view release on metacpan or search on metacpan
Well, apparently C<openssh> needs C<zlib> as well, that's the only thing I
forgot, after C<patch zlib> I successfully entered this sanctuary with the
root directory bind mounted somewhere under it and launched C<sshd> on a
different port, confirmed that I could login through it. Then I did the
actual swap, moved everything under root to a backup directory, well,
except the usually mounted C</proc /sys /dev>, since it's meaningless to
C<umount> them and then C<mount> later, after that I moved all the directories
of the already prepared RSLinux into root, then I entered this fresh root,
played around a little bit, launched C<sshd> and ended the session with
the C<sshd> of the sanctuary.
Finally, I did a login through the C<sshd> of RSLinux I just launched, cleaned
up all the applications of the old system and sanctuary that're still running,
and mountpoints related to them. After that I did a C<rm -rf> on the backup
directory and the sanctuary to celebrate, the installation is done!
So yeah, the previously mentioned eight packages are guaranteed to do a
successful live replacing installation, and I'm sure you can reduce the
number even more if you want. It surely is an exicting, adventurous, and
App-scriptdist
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
\bBuild.COM$
\bBUILD.COM$
\bbuild.com$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
App-shcompgen
view release on metacpan or search on metacpan
lib/App/shcompgen.pm view on Meta::CPAN
my @res;
for my $dir (split /:/, $ENV{PATH}) {
opendir my($dh), $dir or next;
for my $f (readdir $dh) {
next if $f eq '.' || $f eq '..';
next if $f =~ /~\z/; # skip backup files
next unless ((-f "$dir/$f") && (-x _));
push @res, "$dir/$f";
}
}
\@res;
App-sibs
view release on metacpan or search on metacpan
lib/App/sibs.pm view on Meta::CPAN
package App::sibs;
=head1 NAME
App::sibs - Simple incremental backup system
=head1 VERSION
0.17
=head1 DESCRIPTION
C<sibs> create backup from your computer to a destination server, using
C<rsync>.
=over 4
=item * Setup
lib/App/sibs.pm view on Meta::CPAN
In addition, this step will create or update a config file. The default
config file is L<$HOME/.sibs.conf>, but you can also specify your own path.
=item * Backup
The second step will create the actual backup. This step can be automated
in a cronjob, because the key created in the first step will not require
any password to log into the remote backup server. Example crontab:
0 */4 * * * /usr/local/bin/sibs backup 2>/dev/null 1>/dev/null
This will create a backup every four hours. The backup will be "full" each
time and kept for a month. Even so, it probably won't take up too much space,
since all the files are hard linked, meaning an unchanged file will take up
the same disk space for each backup.
=back
=head1 SYNOPSIS
$ sibs <action> <options> <config file>
$ sibs setup
$ sibs backup
=over 4
=item * action: setup
Used to L<set up|/Setup> the inital config file.
=item * action: backup
Used to take L<backup|/Backup>.
=item * action: man
Used to see this help text.
lib/App/sibs.pm view on Meta::CPAN
{
format => '%d-%H', # default
exclude => [qw( .cache .gvfs Downloads Dropbox Trash )],
source => [qw( /home/username )],
destination => "rsync://login-username@my.server.com/var/backup/username",
}
Defaults:
=over 4
lib/App/sibs.pm view on Meta::CPAN
Which files/directories to exclude.
=item * source: C<$HOME>
Which directory to backup.
=back
Default C<exclude> may change in future release.
App-soapcli
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\btmon.out$
# Avoid Devel::NYTProf generated files
\bnytprof
# Avoid temp and backup files.
~$
\.tmp$
\.old$
\.bak$
\#$
App-sync_cpantesters
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
CPAN.SKIP
t/000_standard__*
Debian_CPANTS.txt
nytprof.out
# Temp, old, emacs, vim, backup files.
~$
\.old$
\.swp$
\.tar$
\.tar\.gz$
App-tabify
view release on metacpan or search on metacpan
lib/App/tabify.pm view on Meta::CPAN
use POSIX qw(ceil);
my %Opts = (
tab_width => 8,
in_place => 0,
#backup_ext => undef,
);
sub parse_cmdline {
my $res = GetOptionsWithCompletion(
sub {},
'tab-width|w=i' => \$Opts{tab_width},
#'in-place|i' => sub { # XXX in-place|i:s doesn't work?
# $Opts{in_place} = 1;
# #$Opts{backup_ext} = $_[1] if defined $_[1];
#},
'version|v' => sub {
no warnings 'once';
say "tabify version $main::VERSION";
exit 0;
lib/App/tabify.pm view on Meta::CPAN
my $tw = $Opts{tab_width};
LINE:
while (<>) {
#if ($ARGV ne $oldargv) {
# if (defined($Opts{backup_ext}) && $Opts{backup_ext} ne '') {
# rename $ARGV, "$ARGV$Opts{backup_ext}";
# open $argvout, ">", $ARGV;
# select $argvout;
# $oldargv = $ARGV;
# }
#}
App-tkiv
view release on metacpan or search on metacpan
lib/App/tkiv.pm view on Meta::CPAN
L<Image::Info> and ImageMagick.
=head1 WARRANTY
The fact that I use it on my own picture sets is by no means a guarantee
that the software is without bugs. Use with care, and make backups of all
pictures you care about before experimenting.
=head1 AUTHOR
H.Merijn Brand F<E<lt>h.m.brand@xs4all.nlE<gt>> wrote this for his own
App-tmclean
view release on metacpan or search on metacpan
lib/App/tmclean.pm view on Meta::CPAN
my $self = shift;
if (!$self->dry_run && $ENV{USER} ne 'root') {
die "tmutil requires root privileges\n";
}
$self->cmd(qw/tmutil stopbackup/);
$self->cmd(qw/tmutil disable/); # need sudo
my @targets = $self->backups2delete;
unless (@targets) {
logf 'no deletion targets found';
return 0;
}
my $mount_point = $self->mount_point;
logf "following backups to be deleted:\n %s", join("\n ", @targets);
for my $bak (@targets) {
$self->cmd(qw/tmutil delete/, $bak); # need sudo
}
my $dev_name = dev_name($targets[0]);
$self->cmd(qw/hdiutil detach/, $dev_name);
my $backupbundle_path = sprintf '%s/%s.sparsebundle', $mount_point, $self->machine_name;
if (! -d $backupbundle_path) {
# backupbundle path is changed after Catalina
$backupbundle_path =~ s/\.sparsebundle$/.backupbundle/;
}
$self->cmd(qw/hdiutil compact/, $backupbundle_path); # need sudo
$self->cmd(qw/tmutil enable/); # need sudo
}
sub backups2delete {
my $self = shift;
my @backups = `tmutil listbackups`;
if ($? != 0) {
die "failed to execute `tmutil listbackups`: $?\n";
}
# e.g. /Volumes/Time Machine Backup/Backups.backupdb/$machine/2018-01-07-033608
return grep {
chomp;
my @paths = split m!/!, $_;
my $backup_date = eval { Time::Piece->strptime($paths[-1], '%Y-%m-%d-%H%M%S') };
$backup_date && $self->before_tp > $backup_date;
} @backups;
}
sub mount_point {
my $self = shift;
App-tpnotify
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
\bBuild.COM$
\bBUILD.COM$
\bbuild.com$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
App-unichar
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bbuild.com$
# and Module::Build::Tiny generated files
\b_build_params$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
App-upf
view release on metacpan or search on metacpan
% upf add-delete-user-groups [--add-to-json=s] [--add-to=s+]
[--config-path=path | -c] [--config-profile=profile | -P]
[--delete-from-json=s] [--delete-from=s+] [--etc-dir=s]
[--format=name] [--json] [--(no)naked-res] [--no-config | -C]
[--no-env] [--page-result[=program]] <user>
% upf add-group [--backup] [--config-path=path | -c]
[--config-profile=profile | -P] [--etc-dir=s] [--format=name]
[--gid=s] [--json] [--max-gid=s] [--members-json=s] [--members=s]
[--min-gid=s] [--(no)naked-res] [--no-backup] [--no-config | -C]
[--no-env] [--nobackup] [--page-result[=program]] <group>
% upf add-user [--backup] [--config-path=path | -c]
[--config-profile=profile | -P] [--encpass=s] [--etc-dir=s]
[--expire-date=s] [--format=name] [--gecos=s] [--gid=s] [--group=s]
[--home=s] [--json] [--last-pwchange=s] [--max-gid=s]
[--max-pass-age=s] [--max-uid=s] [--min-gid=s] [--min-pass-age=s]
[--min-uid=s] [--(no)naked-res] [--no-backup] [--no-config | -C]
[--no-env] [--nobackup] [--page-result[=program]]
[--pass-inactive-period=s] [--pass-warn-period=s] [--pass=s]
[--shell=s] [--uid=s] <user>
% upf add-user-to-group [--config-path=path | -c]
[--config-profile=profile | -P] [--etc-dir=s] [--format=name] [--json]
[--(no)naked-res] [--no-config | -C] [--no-env]
[--page-result[=program]] <user> <group>
% upf delete-group [--backup] [--config-path=path | -c]
[--config-profile=profile | -P] [--etc-dir=s] [--format=name] [--json]
[--(no)naked-res] [--no-backup] [--no-config | -C] [--no-env]
[--nobackup] [--page-result[=program]] <group>
% upf delete-user [--backup] [--config-path=path | -c]
[--config-profile=profile | -P] [--etc-dir=s] [--format=name] [--json]
[--(no)naked-res] [--no-backup] [--no-config | -C] [--no-env]
[--nobackup] [--page-result[=program]] <user>
% upf delete-user-from-group [--config-path=path | -c]
[--config-profile=profile | -P] [--etc-dir=s] [--format=name] [--json]
[--(no)naked-res] [--no-config | -C] [--no-env]
[--page-result[=program]] <user> <group>
% upf get-group [--config-path=path | -c] [--config-profile=profile | -P]
% upf list-users-and-groups [--config-path=path | -c]
[--config-profile=profile | -P] [--detail] [--etc-dir=s]
[--format=name] [--json] [--(no)naked-res] [--no-config | -C]
[--no-detail] [--no-env] [--nodetail] [--page-result[=program]]
[--with-field-names] [--without-field-names]
% upf modify-group [--admins=s] [--backup] [--config-path=path | -c]
[--config-profile=profile | -P] [--encpass=s] [--etc-dir=s]
[--format=name] [--gid=s] [--json] [--members=s] [--(no)naked-res]
[--no-backup] [--no-config | -C] [--no-env] [--nobackup]
[--page-result[=program]] [--pass=s] <group>
% upf modify-user [--backup] [--config-path=path | -c]
[--config-profile=profile | -P] [--encpass=s] [--etc-dir=s]
[--expire-date=s] [--format=name] [--gecos=s] [--gid=s] [--home=s]
[--json] [--last-pwchange=s] [--max-pass-age=s] [--min-pass-age=s]
[--(no)naked-res] [--no-backup] [--no-config | -C] [--no-env]
[--nobackup] [--page-result[=program]] [--pass-inactive-period=s]
[--pass-warn-period=s] [--shell=s] [--uid=s] <user>
% upf set-user-groups [--config-path=path | -c] [--config-profile=profile
| -P] [--etc-dir=s] [--format=name] [--json] [--(no)naked-res]
[--no-config | -C] [--no-env] [--page-result[=program]] <user>
<groups> ...
% upf set-user-password [--backup] [--config-path=path | -c]
[--config-profile=profile | -P] [--etc-dir=s] [--format=name] [--json]
[--(no)naked-res] [--no-backup] [--no-config | -C] [--no-env]
[--nobackup] [--page-result[=program]] <user> <pass>
% upf user-exists [--config-path=path | -c] [--config-profile=profile |
-P] [--etc-dir=s] [--format=name] [--json] [--(no)naked-res]
[--no-config | -C] [--no-env] [--page-result[=program]] [--uid=s]
[--user=s]
=head2 Options for subcommand add-group
=over
=item B<--backup>
Whether to backup when modifying files.
Backup is written with `.bak` extension in the same directory. Unmodified file
will not be backed up. Previous backup will be overwritten.
=item B<--gid>=I<s>
Pick a specific new GID.
=head2 Options for subcommand add-user
=over
=item B<--backup>
Whether to backup when modifying files.
Backup is written with `.bak` extension in the same directory. Unmodified file
will not be backed up. Previous backup will be overwritten.
=item B<--encpass>=I<s>
Encrypted password.
=head2 Options for subcommand delete-group
=over
=item B<--backup>
Whether to backup when modifying files.
Backup is written with `.bak` extension in the same directory. Unmodified file
will not be backed up. Previous backup will be overwritten.
=item B<--group>=I<s>*
=back
=head2 Options for subcommand delete-user
=over
=item B<--backup>
Whether to backup when modifying files.
Backup is written with `.bak` extension in the same directory. Unmodified file
will not be backed up. Previous backup will be overwritten.
=item B<--user>=I<s>*
=back
=item B<--admins>=I<s>
It must be a comma-separated list of user names, or empty.
=item B<--backup>
Whether to backup when modifying files.
Backup is written with `.bak` extension in the same directory. Unmodified file
will not be backed up. Previous backup will be overwritten.
=item B<--encpass>=I<s>
Encrypted password.
=head2 Options for subcommand modify-user
=over
=item B<--backup>
Whether to backup when modifying files.
Backup is written with `.bak` extension in the same directory. Unmodified file
will not be backed up. Previous backup will be overwritten.
=item B<--encpass>=I<s>
Encrypted password.
=head2 Options for subcommand set-user-password
=over
=item B<--backup>
Whether to backup when modifying files.
Backup is written with `.bak` extension in the same directory. Unmodified file
will not be backed up. Previous backup will be overwritten.
=item B<--pass>=I<s>*
=item B<--user>=I<s>*
delete_from (see --delete-from)
user (see --user)
=head2 Configuration for subcommand add-group
backup (see --backup)
gid (see --gid)
group (see --group)
max_gid (see --max-gid)
members (see --members)
min_gid (see --min-gid)
=head2 Configuration for subcommand add-user
backup (see --backup)
encpass (see --encpass)
expire_date (see --expire-date)
gecos (see --gecos)
gid (see --gid)
group (see --group)
group (see --group)
user (see --user)
=head2 Configuration for subcommand delete-group
backup (see --backup)
group (see --group)
=head2 Configuration for subcommand delete-user
backup (see --backup)
user (see --user)
=head2 Configuration for subcommand delete-user-from-group
group (see --group)
with_field_names (see --without-field-names)
=head2 Configuration for subcommand modify-group
admins (see --admins)
backup (see --backup)
encpass (see --encpass)
gid (see --gid)
group (see --group)
members (see --members)
pass (see --pass)
=head2 Configuration for subcommand modify-user
backup (see --backup)
encpass (see --encpass)
expire_date (see --expire-date)
gecos (see --gecos)
gid (see --gid)
home (see --home)
groups (see --groups)
user (see --user)
=head2 Configuration for subcommand set-user-password
backup (see --backup)
pass (see --pass)
user (see --user)
=head2 Configuration for subcommand user-exists
App-url
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bbuild.com$
# and Module::Build::Tiny generated files
\b_build_params$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
App-vcardtidy
view release on metacpan or search on metacpan
.perltidyrc view on Meta::CPAN
--add-newlines
--add-semicolons
--add-whitespace
--backup-and-modify-in-place
--backup-file-extension="bak"
--blanks-before-blocks
--blanks-before-comments
--blanks-before-subs
--block-brace-tightness=0
--block-brace-vertical-tightness=0
( run in 1.199 second using v1.01-cache-2.11-cpan-4ef0a570458 )