view release on metacpan or search on metacpan
lib/Acme/Math/PerfectChristmasTree.pm view on Meta::CPAN
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE
LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL,
OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
SUCH DAMAGES.
view release on metacpan or search on metacpan
lib/Acme/Math/XS/LeanDist.pm view on Meta::CPAN
require Exporter;
use base 'Exporter';
our @EXPORT = qw(add subtract);
# Commented out for distribution by Inline::Module::LeanDist
#use Inline::Module::LeanDist C => 'DATA';
# XSLoader added for distribution by Inline::Module::LeanDist:
require XSLoader; XSLoader::load(__PACKAGE__, $VERSION);
1;
__DATA__
__C__
long add(long a, long b) {
return a + b;
}
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/3rd_rock.pm view on Meta::CPAN
patch to an existing test-file that illustrates the bug or desired
feature.
=cut
__DATA__
# default
:all
# names first
dick sally harry tommy mary nina don leon bug caryn pitman judith august alissa vicki rico lucy elman larry doug liam christine jennifer chaz janice ana ginger jill chuck martha eddie george phillip randy connie seth marty dorothy
# names last
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/all_in_the_family.pm view on Meta::CPAN
THE SOFTWARE.
=cut
__DATA__
# names
Archie_Bunker Edith_Bunker Gloria_Stivic Michael_Stivic
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/abba.pm view on Meta::CPAN
L<Acme::MetaSyntactic>, L<Acme::MetaSyntactic::List>.
=cut
__DATA__
# names
Anni_Frid_Lyngstad Bjorn_Ulvaeus Benny_Andersson Agnetha_Faltskog
view release on metacpan or search on metacpan
10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/always_sunny.pm view on Meta::CPAN
patch to an existing test-file that illustrates the bug or desired
feature.
=cut
__DATA__
# default
:all
# names first
charlie mac rob dee dennis glenn wendell frank cricket matthew artemis waitress manager bonnie bill jack luther bill liam ryan maureen ben rex angel z chet carmen lefty barbara principal hwang gail brad jimmy shelley bruce schmitty ingrid
# names last
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/boboiboy.pm view on Meta::CPAN
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# default
:all
# names tmp_all
boboiboy yaya fang ying gopal
tokaba papazola kokoci tarung kaizo maskmana motobot ramenman
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/breaking_bad.pm view on Meta::CPAN
patch to an existing test-file that illustrates the bug or desired
feature.
=cut
__DATA__
# default
:all
# names first
walter skyler jesse marie hank saul steven mike gus skinny pete todd ted lydia badger george huell tyrus jane carmen andrea francesca tio victor brock gale jack kenny leonel frankie gratchen kuby bogdan combo marco kaylee lester matt tuco donald tim ...
# names last
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/buzzwords.pm view on Meta::CPAN
=cut
1;
__DATA__
# names
alignment at_the_end_of_the_day buzzword disconnect empowerment
exit_strategy face_time generation_x globalization grow_the_business
impact interflop leverage on_the_runway ogranic_growth outside_the_box
paradigm paradigm_shift proactive sea_change spin_up streamline synergy
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/chinese_zodiac.pm view on Meta::CPAN
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# default
zodiac
# names zodiac
snake horse goat monkey rooster dog pig rat ox tiger rabbit dragon
# names element
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/christmas.pm view on Meta::CPAN
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# default
:all
# names santa
santa saint clause nicholas nick kris kringle santy
# names elf
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/corner_gas.pm view on Meta::CPAN
patch to an existing test-file that illustrates the bug or desired
feature.
=cut
__DATA__
# default
:all
# names first
brent lacey hank oscar emma davis karen wanda fitzy josh wes paul mertyl phil
# names last
view release on metacpan or search on metacpan
10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS
view release on metacpan or search on metacpan
10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/daleks.pm view on Meta::CPAN
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut
__DATA__
# names
A_Beautiful_Dalek
A_Clockwork_Dalek
A_Connecticut_Dalek_in_King_Arthur_s_Court
A_Connecticut_Yankee_in_King_Arthur_s_Dalek
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/dangdut.pm view on Meta::CPAN
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# default
:all
# names first
rhoma elvy rita cita mansyur hamdan meggy muchsin itje jaja camelia iis evie mega vety cucu cici lilis nini fitri annisa juwita inul alam ria zaskia ayu jenita alam
# names last
view release on metacpan or search on metacpan
10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/dune.pm view on Meta::CPAN
=cut
1;
__DATA__
# default
:all
# names bene_gesserit
abomination accadia acolyte alma_mavis_taraza aloana_streggi anirul archives_mother aver_yohsa awareness_spectrum azhar_book baram bellonda bene_gesserit_training breeding_program burzmali calissa carlana cassius_ida_treac chapterhouse cienna clairby...
# names creatures
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/frasier.pm view on Meta::CPAN
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# default
:all
# names first
frasier daphne niles roz martin eddie bulldog kenny gil noel gertrude donny lilith james bebe mel ronee alice julia frederick simon lana sherry kirby charlotte kate
# names last
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/gavan.pm view on Meta::CPAN
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# default
:all
# names good
gavan mimi qom marin voicer alan deniga tsukiko hoshino kojiro oyama gosuke
fuji wakaba yoichi shigeru touyama
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/id_beverages.pm view on Meta::CPAN
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# default
:all
# names beverages
bajigur bandrek tubrik tarik sekoteng serbat stmj talua wedang pletok dadiah
cendol cincau dawet goyobod doger siwalan puter lahang legen cukrik ciu tuak
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/id_dishes.pm view on Meta::CPAN
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# default
:all
# names dishes
arsika geprek kalasan penyet taliwang bakso bakmi bakwan betutu botok tinutuan
burgo capcai kwetiau cwiemie gepuk gadogado fuyunghai gudeg gulai karedok
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/id_names.pm view on Meta::CPAN
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# names
dwi muhammad nur dewi tri dian sri putri eka sari ayu wahyu indah siti ika agus
fitri ratna andi agung ahmad kurniawan i budi adi eko nurul putra ni arif
puspita ari indra dyah rizki maria ratih pratiwi kartika wulandari fajar bayu
lestari anita muhamad kusuma rahmawati fitria retno kurnia novita aditya ria
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/legobatman.pm view on Meta::CPAN
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# names
Ace_the_Bat_hound
Adam_West
Alfred
Ambush_Bug
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/legocityundercover.pm view on Meta::CPAN
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# names
Air_Host
Air_Hostess
Airline_Attendant_1
Airline_Attendant_2
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/legodcsupervillains.pm view on Meta::CPAN
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# names
Adam_Strange
Alfred_Pennyworth
Anti_Monitor
Aqualad
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/legoharrypotter.pm view on Meta::CPAN
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# names
aberforth_dumbledore
albert_runcorn
aleeto_carrow
alicia_spinnet
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/legoindianajones.pm view on Meta::CPAN
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
# names
Agent
Agent_Spalko
Bandit
Bandit_Swordsman
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic.pm view on Meta::CPAN
my $callpkg = caller;
*{"$callpkg\::meta$theme"} = sub { $meta->name( $theme, @_ ) };
}
}
# load the content of __DATA__ into a structure
# this class method is used by the other Acme::MetaSyntactic classes
sub load_data {
my ($class, $theme ) = @_;
my $data = {};
my $fh;
{ no strict 'refs'; $fh = *{"$theme\::DATA"}{IO}; }
my $item;
my @items;
$$item = "";
lib/Acme/MetaSyntactic.pm view on Meta::CPAN
s/#.*//; # remove end-of-line comments
$$item .= $_;
}
}
# avoid leaving all the DATA handles open
close $fh;
# clean up the items
for( @items, $item ) {
$$_ =~ s/\A\s*//;
lib/Acme/MetaSyntactic.pm view on Meta::CPAN
C<Acme::MetaSyntactic::List> behaviour.
=item load_data( $data )
This method is used by the "behaviour" classes (such as
C<Acme::MetaSyntactic::List>) to read the content of the C<DATA>
filehandle and fetch the theme data.
The format is very simple. If the C<DATA> filehandle contains the
following data:
# names
bam zowie plonk
powie kapow # comment
lib/Acme/MetaSyntactic.pm view on Meta::CPAN
For example, C<Acme::MetaSyntactic::List> uses the single parameter C<names>
to fetch the lists of names for creating its subclasses.
The C<init()> method in all "behaviour" classes will also accept an optional
C<$data> hashref and if it provided, will use it instead of reading the
C<__DATA__> section of the module. The actual structure of the hashref
depends on the C<Acme::MetaSyntactic::> class.
=back
Convenience methods also exists for all the themes. The methods are named