view release on metacpan or search on metacpan
=end html
=head1 INSTALLATION
Acme::BayaC installation is straightforward. If your CPAN shell is set up,
you should just be able to do
% cpan Acme::BayaC
Download it, unpack it, then build it as per the usual:
view all matches for this distribution
view release on metacpan or search on metacpan
receives a license from the original licensors, to run, modify and
propagate that work, subject to this License. You are not responsible
for enforcing compliance by third parties with this License.
An "entity transaction" is a transaction transferring control of an
organization, or substantially all assets of one, or subdividing an
organization, or merging organizations. If propagation of a covered
work results from an entity transaction, each party to that
transaction who receives a copy of the work also receives whatever
licenses to the work the party's predecessor in interest had or could
give under the previous paragraph, plus a right to possession of the
view all matches for this distribution
view release on metacpan or search on metacpan
=head1 DESCRIPTION
This module automatically uses the top ten things returned by a CPAN
search for "cool," or uses what you tell it. Use it to keep up with
the latest fads in Perl development, or to try to become a Perl
trend-setter yourself! Note that it doesn't try to install anything
you don't already have, because if you're cool, you already have it.
=head1 AUTHOR
Sean O'Rourke, E<lt>seano@cpan.orgE<gt>
view all matches for this distribution
view release on metacpan or search on metacpan
blah blah blah
=head1 ABSTRACT
The Beatnik language is a based on scrabble word values. Each value points to a different instruction.
The language is stack based and has a rather reduced instruction set.
=head1 DESCRIPTION
Beatnik is an esoteric programming language based on scrabble word values in the code.
Each word value is linked to a certain instruction. The number of instructions is limited
16 Move the Instruction Pointer X values backward if the first value on stack is not zero (X being the next word value)
17 Halt the program
=head1 ENGLISH TILESET
Since Scrabble has different letter values for different countries, there is a problem. Acme::Beatnik uses the English based tileset.
Future versions might include the possibility to have other tilesets as well.
A=1 B=3 C=3 D=2 E=1 F=4 G=2 H=4 I=1 J=8 K=5 L=1 M=3 N=1 O=1 P=3 Q=10 R=1 S=1 T=1 U=1 V=4 W=4 X=8 Y=4 Z=10
=head1 EXAMPLE
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
use vars qw{$VERSION};
BEGIN {
$VERSION = '1.03';
}
# special map on pre-defined feature sets
my %FeatureMap = (
'' => 'Core Features', # XXX: deprecated
'-core' => 'Core Features',
);
inc/Module/AutoInstall.pm view on Meta::CPAN
my $option = lc($1);
# check for a newer version of myself
_update_to( $modules, @_ ) and return if $option eq 'version';
# sets CPAN configuration options
$Config = $modules if $option eq 'config';
# promote every features to core status
$core_all = ( $modules =~ /^all$/i ) and next
if $option eq 'core';
inc/Module/AutoInstall.pm view on Meta::CPAN
my $conf = $cp->configure_object;
return unless $conf->can('conf') # 0.05x+ with "sudo" support
or _can_write($conf->_get_build('base')); # 0.04x
# if we're root, set UNINST=1 to avoid trouble unless user asked for it.
my $makeflags = $conf->get_conf('makeflags') || '';
if ( UNIVERSAL::isa( $makeflags, 'HASH' ) ) {
# 0.03+ uses a hashref here
$makeflags->{UNINST} = 1 unless exists $makeflags->{UNINST};
inc/Module/AutoInstall.pm view on Meta::CPAN
# 0.02 and below uses a scalar
$makeflags = join( ' ', split( ' ', $makeflags ), 'UNINST=1' )
if ( $makeflags !~ /\bUNINST\b/ and eval qq{ $> eq '0' } );
}
$conf->set_conf( makeflags => $makeflags );
$conf->set_conf( prereqs => 1 );
while ( my ( $key, $val ) = splice( @config, 0, 2 ) ) {
$conf->set_conf( $key, $val );
}
my $modtree = $cp->module_tree;
while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
print "*** Installing $pkg...\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
# no "sudo" support, probe for writableness
return unless _can_write( MM->catfile( $CPAN::Config->{cpan_home}, 'sources' ) )
and _can_write( $Config::Config{sitelib} );
}
# if we're root, set UNINST=1 to avoid trouble unless user asked for it.
my $makeflags = $CPAN::Config->{make_install_arg} || '';
$CPAN::Config->{make_install_arg} =
join( ' ', split( ' ', $makeflags ), 'UNINST=1' )
if ( $makeflags !~ /\bUNINST\b/ and eval qq{ $> eq '0' } );
# don't show start-up info
$CPAN::Config->{inhibit_startup_message} = 1;
# set additional options
while ( my ( $opt, $arg ) = splice( @config, 0, 2 ) ) {
( $args{$opt} = $arg, next )
if $opt =~ /^force$/; # pseudo-option
$CPAN::Config->{$opt} = $arg;
}
view all matches for this distribution
view release on metacpan or search on metacpan
[@Filter]
-bundle = @Basic
-remove = Readme
[PruneFiles]
filename = setup
match = \.patch$
match = mess/.*
match = cover_db
[AutoPrereqs]
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/Brainfuck.pm view on Meta::CPAN
The extra instructions are:
=over 4
=item ~ Reset
Resets the pointer to the first memory cell and clear all memory cells.
=item # Peek
Prints the values of the memory pointer and the current memory cell to
STDERR. See also L</"Debugging"> below.
view all matches for this distribution
view release on metacpan or search on metacpan
Buckaroo.pm view on Meta::CPAN
our $VERSION = '1.02';
###############################################################################
# IF YOU WANT TO TURN ON DEBUG MODE
# (and thus see lots of logging lines that explain how things are happening
# as they happen), set debug_mode = 1.
# If you do, you'll need either:
# (1) Perl 5.6 (to get Data::Dumper by default), or
# (2) to have Data::Dumper already installed.
# Data::Dumper is a very, very handy module, but it wasn't in the default Perl
# installation until (I think) Perl 5.6. Perl 5.005 usually don't have it.
Buckaroo.pm view on Meta::CPAN
my $first = shift; # name of module, in this case "Buckaroo.pm"
my $source_filename = $0; # name of file called from (if test.pl does a 'use Acme::Buckaroo;' then this will be "test.pl")
print("Starting \"Buckaroo\" process...\n") if $debug_mode;
# set up some hashes to go to/from encoding scheme.
my $i = 0;
foreach my $this_elem (@xlate_array)
{
$xlate_2_hash{$this_elem} = $i;
$xlate_from_hash{$i} = $this_elem;
Buckaroo.pm view on Meta::CPAN
into characters from the movie "Buckaroo Banzai Across the Eigth
Dimension" (and some other phrases, too).
The program will work (or not!) exactly as it did before it was
converted, but the code will be a somewhat endearing tribute to a
movie, instead of a clean, complete, clearly commented set of lines
of Perl code.
if you want to convert your program BACK into Perl, you must edit the
Acme::Buckaroo.pm module and turn on debugging (change the
line, "my $debug_mode = 0;" to the line, "my $debug_mode = 1;" and then
Buckaroo.pm view on Meta::CPAN
=over 4
=item C<Cannot Buckaroo '%s'>
Acme::Buckaroo could not modify the source file. Are the file permissions set?
=item C<Cannot Buckaroo again on '%s'>
Acme::Buckaroo couldn't read the source file to execute it. Are the file permissions set?
=back
=head1 AUTHOR
view all matches for this distribution
view release on metacpan or search on metacpan
},
"name" : "@Author::PERLANCAR/Test::Compile",
"version" : "2.054"
},
{
"class" : "Dist::Zilla::Plugin::Test::Perl::Critic::Subset",
"config" : {
"Dist::Zilla::Plugin::Test::Perl::Critic::Subset" : {
"finder" : [
"@Author::PERLANCAR/FileFinder::ByName PERLANCAR"
]
}
},
"name" : "@Author::PERLANCAR/Test::Perl::Critic::Subset",
"version" : "3.001.003"
},
{
"class" : "Dist::Zilla::Plugin::Test::Rinci",
"name" : "@Author::PERLANCAR/Test::Rinci",
view all matches for this distribution
view release on metacpan or search on metacpan
},
"name" : "@Author::PERLANCAR/Test::Compile",
"version" : "2.058"
},
{
"class" : "Dist::Zilla::Plugin::Test::Perl::Critic::Subset",
"config" : {
"Dist::Zilla::Plugin::Test::Perl::Critic::Subset" : {
"finder" : [
":ExecFiles",
":InstallModules",
":TestFiles"
]
}
},
"name" : "@Author::PERLANCAR/Test::Perl::Critic::Subset",
"version" : "3.001.005"
},
{
"class" : "Dist::Zilla::Plugin::Test::Rinci",
"name" : "@Author::PERLANCAR/Test::Rinci",
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
use vars qw{$VERSION};
BEGIN {
$VERSION = '1.03';
}
# special map on pre-defined feature sets
my %FeatureMap = (
'' => 'Core Features', # XXX: deprecated
'-core' => 'Core Features',
);
inc/Module/AutoInstall.pm view on Meta::CPAN
my $option = lc($1);
# check for a newer version of myself
_update_to( $modules, @_ ) and return if $option eq 'version';
# sets CPAN configuration options
$Config = $modules if $option eq 'config';
# promote every features to core status
$core_all = ( $modules =~ /^all$/i ) and next
if $option eq 'core';
inc/Module/AutoInstall.pm view on Meta::CPAN
my $conf = $cp->configure_object;
return unless $conf->can('conf') # 0.05x+ with "sudo" support
or _can_write($conf->_get_build('base')); # 0.04x
# if we're root, set UNINST=1 to avoid trouble unless user asked for it.
my $makeflags = $conf->get_conf('makeflags') || '';
if ( UNIVERSAL::isa( $makeflags, 'HASH' ) ) {
# 0.03+ uses a hashref here
$makeflags->{UNINST} = 1 unless exists $makeflags->{UNINST};
inc/Module/AutoInstall.pm view on Meta::CPAN
# 0.02 and below uses a scalar
$makeflags = join( ' ', split( ' ', $makeflags ), 'UNINST=1' )
if ( $makeflags !~ /\bUNINST\b/ and eval qq{ $> eq '0' } );
}
$conf->set_conf( makeflags => $makeflags );
$conf->set_conf( prereqs => 1 );
while ( my ( $key, $val ) = splice( @config, 0, 2 ) ) {
$conf->set_conf( $key, $val );
}
my $modtree = $cp->module_tree;
while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
print "*** Installing $pkg...\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
# no "sudo" support, probe for writableness
return unless _can_write( MM->catfile( $CPAN::Config->{cpan_home}, 'sources' ) )
and _can_write( $Config::Config{sitelib} );
}
# if we're root, set UNINST=1 to avoid trouble unless user asked for it.
my $makeflags = $CPAN::Config->{make_install_arg} || '';
$CPAN::Config->{make_install_arg} =
join( ' ', split( ' ', $makeflags ), 'UNINST=1' )
if ( $makeflags !~ /\bUNINST\b/ and eval qq{ $> eq '0' } );
# don't show start-up info
$CPAN::Config->{inhibit_startup_message} = 1;
# set additional options
while ( my ( $opt, $arg ) = splice( @config, 0, 2 ) ) {
( $args{$opt} = $arg, next )
if $opt =~ /^force$/; # pseudo-option
$CPAN::Config->{$opt} = $arg;
}
view all matches for this distribution
view release on metacpan or search on metacpan
CONTRIBUTING view on Meta::CPAN
* <http://en.wikipedia.org/wiki/Indent_style#Allman_style>
* <http://www.derkarl.org/why_to_tabs.html>
I nominally encode all source files as UTF-8, though in practice most of
them use a 7-bit-safe ASCII-compatible subset of UTF-8.
AUTHOR
Toby Inkster <tobyink@cpan.org>.
COPYRIGHT AND LICENCE
view all matches for this distribution
view release on metacpan or search on metacpan
% cpanm -S Acme::CPANAuthors::Austrian
## Installing with the CPAN shell
Alternatively, if your CPAN shell is set up, you should just be able to do:
% cpan Acme::CPANAuthors::Austrian
## Manual installation
view all matches for this distribution
view release on metacpan or search on metacpan
t/000_basic.t view on Meta::CPAN
BEGIN {
use_ok ('Acme::CPANAuthors::Booking') or
BAIL_OUT ("Loading of 'Acme-CPANAuthors-Booking' failed");
}
ok defined $Acme::CPANAuthors::Booking::VERSION, "VERSION is set";
my $authors = Acme::CPANAuthors -> new ('Booking');
ok $authors, 'Got $authors';
view all matches for this distribution
view release on metacpan or search on metacpan
xt/99_pod.t view on Meta::CPAN
use warnings;
use Test::More;
eval "use Test::Pod 1.18";
plan skip_all => 'Test::Pod 1.18 required' if $@;
plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
all_pod_files_ok();
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/British.pm view on Meta::CPAN
BENTIS => 'Ben Tisdall',
BEVANS => 'Ben Evans',
BIGPRESH => 'David Precious',
BINGOS => 'Chris Williams',
BIRNEY => 'Ewan Birney',
BISSCUITT => 'Ian Bissett',
BMORROW => 'Ben Morrow',
BOBNET => 'Robert Cornell',
BOBTFISH => 'Tomas Doran',
BOB => 'Bob Walker',
BOBW => 'Bob Wilkinson',
view all matches for this distribution
view release on metacpan or search on metacpan
},
"name" : "@Author::PERLANCAR/Test::Compile",
"version" : "2.058"
},
{
"class" : "Dist::Zilla::Plugin::Test::Perl::Critic::Subset",
"config" : {
"Dist::Zilla::Plugin::Test::Perl::Critic::Subset" : {
"finder" : [
":ExecFiles",
":InstallModules",
":TestFiles"
]
}
},
"name" : "@Author::PERLANCAR/Test::Perl::Critic::Subset",
"version" : "3.001.006"
},
{
"class" : "Dist::Zilla::Plugin::Test::Rinci",
"name" : "@Author::PERLANCAR/Test::Rinci",
view all matches for this distribution
view release on metacpan or search on metacpan
},
"name" : "@Author::PERLANCAR/Test::Compile",
"version" : "2.058"
},
{
"class" : "Dist::Zilla::Plugin::Test::Perl::Critic::Subset",
"config" : {
"Dist::Zilla::Plugin::Test::Perl::Critic::Subset" : {
"finder" : [
":ExecFiles",
":InstallModules",
":TestFiles"
]
}
},
"name" : "@Author::PERLANCAR/Test::Perl::Critic::Subset",
"version" : "3.001.006"
},
{
"class" : "Dist::Zilla::Plugin::Test::Rinci",
"name" : "@Author::PERLANCAR/Test::Rinci",
view all matches for this distribution
view release on metacpan or search on metacpan
},
"name" : "@Author::PERLANCAR/Test::Compile",
"version" : "2.058"
},
{
"class" : "Dist::Zilla::Plugin::Test::Perl::Critic::Subset",
"config" : {
"Dist::Zilla::Plugin::Test::Perl::Critic::Subset" : {
"finder" : [
":ExecFiles",
":InstallModules",
":TestFiles"
]
}
},
"name" : "@Author::PERLANCAR/Test::Perl::Critic::Subset",
"version" : "3.001.006"
},
{
"class" : "Dist::Zilla::Plugin::Test::Rinci",
"name" : "@Author::PERLANCAR/Test::Rinci",
view all matches for this distribution
view release on metacpan or search on metacpan
t/000_basic.t view on Meta::CPAN
BEGIN {
use_ok ('Acme::CPANAuthors::CPANTS::FiveOrMore') or
BAIL_OUT ("Loading of 'Acme::CPANAuthors::CPANTS::FiveOrMores' failed");
}
ok defined $Acme::CPANAuthors::CPANTS::FiveOrMore::VERSION, "VERSION is set";
my $authors = Acme::CPANAuthors -> new ('CPANTS::FiveOrMore');
ok $authors, 'Got $authors';
view all matches for this distribution
view release on metacpan or search on metacpan
If you have cpanm, you only need one line:
% cpanm Acme::CPANAuthors::Canadian
If it does not have permission to install modules to the current perl, cpanm
will automatically set up and install to a local::lib in your home directory.
See the local::lib documentation (https://metacpan.org/pod/local::lib) for
details on enabling it in your environment.
## Installing with the CPAN shell
Alternatively, if your CPAN shell is set up, you should just be able to do:
% cpan Acme::CPANAuthors::Canadian
## Manual installation
view all matches for this distribution
view release on metacpan or search on metacpan
use warnings;
use Test::More;
eval "use Test::Pod 1.18";
plan skip_all => 'Test::Pod 1.18 required' if $@;
plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
all_pod_files_ok();
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# The load order for Module::Install is a bit magic.
# It goes something like this...
#
# IF ( host has Module::Install installed, creating author mode ) {
# 1. Makefile.PL calls "use inc::Module::Install"
# 2. $INC{inc/Module/Install.pm} set to installed version of inc::Module::Install
# 3. The installed version of inc::Module::Install loads
# 4. inc::Module::Install calls "require Module::Install"
# 5. The ./inc/ version of Module::Install loads
# } ELSE {
# 1. Makefile.PL calls "use inc::Module::Install"
# 2. $INC{inc/Module/Install.pm} set to ./inc/ version of Module::Install
# 3. The ./inc/ version of Module::Install loads
# }
use 5.006;
use strict 'vars';
inc/Module/Install.pm view on Meta::CPAN
# to allow "eval 'require Module::Install; 1' to test
# installation of Module::Install. (RT #51267)
#-------------------------------------------------------------
# Whether or not inc::Module::Install is actually loaded, the
# $INC{inc/Module/Install.pm} is what will still get set as long as
# the caller loaded module this in the documented manner.
# If not set, the caller may NOT have loaded the bundled version, and thus
# they may not have a MI version that works with the Makefile.PL. This would
# result in false errors or unexpected behaviour. And we don't want that.
my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
unless ( $INC{$file} ) { die <<"END_DIE" }
view all matches for this distribution
view release on metacpan or search on metacpan
BEGIN {
use_ok('Acme::CPANAuthors::DebianDev')
or BAIL_OUT("Loading of 'Acme-CPANAuthors-DebianDev' failed");
}
ok defined $Acme::CPANAuthors::DebianDev::VERSION, "VERSION is set";
my $authors = Acme::CPANAuthors->new('DebianDev');
ok $authors, 'Got $authors';
view all matches for this distribution
view release on metacpan or search on metacpan
t/000_basic.t view on Meta::CPAN
BEGIN {
use_ok ('Acme::CPANAuthors::Dutch');
}
ok defined $Acme::CPANAuthors::Dutch::VERSION, "VERSION is set";
my $authors = Acme::CPANAuthors -> new ('Dutch');
ok $authors;
view all matches for this distribution
view release on metacpan or search on metacpan
t/000_basic.t view on Meta::CPAN
BEGIN {
use_ok ('Acme::CPANAuthors::EU');
}
ok defined $Acme::CPANAuthors::EU::VERSION, "VERSION is set";
my $authors = Acme::CPANAuthors -> new ('EU');
ok $authors, 'Got $authors';
view all matches for this distribution
view release on metacpan or search on metacpan
t/000_basic.t view on Meta::CPAN
BEGIN {
use_ok ('Acme::CPANAuthors::European');
}
ok defined $Acme::CPANAuthors::European::VERSION, "VERSION is set";
my $authors = Acme::CPANAuthors -> new ('European');
ok $authors, 'Got $authors';
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# The load order for Module::Install is a bit magic.
# It goes something like this...
#
# IF ( host has Module::Install installed, creating author mode ) {
# 1. Makefile.PL calls "use inc::Module::Install"
# 2. $INC{inc/Module/Install.pm} set to installed version of inc::Module::Install
# 3. The installed version of inc::Module::Install loads
# 4. inc::Module::Install calls "require Module::Install"
# 5. The ./inc/ version of Module::Install loads
# } ELSE {
# 1. Makefile.PL calls "use inc::Module::Install"
# 2. $INC{inc/Module/Install.pm} set to ./inc/ version of Module::Install
# 3. The ./inc/ version of Module::Install loads
# }
BEGIN {
require 5.004;
inc/Module/Install.pm view on Meta::CPAN
# Whether or not inc::Module::Install is actually loaded, the
# $INC{inc/Module/Install.pm} is what will still get set as long as
# the caller loaded module this in the documented manner.
# If not set, the caller may NOT have loaded the bundled version, and thus
# they may not have a MI version that works with the Makefile.PL. This would
# result in false errors or unexpected behaviour. And we don't want that.
my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
unless ( $INC{$file} ) { die <<"END_DIE" }
view all matches for this distribution
view release on metacpan or search on metacpan
},
"name" : "@Author::PERLANCAR/Test::Compile",
"version" : "2.058"
},
{
"class" : "Dist::Zilla::Plugin::Test::Perl::Critic::Subset",
"config" : {
"Dist::Zilla::Plugin::Test::Perl::Critic::Subset" : {
"finder" : [
":ExecFiles",
":InstallModules",
":TestFiles"
]
}
},
"name" : "@Author::PERLANCAR/Test::Perl::Critic::Subset",
"version" : "3.001.006"
},
{
"class" : "Dist::Zilla::Plugin::Test::Rinci",
"name" : "@Author::PERLANCAR/Test::Rinci",
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors.pm view on Meta::CPAN
=head2 ACME_CPANAUTHORS_HOME
Since 0.14, Acme::CPANAuthors checks C<ACME_CPANAUTHORS_HOME>
environmental variable to look for a place where CPAN indices
are located. If you have a local (mini) CPAN mirror, or a source
directory for your CPAN clients (C<~/.cpan/sources> etc), set
the variable to point there. If not specified, the indices will
be downloaded from the CPAN (to your temporary directory, or
to the current directory).
=head1 METHODS
view all matches for this distribution