view release on metacpan or search on metacpan
t/00-report-prereqs.t
t/basic.t
t/noargs.t
weaver.ini
xt/author/critic.t
xt/author/eol.t
xt/author/pod-coverage.t
xt/author/pod-syntax.t
xt/release/cpan-changes.t
xt/release/distmeta.t
xt/release/kwalitee.t
view release on metacpan or search on metacpan
backspace: -
search: S
return/enter: R
meta/esc/alt: M
shift: T
cut to eol: K
caps lock: C
yank: Y
start and end: < >
macro start/end/play: { } !
times for next cmd: M<number> (i.e. M24a inserts 24 a's)
require bytes;
croak "base64 failed: only defined for bytes"
if bytes::length($_[0]) > length($_[0])
or $] >= 5.008 && $_[0] =~ /[^\0-\xFF]/
}
my $eol=defined$_[1]?$_[1]:"\n";
my $res=pack("u",$_[0]);
$res=~s/^.//mg;
$res=~s/\n//g;
$res=~tr|` -_|AA-Za-z0-9+/|;
my $pad=(3-length($_[0])%3)%3;
$res=~s/.{$pad}$/'=' x $pad/e if $pad;
$res=~s/(.{1,76})/$1$eol/g if length($eol); #todo !=76
$res;
}
our $Fix_unbase64=0;
sub unbase64 ($) {
if($o{p} and $c eq $checks[-1]){ #view progress for last check, todo: eta() is wacky here! everywhere?
my $sum=@f?sum(map -s$_,@f):0;
my($corg,$cnt,$cntmb,$mb)=($c,0,0,$sum/1e6);
$c=sub{
$cntmb+=(-s$_[0])/1e6;
my $eol=++$cnt==@f?"\n":"\r";
print STDERR sprintf("%d/%d files checked (%d%%), %d/%d MB (%d%%), ETA in %d sec $eol",
$cnt, 0+@f, 100*$cnt/@f, $cntmb, $mb, 100*$cntmb/$mb,
curb(nvl(eta($cnt,0+@f),time)-time(),0,1e7));
&$corg(@_)
};
}
view release on metacpan or search on metacpan
t/00-load.t
t/00-report-prereqs.dd
t/00-report-prereqs.t
t/01-ToFromUnicode.t
t/author-critic.t
t/author-eol.t
t/author-no-tabs.t
t/author-pod-syntax.t
t/author-test-version.t
t/data/perlcriticrc
t/release-changes_has_content.t
view release on metacpan or search on metacpan
t/01-basic.t
t/02-module-metadata.t
weaver.ini
xt/author/00-compile.t
xt/author/clean-namespaces.t
xt/author/eol.t
xt/author/no-tabs.t
xt/author/pod-spell.t
xt/release/changes_has_content.t
xt/release/distmeta.t
xt/release/kwalitee.t
view release on metacpan or search on metacpan
cpanfile
dist.ini
lib/Acme/Waterkip.pm
t/00-compile.t
t/01-basic.t
xt/author/eol.t
xt/author/minimum-version.t
xt/author/mojibake.t
xt/author/no-tabs.t
xt/author/pod-coverage.t
xt/author/pod-linkcheck.t
view release on metacpan or search on metacpan
t/00-check-deps.t
t/00-compile.t
t/00-load.t
t/000-report-versions-tiny.t
weaver.ini
xt/author/test-eol.t
xt/release/check-manifest.t
xt/release/dist-manifest.t
xt/release/meta-json.t
xt/release/minimum-version.t
xt/release/no-tabs.t
view release on metacpan or search on metacpan
lib/Acme/eng2kor.pm view on Meta::CPAN
gu: Gujarati
ha: Hausa
haw: Hawaiian
hi: Hindi
hr: Croatian
ht: Haitian Creole
hu: Hungarian
hy: Armenian
ia: Interlingua
id: Indonesian
ig: Igbo
lib/Acme/eng2kor.pm view on Meta::CPAN
ln: Lingala
lo: Laothian
lt: Lithuanian
lua: Tshiluba
lv: Latvian
mfe: Mauritian Creole
mg: Malagasy
mi: Maori
mk: Macedonian
ml: Malayalam
mn: Mongolian
view release on metacpan or search on metacpan
lib/AddressBook/DB/LDAP.pm view on Meta::CPAN
my $old_entry=$self->read;
my $rdn = $self->_rdn_from_entry($entry);
my $old_rdn = $self->_rdn_from_entry($old_entry);
my $result;
if ($rdn ne $old_rdn) {
$result=$self->{ldap}->moddn("$old_rdn," . $self->{base},deleteoldrdn=>1,newrdn=>$rdn);
if ($result->code) {
$self->{code} = ldap_error_text($result->code) ;
return 0;
}
}
view release on metacpan or search on metacpan
t/00-compile.t
t/00-load.t
t/01-coeffs.t
t/02-predict.t
t/author-critic.t
t/author-eol.t
t/author-no-tabs.t
t/release-cpan-changes.t
t/release-dist-manifest.t
t/release-distmeta.t
t/release-kwalitee.t
view release on metacpan or search on metacpan
lib/Algorithm/Diff/HTMLTable.pm view on Meta::CPAN
open my $fh, '<', $file;
if ( $self->{encoding} ) {
binmode $fh, ':encoding(' . $self->{encoding} . ')';
}
local $/ = $self->{eol} // "\n";
@lines = <$fh>;
close $fh;
return @lines;
lib/Algorithm/Diff/HTMLTable.pm view on Meta::CPAN
=item * id
=item * encoding
=item * eol
=back
=head2 diff
view release on metacpan or search on metacpan
lib/Algorithm/IRCSRP2.pm
lib/Algorithm/IRCSRP2/Alice.pm
lib/Algorithm/IRCSRP2/Exchange.pm
lib/Algorithm/IRCSRP2/Utils.pm
t/ircsrp.t
t/release-eol.t
t/release-no-tabs.t
t/release-pod-spell.t
t/release-pod-syntax.t
t/release-synopsis.t
t/release-unused-vars.t
view release on metacpan or search on metacpan
Makefile.PL
cpanfile
dist.ini
lib/Algorithm/Kelly.pm
t/Kelly.t
xt/author/eol.t
xt/release/pod-coverage.t
xt/release/pod-syntax.t
view release on metacpan or search on metacpan
t/author-critic.t
t/nhash.t
t/release-consistent-version.t
t/release-cpan-changes.t
t/release-distmeta.t
t/release-eol.t
t/release-has-version.t
t/release-kwalitee.t
t/release-minimum-version.t
t/release-no-tabs.t
t/release-pod-coverage.t
view release on metacpan or search on metacpan
t/00-compile.t
t/00-load.t
t/01-simple.t
t/02-bad-input.t
t/author-critic.t
t/author-test-eol.t
t/release-cpan-changes.t
t/release-dist-manifest.t
t/release-distmeta.t
t/release-kwalitee.t
t/release-minimum-version.t
view release on metacpan or search on metacpan
examples/calculate_similarity_matrix_for_all_docs.pl view on Meta::CPAN
}
unshift @docs, " ";
unshift @similarity_matrix, \@docs;
my $csv = Text::CSV->new ( { binary => 1 } ) # should set binary attribute.
or die "Cannot use CSV: ".Text::CSV->error_diag ();
$csv->eol ("\r\n");
open my $fh, ">:encoding(utf8)", "SimilarityMatrix.csv"
or die "SimilarityMatrix.csv: $!";
#$csv->print ($fh, $_) for @rows;
$csv->print ($fh, $_) for @similarity_matrix;
close $fh or die "SimilarityMatrix.csv: $!";
view release on metacpan or search on metacpan
lib/Alien/Alien.pm
maint/travis-install-alienbuild
t/00_diag.t
t/01_use.t
t/alien_alien.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/strict.t
xt/release/changes.t
xt/release/fixme.t
view release on metacpan or search on metacpan
t/author-eol.t view on Meta::CPAN
't/00-compile/lib_Alien_BCM2835_pm.t',
't/00-report-prereqs.dd',
't/00-report-prereqs.t',
't/00.t',
't/000-report-versions.t',
't/author-eol.t',
't/author-minimum-version.t',
't/author-no-tabs.t',
't/author-pod-syntax.t',
't/release-changes_has_content.t',
't/release-distmeta.t',
t/author-eol.t view on Meta::CPAN
't/release-kwalitee.t',
't/release-meta-json.t',
't/release-pause-permissions.t'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
view release on metacpan or search on metacpan
maint/update-libpalindrome
t/00_diag.t
t/01_use.t
t/alien_base_dino.t
t/alien_build_plugin_gather_dino.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_spelling_common.t
xt/author/pod_spelling_system.t
view release on metacpan or search on metacpan
t/alien_base_modulebuild_repository_http.t
t/alien_base_modulebuild_repository_local.t
t/alien_base_modulebuild_utils.t
t/lib/Test2/Plugin/AlienEnv.pm
xt/author/critic.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_link.t
xt/author/pod_spelling_common.t
view release on metacpan or search on metacpan
dist.ini
lib/Alien/Base/Wrapper.pm
t/00_diag.t
t/01_use.t
t/alien_base_wrapper.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_spelling_common.t
xt/author/pod_spelling_system.t
view release on metacpan or search on metacpan
t/00-report-prereqs.dd
t/00-report-prereqs.t
t/01-brotli.t
t/author-clean-namespaces.t
t/author-eof.t
t/author-eol.t
t/author-minimum-version.t
t/author-no-tabs.t
t/author-pod-coverage.t
t/author-pod-syntax.t
t/author-portability.t
view release on metacpan or search on metacpan
t/alien_build_plugin_download_git.t
t/alien_build_plugin_fetch_git.t
t/alien_git.t
t/lib/Repo.pm
xt/author/critic.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_spelling_common.t
xt/author/pod_spelling_system.t
view release on metacpan or search on metacpan
maint/cip-before-install-inside
perlcriticrc
t/00_diag.t
t/alien_build_mb.t
xt/author/critic.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_spelling_common.t
xt/author/pod_spelling_system.t
view release on metacpan or search on metacpan
dist.ini
lib/Alien/Build/Plugin/Build/Make.pm
t/00_diag.t
t/01_use.t
t/alien_build_plugin_build_make.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_spelling_common.t
xt/author/pod_spelling_system.t
view release on metacpan or search on metacpan
MANIFEST.SKIP
README.md
t/00_diag.t
t/01_use.t
t/alien_build_plugin_cleanse_builddir.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_spelling_common.t
xt/author/pod_spelling_system.t
view release on metacpan or search on metacpan
lib/Alien/Build/Plugin/Decode/Mojo.pm
maint/cip-before-install
t/00_diag.t
t/01_use.t
t/alien_build_plugin_decode_mojo.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_spelling_common.t
xt/author/pod_spelling_system.t
view release on metacpan or search on metacpan
dist.ini
lib/Alien/Build/Plugin/Decode/SourceForge.pm
t/00_diag.t
t/01_use.t
t/alien_build_plugin_decode_sourceforge.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_spelling_common.t
xt/author/pod_spelling_system.t
view release on metacpan or search on metacpan
perlcriticrc
t/00_diag.t
t/01_use.t
t/alien_build_plugin_download_github.t
xt/author/critic.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_link.t
xt/author/pod_spelling_common.t
view release on metacpan or search on metacpan
t/test_alien_diag.t
t/test_alien_run.t
t/test_alien_synthetic.t
weaver.ini
xt/author/critic.t
xt/author/eol.t
xt/author/filename.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_link.t
view release on metacpan or search on metacpan
lib/Alien.pm
perlcriticrc
t/00_diag.t
t/alien.t
xt/author/critic.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_spelling_common.t
xt/author/pod_spelling_system.t