edit results from the CPAN

lib/Acme/TextLayout.pm view on Meta::CPAN

making the pattern must be adjacent, and must be rectangular. And
the overall pattern must be rectangular.

Note that this textual arrangement can be as big as you want.
It's all relative. Although it might not look like it on
the screen in your editor of choice, all spacing is assummed to
be the same in X and Y. Thus, the aspect ratio of the above
pattern is 16/7 (width/height).

To be useful for a GUI, one must be able to map this goofy space
into screen coordinates. That's what the B<map_range> function is

view all matches for this distribution

Acme-Thing

2 results

lib/Acme/Thing.pm view on Meta::CPAN


 Acme::Thing::TVSeries::BreakingBad_2008_2013
 Acme::Thing::TvSeries::CornerGas_2004_2009

and for a book title the C<$NAME> could be the title (without the subtitle) of
the book, preferrably with the publication year. Subsequent editions of a book
should be named using the C<nE> notation. Examples:

 Acme::Thing::Book::ProgrammingPerl_1991
 Acme::Thing::Book::ProgrammingPerl_4E_2012

view all matches for this distribution

Acme-Tie-Formatted

1 match

0.03  Thu Mar 12 22:05:57 PDT 2009
	- Changed name to Acme::Tie::Formatted because, let's face it,
	  this is kind of a silly module.

0.02  Tue Feb  7 12:22:19 PST 2006
	- Credit where credit is due added to the documentation.
	- Fixed MANIFEST to include all the tests.

0.01  Tue Feb  7 10:51:42 2006
	- Initial release.

view all matches for this distribution

Acme-Tools

1 match

  return $txt;
}

=head2 ccn_ok

Checks if a Credit Card number (CCN) has correct control digits according to the LUHN-algorithm from 1960.
This method of control digits is used by MasterCard, Visa, American Express,
Discover, Diners Club / Carte Blanche, JCB and others.

B<Input:>

A credit card number. Can contain non-digits, but they are removed internally before checking.

B<Output:>

Something true or false.


Returns C<undef> (false) if the input argument is missing digits.

Returns 0 (zero, which is false) is the digits is not correct according to the LUHN algorithm.

Returns 1 or the name of a credit card company (true either way) if the last digit is an ok control digit for this ccn.

The name of the credit card company is returned like this (without the C<'> character)

 Returns (wo '')                Starts on                Number of digits
 ------------------------------ ------------------------ ----------------
 'MasterCard'                   51-55                    16
 'Visa'                         4                        13 eller 16


If the control digits is valid, but the input does not match anything in the column C<starts on>, 1 is returned.

(This is also the same control digit mechanism used in Norwegian KID numbers on payment bills)

The first digit in a credit card number is supposed to tell what "industry" the card is meant for:

 MII Digit Value             Issuer Category
 --------------------------- ----------------------------------------------------
 0                           ISO/TC 68 and other industry assignments
 1                           Airlines


...although this has no meaning to C<Acme::Tools::ccn_ok()>.

The first six digits is I<Issuer Identifier>, that is the bank
(probably). The rest in the "account number", except the last digits,
which is the control digit. Max length on credit card numbers are 19
digits.

=cut

sub ccn_ok {
    my $ccn=shift(); #credit card number
    $ccn=~s/\D+//g;
    if(KID_ok($ccn)){
	return "MasterCard"                   if $ccn=~/^5[1-5]\d{14}$/;
	return "Visa"                         if $ccn=~/^4\d{12}(?:\d{3})?$/;
	return "American Express"             if $ccn=~/^3[47]\d{13}$/;

Checks if a norwegian KID number has an ok control digit.

To check if a customer has typed the number correctly.

This uses the  LUHN algorithm (also known as mod-10) from 1960 which is also used
internationally in control digits for credit card numbers, and Canadian social security ID numbers as well.

The algorithm, as described in Phrack (47-8) (a long time hacker online publication):

 "For a card with an even number of digits, double every odd numbered
 digit and subtract 9 if the product is greater than 9. Add up all the




=head2 ed

String editor commands

 literals:               a-z 0-9 space
 move cursor:            FBAEPN MF MB ME
 delete:                 D Md
 up/low/camelcase word   U L C

view all matches for this distribution

Acme-UPnP

1 match

CODE_OF_CONDUCT.md view on Meta::CPAN

Community leaders are responsible for clarifying and enforcing our standards of
acceptable behavior and will take appropriate and fair corrective action in
response to any behavior that they deem inappropriate, threatening, offensive,
or harmful.

Community leaders have the right and responsibility to remove, edit, or reject
comments, commits, code, wiki edits, issues, and other contributions that are
not aligned to this Code of Conduct, and will communicate reasons for moderation
decisions when appropriate.

## Scope

view all matches for this distribution

Acme-Unicodify

2 results

CODE_OF_CONDUCT.md view on Meta::CPAN

Community leaders are responsible for clarifying and enforcing our standards of
acceptable behavior and will take appropriate and fair corrective action in
response to any behavior that they deem inappropriate, threatening, offensive,
or harmful.

Community leaders have the right and responsibility to remove, edit, or reject
comments, commits, code, wiki edits, issues, and other contributions that are
not aligned to this Code of Conduct, and will communicate reasons for moderation
decisions when appropriate.

## Scope

view all matches for this distribution

Acme-WTF

2 results

Makefile view on Meta::CPAN

# This Makefile is for the Acme::WTF extension to perl.
#
# It was generated automatically by MakeMaker version
# 6.62 (Revision: 66200) from the contents of
# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
#
#       ANY CHANGES MADE HERE WILL BE LOST!
#
#   MakeMaker ARGV: ()
#

view all matches for this distribution

Acme-Web-PodDisplay

6 results

lib/Acme/Web/PodDisplay.pm view on Meta::CPAN

Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat
cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.

At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos
dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia deserunt mollitia
animi, id est laborum et dolorum fuga. Et harum quidem rerum facilis est et expedita distinctio. Nam libero tempore, cum soluta
nobis est eligendi optio cumque nihil impedit quo minus id quod maxime placeat facere possimus, omnis voluptas assumenda est,
omnis dolor repellendus. Temporibus autem quibusdam et aut officiis debitis aut rerum necessitatibus saepe eveniet ut et voluptates
repudiandae sint et molestiae non recusandae. Itaque earum rerum hic tenetur a sapiente delectus, ut aut reiciendis voluptatibus
maiores alias consequatur aut perferendis doloribus asperiores repellat.

=back

view all matches for this distribution

Acme-Win32-PEPM

2 results

lib/Win32/PEPM.pm view on Meta::CPAN

"packager", the .pm text is stored uncompressed in the .dll, and there is no
sane reason to keep .pm text memory mapped into a process since after
parsing/compiling .pm, the .pm text is never referenced again, yet with this
"packager", if the XS DLL is loaded, so is the .pm text, into the process.

The resulting .pm that is built can not be edited even though it mostly looks
like plain text. If it is edited, the DLL will be corrupt. The resulting .pm,
although superficially looking like pure perl can not be moved between perl
installations/versions except for maint versions, since the XS DLL inside the
.pm, like all XS DLLs/SOs is bound to a particular perl installation and version
number.

view all matches for this distribution

Acme-YAPC-Okinawa-Bus

1 match

lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN


    lib/Acme/YAPC/Okinawa/ppport.h -- Perl/Pollution/Portability Version 3.32

    Automatically created by Devel::PPPort running under perl 5.024000.

    Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
    includes in parts/inc/ instead.

    Use 'perldoc lib/Acme/YAPC/Okinawa/ppport.h' to view the documentation below.

----------------------------------------------------------------------

lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN

sub strip
{
  my $self = do { local(@ARGV,$/)=($0); <> };
  my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
  $copy =~ s/^(?=\S+)/    /gms;
  $self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
  $self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
  eval { require Devel::PPPort };
  \$@ and die "Cannot require Devel::PPPort, please install.\\n";
  if (eval \$Devel::PPPort::VERSION < $VERSION) {

view all matches for this distribution

Acme-Yoda

1 match

lib/Acme/Yoda.pm view on Meta::CPAN

	$VERSION     = 0.02;
}


########################################### main pod documentation begin ##
# Below is the stub of documentation for your module. You better edit it!


=head1 NAME

Acme::Yoda -

view all matches for this distribution

Acme-Zalgo

1 match

lib/Acme/Zalgo.pm view on Meta::CPAN

Ì«Ì–ÌÌ¬ÌªÌ£Í…WÌÌ®Í‡Ì¼Ì¼iÍÌ™Ì˜ÍŽÌ©Ì¤tÌ˜Ì©ÌÌ¥ÌhÌ˜Ì»ÌŸÌ  Ì˜Ì®Í”ouÌ™Í•Ì—Í¡t Ì²oÌ´Ì ÌŸÌ£Ì®Í–Ì±ÌžrÌžÌždÌ·Í•Ì°Í‰ÌŸÌ£eÍ•Í‡Í•Ì—Ì²Ì–Í…rÌ—Ì¥ÌªÌªÌ˜Í .Í‰ÌŸÌ²ÌºÌ»Í“Í”Íž
Ì˜Ì¥Å¢ÌœÍ™ÌžÌ–heÒ‰ á¹ˆÌ¶Í“ÌÌ¼á¸›Ì´Ì¥Í“Ì³Ì²zÌ¤ÌœÍ…pÍ”Ì©Ì±eÍÍŽrÌœÌ™ÌªÍšdÒ‰Í“Ì¹Í‰Í‰ÌªÌ±iÌ¹Ì¹Ì»Ì£aÍ™Í¢nÌ¼ÌžÍ‰ Ì–Í”á¸«Ì¨ÌÍˆÌ¹Í“ÌºÍšiÍÌ˜ÍŽÌ¬Ì–vÌ©Ì«Ì»ÌÌ¤ÌºÍÃ¨Ì¥Ì¯Ì¯Ì-Ì¯ÍšÍ•ÍŸmÌ®ÍÍiÌ²nÍŽÌ¤Í‡Í™Ì°Í‰dÌœÍÌÌÍ‡ Ì²ÍŸoÌµÍ™ÍÌ±Ì¤fÌ²Í•ÌªÌŸ Ì¥ÍŽcÍÌ¤Ì¤Ì¦Ìªh...
Ì Í…HÌµÌªÌ¥Ì Ì¼eÌ—ÍšÌ»Ì—ÌÌ©Ì® ÍÍŸwÌ·Í™ÌÍ™Ì™ÌÍ™hÌ¡Ì©Í‡ÌÌ¯oÍÍ‰Ì±Í‰Ì²Í… Ì˜Í‰Í¡WÌ Ì²Í™Ì°Ì¹Í¡aÍžiÍÌ¼ÌtÌ¯Ì»Ì»Ì°Ì®Ì±Ì¹sÌ—ÌÌ–Ì¦Ì ÌºÌ¥ Ì™BÌÍ–Ì¤ÍœeÌ˜Ì«ÍÌ¤Ì©Í‡hÌ¹iÌ–Ì¦Ì¼Í“Ì nÌ¸Í‰Ì²dÌ¨ÍšÍ“ÍŽÍ… ÍˆÍ‡ÌžÌ»Ì²Ì®Ì¹ÍTÌ¸ÌÌœÌ ÌœÌžÌ¤ÌœhÌ¨Ì–Ì–Ã¨ÍˆÌžÍ… Ì®WÒ‰ÌžÌ¹...
Ì¤ÌÌ¦Ì Ì¬ZÌ¤ÌºÍ‰Ì¦AÌ–ÍLÍÌ±GÌ¶Ì°ÌºÌ²Ì—Ì¥Ì–Ì®OÌ©ÍˆÌ !Ì¤ÌÌ—
    	    
[credit to and shamelessly stolen from http://eemo.net] 

=head1 SEE ALSO

http://eeemo.net/ - Zalgo Text Generator

view all matches for this distribution

Acme-rafl-Everywhere

1 match

Revision history for Perl extension Acme::rafl::Everywhere.

0.011   26.05.2013
        * Another fact.
        * Two more facts were added by Toby Inkster in 0.010 but he didn't get
          the proper credit. PLZ2FIX. (GH #9, #11)

0.010   23.04.2013
        * Fix Curiosity entry (Tadeusz SoÅ›nierz, John SJ @genehack Anderson).

0.009   15.01.2013


0.007   10.10.2012
        * Added fan art, HTML'ified pics.
        * Another fact.
        * Added SEE ALSO (Toby Inkster).
        * Added investigator credit to Damien Krotkine.

0.006   06.10.2012
        * More facts collected by new lead investigator: garu.

0.005   06.10.2012

view all matches for this distribution

Acme-require-case

4 results

lib/Acme/require/case.pm view on Meta::CPAN

    perl -MAcme::require::case myprogram.pl

It does not support hooks in C<@INC> and will croak if any are found.

You certainly don't want to run this in production, but it might be good for
your editor's compile command, or in C<PERL5OPT> during testing.

If you're really daring you can stick it in your shell:

    export PERL5OPT=-MAcme::require::case

view all matches for this distribution

Acme-this

2 results

lib/Acme/this.pm view on Meta::CPAN


Print the Zen of Perl when used.

=head1 ACKNOWLEDGEMENTS

All the credit to <bellaire>, who wrote the Zen of Perl in
L<http://www.perlmonks.org/?node_id=752029>

=head1 AUTHOR

=over 4

view all matches for this distribution

Activator

2 results

lib/Activator.pm view on Meta::CPAN


Come up with yet another mechanism for providing I18N that works across all aspects of a project.

=item *

Make sure you edit all the configurations necessary when creating a new dev environment

=back

Activator solves all of the above, and many more problems. Read the L<Activator::Tutorial> to find out how.

view all matches for this distribution

ActiveRecord-Simple

1 match

        + Improved relationship framework
        * Fixed bugs

0.65    2014-09-26
        + Dependancy on SQL::Translator now is optional (thanks to @kberov)
        + Added Credits - list of contributors (see README)
        * Fixed bugs
        * Improved tests

0.70    2015-08-14
        + Added ARS_TRACE

view all matches for this distribution

Adapter-Async

5 results

lib/Adapter/Async/Bus.pod view on Meta::CPAN

=for comment POD_DERIVED_INDEX_GENERATED
The following documentation is automatically generated.  Please do not edit
this file, but rather the original, inline with Adapter::Async::Bus
at lib/Adapter/Async/Bus.pm
(on the system that originally ran this).
If you do edit this file, and don't want your changes to be removed, make
sure you change the first line.

=cut

=head1 NAME

view all matches for this distribution

Ado

8 results

lib/Ado/Command/adduser.pm view on Meta::CPAN

package Ado::Command::adduser;
use Mojo::Base 'Ado::Command';
use Getopt::Long qw(GetOptionsFromArray);
use Time::Piece qw();
use Time::Seconds;
has description => 'Add and edit users';
has usage => sub { shift->extract_usage };

#define some defaults
has args => sub {
    my $t = time;

view all matches for this distribution

Advanced-Config

4 results

Config.pm view on Meta::CPAN

array of values.  If the pattern is B<undef> it will use the default
I<split_pattern> specified during he call to F<new()>.  Otherwise it can be
either a string or a RegEx.  See Perl's I<split> function for more details.
After the value has been split, it will perform any requested validation and
most functions will return B<undef> if even one element in the list fails it's
edits.  It was added as its own argument, instead of just relying on the
override option hash, since this option is probably the one that gets overridden
most often.

They also support the same I<inherit> and I<required> options described for the
scalar functions as well.

view all matches for this distribution

Affix-Infix2Postfix

1 match

Infix2Postfix.pm view on Meta::CPAN


# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__
# Below is the stub of documentation for your module. You better edit it!

=head1 NAME

Affix::Infix2Postfix - Perl extension for converting from infix
notation to postfix notation.

view all matches for this distribution

Affix

1 match

CODE_OF_CONDUCT.md view on Meta::CPAN

Community leaders are responsible for clarifying and enforcing our standards of
acceptable behavior and will take appropriate and fair corrective action in
response to any behavior that they deem inappropriate, threatening, offensive,
or harmful.

Community leaders have the right and responsibility to remove, edit, or reject
comments, commits, code, wiki edits, issues, and other contributions that are
not aligned to this Code of Conduct, and will communicate reasons for moderation
decisions when appropriate.

## Scope

view all matches for this distribution

Agent-TCLI-Package-Net

1 match

bin/agent_net.pl view on Meta::CPAN

=over 8

=item B<username>

The XMPP user the Agent will log in as, without the domain.
Required unless the script has been edited to enable a default user.

=item B<password>

The password to be used by the Agent to log in to the XMPP server.
Required unless the script has been edited to enable a default password.

=item B<domain>

The XMPP domain of the user account of the Agent.
Required unless the script has been edited to enable a default domain.

=item B<resource>

The XMPP resource. Defaults to 'tcli' if not provided.

view all matches for this distribution

Agent-TCLI

1 match

bin/agent_tail.pl view on Meta::CPAN

=over 8

=item B<username>

The XMPP user the Agent will log in as, without the domain.
Required unless the script has been edited to enable a default user.

=item B<password>

The password to be used by the Agent to log in to the XMPP server.
Required unless the script has been edited to enable a default password.

=item B<domain>

The XMPP domain of the user account of the Agent.
Required unless the script has been edited to enable a default domain.

=item B<resource>

The XMPP resource. Defaults to 'tcli' if not provided.

view all matches for this distribution

Aion-Fs

5 results

lib/Aion/Fs.pm view on Meta::CPAN

	qr/^$wildcard$/ns
}

# ÐžÑ‚ÐºÑ€Ñ‹Ð²Ð°ÐµÑ‚ Ñ„Ð°Ð¹Ð» Ð½Ð° ÑƒÐºÐ°Ð·Ð°Ð½Ð½Ð¾Ð¹ ÑÑ‚Ñ€Ð¾ÐºÐµ Ð² Ñ€ÐµÐ´Ð°ÐºÑ‚Ð¾Ñ€Ðµ
use config EDITOR => "vscodium %p:%l";
sub goto_editor($$) {
	my ($path, $line) = @_;
	my $p = EDITOR;
	$p =~ s!%p!$path!;
	$p =~ s!%l!$line!;
	my $status = system $p;

lib/Aion/Fs.pm view on Meta::CPAN


=item * L<Text::Glob> â€“ C<glob_to_regex("*.{pm,pl}")>.

=back

=head2 goto_editor ($path, $line)

Opens the file in the editor from .config at the specified line. Defaults to C<vscodium %p:%l>.

.config.pm file:

	package config;

lib/Aion/Fs.pm view on Meta::CPAN

	
	1;



	goto_editor "mypath", 10;
	cat "ed.txt"  # => mypath:10\n
	
	eval { goto_editor "`", 1 }; $@  # ~> `:1 --> 512

=head2 from_pkg (;$pkg)

Transfers the packet to the FS path. Without a parameter, uses C<$_>.

view all matches for this distribution

Algorithm-AM

3 results

bin/analogize.pl view on Meta::CPAN


    analogize --exemplars datasets/soybean/data --test datasets/soybean/test --format commas --print gang_summary > gang.txt

    analogize --project datasets/soybean --format commas --print gang_summary > gang.txt

The resulting files are best viewed in a text editor with word wrap turned I<off>.

=head1 AUTHOR

Theron Stanford <shixilun@yahoo.com>, Nathan Glenn <garfieldnate@gmail.com>

view all matches for this distribution

Algorithm-AhoCorasick-XS

1 match


    ppport.h -- Perl/Pollution/Portability Version 3.35

    Automatically created by Devel::PPPort running under perl 5.024000.

    Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
    includes in parts/inc/ instead.

    Use 'perldoc ppport.h' to view the documentation below.

----------------------------------------------------------------------

dump_trie_interim_table|||
dump_trie|||
dump_vindent||5.006000|
dumpuntil|||
dup_attrlist|||
edit_distance|||n
emulate_cop_io|||
eval_pv|5.006000||p
eval_sv|5.006000||p
exec_failed|||
expect_number|||

sub strip
{
  my $self = do { local(@ARGV,$/)=($0); <> };
  my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
  $copy =~ s/^(?=\S+)/    /gms;
  $self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
  $self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
  eval { require Devel::PPPort };
  \$@ and die "Cannot require Devel::PPPort, please install.\\n";
  if (eval \$Devel::PPPort::VERSION < $VERSION) {

view all matches for this distribution

Algorithm-BIT-XS

1 match


    ppport.h -- Perl/Pollution/Portability Version 3.32

    Automatically created by Devel::PPPort running under perl 5.024001.

    Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
    includes in parts/inc/ instead.

    Use 'perldoc ppport.h' to view the documentation below.

----------------------------------------------------------------------

sub strip
{
  my $self = do { local(@ARGV,$/)=($0); <> };
  my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
  $copy =~ s/^(?=\S+)/    /gms;
  $self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
  $self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
  eval { require Devel::PPPort };
  \$@ and die "Cannot require Devel::PPPort, please install.\\n";
  if (eval \$Devel::PPPort::VERSION < $VERSION) {

view all matches for this distribution

Algorithm-BloomFilter

1 match


    ppport.h -- Perl/Pollution/Portability Version 3.20

    Automatically created by Devel::PPPort running under perl 5.018002.

    Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
    includes in parts/inc/ instead.

    Use 'perldoc ppport.h' to view the documentation below.

----------------------------------------------------------------------

sub strip
{
  my $self = do { local(@ARGV,$/)=($0); <> };
  my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
  $copy =~ s/^(?=\S+)/    /gms;
  $self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
  $self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
  eval { require Devel::PPPort };
  \$@ and die "Cannot require Devel::PPPort, please install.\\n";
  if (eval \$Devel::PPPort::VERSION < $VERSION) {

view all matches for this distribution

Algorithm

1 match