view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/ozark.pm view on Meta::CPAN
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# default
:all
# names first
marty wendy charlotte jonah ruth rachel roy camino jacob darlene wyatt helen ben maya mason buddy russ cade trevor charles
# names last
byrde langmore garrison petty delrio snell pierce davis miller young dieker evans wilkes
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/schitts_creek.pm view on Meta::CPAN
feature.
=cut
__DATA__
# default
:all
# names first
johnny moira david alexis roland stevie jocelyn twyla ronnie ted patrick bob mutt gwen grace ray wendy lena jake emir eric doris ivan clint bev tennesse don audrey
# names last
rose schitt budd sands lee mullens brewer currie butani kurtz kaplan taylor
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/seinfeld.pm view on Meta::CPAN
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# default
:all
# names first
jerry kramer george elaine ruthie susan estelle frank helen jacopo morty leo matt david justin mickey kenny russell tim joe carol jackie sue
# names last
seinfeld costanza benes cohen newman ross peterman wilhelm lippman puddy pitt dugan bania dalrymple whatley davola chiles kruger ellen
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/soviet.pm view on Meta::CPAN
use Acme::MetaSyntactic::MultiList;
our @ISA = qw( Acme::MetaSyntactic::MultiList );
our $VERSION = '0.06';
my $data = { default => 'electronic' };
my ($category2, $category3);
my %seen;
_load_data_from_pod();
lib/Acme/MetaSyntactic/soviet.pm view on Meta::CPAN
vehicles/error
=back
The default category is 'electronic'.
=head1 VERSION
This is version 0.06, the Fresco version, released on the 49th
anniversary of the dogfight between a MiG-17 Fresco flown by ace
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/unyil.pm view on Meta::CPAN
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# default
main
# names main
unyil ucrit usro kinoy meilani tina bunbun ableh ogah cuplis endut bariah jontor joni tina tineke
# names extra
raden lurah hansip
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
DAMAGES.
=cut
__DATA__
# default
commands/full
# names todo
COMBAK
FIXME
TODO
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
formatlistpat
formatoptions
formatprg
formatexpr
fsync
gdefault
grepformat
grepprg
guicursor
guifont
guifontset
view release on metacpan or search on metacpan
lib/Acme/MilkyHolmes.pm view on Meta::CPAN
=head1 METHODS
=head2 C<members(%options)>
options: C<$options{locale} = ja,en> default is ja
my @members = Acme::MilkyHolmes->members(locale => en);
fetch Milky Holmes members. See SYNOPSIS.
=head2 C<members_of($member_name_const, %options)>
options: C<$options{locale} = ja,en> default is ja
fetch members specified in C<$member_name_const>. See SYNOPSIS and EXPORTED CONSTANTS
=head1 EXPORTED CONSTANTS
view release on metacpan or search on metacpan
lib/Acme/Mitey/Cards/Card.pm.mite.pm view on Meta::CPAN
sub reverse {
@_ == 1 or croak('Reader "reverse" usage: $self->reverse()');
(
exists( $_[0]{"reverse"} ) ? $_[0]{"reverse"} : (
$_[0]{"reverse"} = do {
my $default_value = $_[0]->_build_reverse;
do {
package Acme::Mitey::Cards::Mite;
defined($default_value) and do {
ref( \$default_value ) eq 'SCALAR'
or ref( \( my $val = $default_value ) ) eq
'SCALAR';
}
}
or croak( "Type check failed in default: %s should be %s",
"reverse", "Str" );
$default_value;
}
)
);
}
view release on metacpan or search on metacpan
lib/Acme/Mobile/Therbligs.pm view on Meta::CPAN
So you can use this module to determine useless facts such as that it
takes as many keypresses to write "later" or "great" as it does "l8r"
and "gr8".
The current version is case insensitive and assumes (by default) a
particular brand of Nokia phone. (I have no idea which model it is; it
was cheap, and it works, which is all I care about.)
A description of methods is below.
lib/Acme/Mobile/Therbligs.pm view on Meta::CPAN
letters which require pressing the same key (as with the word "high").
Defaults to C<1>.
=item NO_SENTENCE_CAPS
By default the initial letter of the message and of each sentence is
assumed to be capitalized (when counting in case-sensitive mode). This
option disabled that.
=back
lib/Acme/Mobile/Therbligs.pm view on Meta::CPAN
Returns the number of "therbligs" (keystrokes) used to generate the
message. A therblig is either a keystroke, or the pause when one has
to wait in order to enter multiple letters from the same key (such as
with the word "high").
The default number of therbligs for waiting in the same key is
C<1>. There is no way to change that value for this version.
When C<$case_flag> is true, the number of therbligs includes
keystrokes to toggle the shift key. It assumes that the first letter
of the message or a sentence is capitalized. (If C<$case_flag> is
lib/Acme/Mobile/Therbligs.pm view on Meta::CPAN
1;
__DATA__
--- #YAML:1.0
# The default data is for some unknown model of Nokia phone.
0: ' 0'
1: ".,'?!\"1-()@/:"
2: 'abc2ä'
3: 'def3èéêëð'
4: 'ghi4ìíîï'
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
my @c = caller();
if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
}
# In automated testing, always use defaults
if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
local $ENV{PERL_MM_USE_DEFAULT} = 1;
goto &ExtUtils::MakeMaker::prompt;
} else {
goto &ExtUtils::MakeMaker::prompt;
view release on metacpan or search on metacpan
inc/Module/Install/AuthorTests.pm view on Meta::CPAN
my ($self, $dirs, $recurse) = @_;
return unless $Module::Install::AUTHOR;
my @tests = $self->tests ? (split / /, $self->tests) : 't/*.t';
# XXX: pick a default, later -- rjbs, 2008-02-24
my @dirs = @$dirs ? @$dirs : Carp::confess "no dirs given to author_tests";
@dirs = grep { -d } @dirs;
if ($recurse) {
require File::Find;
view release on metacpan or search on metacpan
lib/Acme/Monkey.pm view on Meta::CPAN
my $self = {};
$self->{WIDTH} = $params{'width'} || $params{'W'} || undef;
$self->{HEIGHT} = $params{'height'} || $params{'H'} || undef;
# TODO: Should we just default X,Y instead?
croak "Width required\n" if !defined($self->{WIDTH});
croak "Height required\n" if !defined($self->{HEIGHT});
$self->{BUF_SIZE} = $self->{WIDTH} * $self->{HEIGHT};
$self->{BUFFER} = '';
view release on metacpan or search on metacpan
lib/Acme/Moose.pm view on Meta::CPAN
Create a new moose, all by yourself! :)
=cut
has [ 'foodage','happiness','tired']=> (is=>'rw',default=>0,isa=>'Int',init_arg=>"");
no Moose;
=item B<feed>
A well-fed moose is a happy moose.
view release on metacpan or search on metacpan
doc_install :: doc_$(INSTALLDIRS)_install
$(NOECHO) $(NOOP)
pure__install : pure_site_install
$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
doc__install : doc_site_install
$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
pure_perl_install :: all
$(NOECHO) $(MOD_INSTALL) \
read $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist \
write $(DESTINSTALLARCHLIB)/auto/$(FULLEXT)/.packlist \
view release on metacpan or search on metacpan
lib/Acme/MyFirstModule/APIERRE.pm view on Meta::CPAN
require Exporter;
our @ISA = qw(Exporter);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
# This allows declaration use Acme::MyFirstModule::APIERRE ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
lib/Acme/MyFirstModule/APIERRE.pm view on Meta::CPAN
Blah blah blah.
=head2 EXPORT
None by default.
=head1 SEE ALSO
view release on metacpan or search on metacpan
lib/Acme/MyFirstModule/RAYMONDJM.pm view on Meta::CPAN
require Exporter;
our @ISA = qw(Exporter);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
# This allows declaration use Acme::MyFirstModule::RAYMONDJM ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
lib/Acme/MyFirstModule/RAYMONDJM.pm view on Meta::CPAN
Blah blah blah.
=head2 EXPORT
None by default.
=head1 SEE ALSO
view release on metacpan or search on metacpan
lib/Acme/MyFirstModule/Tracers.pm view on Meta::CPAN
require Exporter;
our @ISA = qw(Exporter);
dfadffafa
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
# This allows declaration use Acme::MyFirstModule::Tracers ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
lib/Acme/MyFirstModule/Tracers.pm view on Meta::CPAN
Blah blah blah.
=head2 EXPORT
None by default.
=head1 SEE ALSO
view release on metacpan or search on metacpan
[REFACTORING]
- refactor functions High_Int(), High_Dbl()
rename into hi(), hd(), rename DataType() into dt()
export hi(), hd(), dt() by default
replace sprintf('%d', ...) by sprintf('%u', ...)
0.01 - 2013-05-24T12:00:00+01:00
[ENHANCEMENTS]
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
my @c = caller();
if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
}
# In automated testing, always use defaults
if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
local $ENV{PERL_MM_USE_DEFAULT} = 1;
goto &ExtUtils::MakeMaker::prompt;
} else {
goto &ExtUtils::MakeMaker::prompt;
view release on metacpan or search on metacpan
lib/Acme/Numbers.pm view on Meta::CPAN
and a burning curiosity. At leats, I hope the burning
was curiosity.
=head1 ONE BIIIIIIIIIIIILLION
By default billion is 10**12 because, dammit, that's right.
If you want it to be an American billion then do
use Acme::Numbers billion => 10**9;