view release on metacpan or search on metacpan
lib/A1z/HTML5/Template.pm view on Meta::CPAN
view all matches for this distribution
2294229522962297229822992300230123022303# include write_file if you submit form to the same file ( TemplateAdmin.cgi )
say
$h
->body_article(
header
=>
"<a href='$sys{cgiurl}/TemplateAdmin.cgi' title='Refresh to get the latest/saved content'>Refresh</a> "
,
content
=>
$h
->write_file(
file
=>
"/absolute/path/to/app/open_file_example.txt"
)
);
view release on metacpan or search on metacpan
view all matches for this distribution
210211212213214215216217218219220
END OF TERMS AND CONDITIONS
Appendix: How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
free software which everyone can redistribute and change under these
terms.
To
do
so, attach the following notices to the program. It is safest to
view release on metacpan or search on metacpan
inc/Devel/CheckLib.pm view on Meta::CPAN
8788899091929394959697=head2 assert_lib
This takes several named parameters, all of which are optional, and dies
with an error message if any of the libraries listed can
not be found. B<Note>: dying in a Makefile.PL or Build.PL may provoke
a 'FAIL' report from CPAN Testers' automated smoke testers. Use
C<check_lib_or_exit> instead.
The named parameters are:
=over
inc/Devel/CheckLib.pm view on Meta::CPAN
198199200201202203204205206207208209210211212# borrowed from Text::ParseWords
sub
_parse_line {
my
(
$delimiter
,
$keep
,
$line
) =
@_
;
my
(
$word
,
@pieces
);
no
warnings
'uninitialized'
;
# we will be testing undef strings
while
(
length
(
$line
)) {
# This pattern is optimised to be stack conservative on older perls.
# Do not refactor without being careful and testing it on very long strings.
# See Perl bug #42980 for an example of a stack busting input.
$line
=~ s/^
(?:
# double quoted string
(")
# $quote
inc/Devel/CheckLib.pm view on Meta::CPAN
548549550551552553554555556557=head1 PLATFORMS SUPPORTED
You must have a C compiler installed. We check for C<$Config{cc}>,
both literally as it is in Config.pm and also in the $PATH.
It has been tested with varying degrees of rigorousness on:
=over
=item gcc (on Linux, *BSD, Mac OS X, Solaris, Cygwin)
inc/Devel/CheckLib.pm view on Meta::CPAN
574575576577578579580581582583584=head1 WARNINGS, BUGS and FEEDBACK
This is a very early release intended primarily for feedback from
people who have discussed it. The interface may change and it has
not been adequately tested.
Feedback is most welcome, including constructive criticism.
Bug reports should be made using L<http://rt.cpan.org/> or by email.
When submitting a bug report, please include the output from running:
inc/Devel/CheckLib.pm view on Meta::CPAN
view all matches for this distribution
598599600601602603604605606607608David Golden E<lt>dagolden
@cpan
.orgE<gt>
Yasuhiro Matsumoto E<lt>mattn
@cpan
.orgE<gt>
Thanks to the cpan-testers-discuss mailing list
for
prompting us to
write
it
in the first place;
to Chris Williams
for
help
with
Borland support;
to Tony Cook
for
help
with
Microsoft compiler command-line options
view release on metacpan or search on metacpan
view all matches for this distribution
1234567Revision history
for
AAAA-Mail-SpamAssassin
0.002 2012-12-14
- POD cleanup and minimal test
0.001 2012-12-12
- initial CPAN release
view release on metacpan or search on metacpan
view all matches for this distribution
151617181920212223
requires
=> {},
pm_files
=> {
"aaa/AAAAAAAAA.pm"
=>
"lib/AAAAAAAAA.pm"
},
test_files
=>
"a/*.a"
,
);
$builder
->create_build_script;
view release on metacpan or search on metacpan
lib/AAC/Pvoice/Panel.pm view on Meta::CPAN
343344345346347348349350351352353
$self
->{tls}->Add(
$rowsizer
, 0, wxALIGN_CENTRE, 0);
$self
->{textrowsizer} =
$rowsizer
;
$self
->{text}->SetValue(
my
$x
=
$self
->RetrieveText);
$self
->{text}->SetStyle(0,
length
(
$self
->{text}->GetValue),
$self
->{ta});
$self
->{text}->Refresh();
# Added to test it on the Mercury...added text
# isn't visible there...
}
$self
->{title}->SetBackgroundColour(
$self
->BackgroundColour)
unless
$self
->{disabletitle};
$self
->{tls}->AddGrowableCol(0);
lib/AAC/Pvoice/Panel.pm view on Meta::CPAN
437438439440441442443444445446447sub
DisplayAddText
{
my
$self
=
shift
;
push
@{
$self
->{displaytextsave}},
$_
[0];
$self
->{text}->AppendText(
$_
[0]);
$self
->{text}->Refresh();
# Added to test it on the Mercury...added text
# isn't visible there...
}
sub
SpeechAddText
{
lib/AAC/Pvoice/Panel.pm view on Meta::CPAN
view all matches for this distribution
459460461462463464465466467468469470471472473474475476477478479480{
my
$self
=
shift
;
$self
->{displaytextsave}=[];
$self
->{speechtextsave}=[];
$self
->{text}->SetValue(
''
);
$self
->{text}->Refresh();
# Added to test it on the Mercury...added text
# isn't visible there...
}
sub
BackspaceText
{
my
$self
=
shift
;
pop
@{
$self
->{displaytextsave}};
pop
@{
$self
->{speechtextsave}};
$self
->{text}->SetValue(
my
$x
=
$self
->RetrieveText);
$self
->{text}->SetStyle(0,
length
(
$self
->{text}->GetValue),
$self
->{ta});
$self
->{text}->Refresh();
# Added to test it on the Mercury...added text
# isn't visible there...
}
sub
SpeechRetrieveText
{
view release on metacpan or search on metacpan
view all matches for this distribution
234567891011Revision history
for
Perl extension ABI.
1.0 Sat Nov 18 04:22:53 2006
- Changed to Module::Build
system
- Added test data
- Changed to Test::More
- Access to user modified sequence
- Access to user modified basecalls
view release on metacpan or search on metacpan
view all matches for this distribution
4567891011121314README
t/ABNF-Grammar.t
t/ABNF-Validator.t
t/ABNF-Generator-Liar.t
t/ABNF-Generator-Honest.t
t/data/test.abnf
lib/ABNF/Grammar.pm
lib/ABNF/Validator.pm
lib/ABNF/Generator.pm
lib/ABNF/Generator/Liar.pm
lib/ABNF/Generator/Honest.pm
view release on metacpan or search on metacpan
lib/AC/MrGamoo/FileList.pm view on Meta::CPAN
view all matches for this distribution
33343536373839404142
);
=head1 IMPORTANT
You can fire up the system, and get the servers talking to each other, and
perform some limited tests without this file.
But you must provide this file in order to actually run map/reduce jobs.
=head1 DESCRIPTION
view release on metacpan or search on metacpan
lib/AC/Yenta/Store/Tokyo.pm view on Meta::CPAN
view all matches for this distribution
9101112131415161718package
AC::Yenta::Store::Tokyo;
use
strict;
# does not work on sparc (tests sigbus)
# new version does not compile with gcc 3.4.3
#
# faster average performance than BDB
# worse worst-case performance than BDB
view release on metacpan or search on metacpan
lib/ACH/Generator.pm view on Meta::CPAN
1920212223242526272829May 2006
=head1 DESCRIPTION
ACH::Generator is a simple, generic subclass of ACH used to generate ACH files.
It's intentional use is for testing purposes ONLY. ACH-Generator will allow a
developer to create an ACH formatted file.
=head1 USING ACH-Generator
use ACH::Generator;
lib/ACH/Generator.pm view on Meta::CPAN
view all matches for this distribution
9293949596979899100101102}
=head2 CAVEATS
This package is created for testing purposes only. It shouldn't be used
for production programs or scripts. There are other commercial products
out there that may be a more efficient solution for accomplishing your
goals.
All records in an ACH file must be formatted in the following sequence
view release on metacpan or search on metacpan
lib/ACH/Parser.pm view on Meta::CPAN
19202122232425262728May 2006
=head1 DESCRIPTION
ACH::Parser is a simple, generic ACH file to ACH object parser.
It's intentional use is for testing purposes ONLY. ACH-Parser will
allow a developer to look at the particular fields in an ACH formatted
file.
=head1 USING ACH-Parser
lib/ACH/Parser.pm view on Meta::CPAN
view all matches for this distribution
919293949596979899100101}
=head2 CAVEATS
This package is created for testing purposes only. It shouldn't be used
for production programs or scripts. There are other commercial products
out there that may be a more efficient solution for accomplishing your
goals.
All records in an ACH file must be formatted in the following sequence
view release on metacpan or search on metacpan
15161718192021222324May 2006
=head1 DESCRIPTION
ACH is a simple, generic perl object that contains the data necesary to
create an ACH file. It's intentional use is for testing purposes ONLY.
ACH will allow a developer to manipulate specific data fields in an ACH
formatted object.
=head1 USING ACH
view all matches for this distribution
125126127128129130131132133134135}
=head2 CAVEATS
This package is created for testing purposes only. It shouldn't be used
for production programs or scripts. There are other commercial products
out there that may be a more efficient solution for accomplishing your
goals.
All records in an ACH file must be formatted in the following sequence
view release on metacpan or search on metacpan
view all matches for this distribution
15161718192021222324250.0002 Wed May 22 15:57:12 2013 CEST
[BUG FIXES]
* Execute POD tests only during release testing.
[ENHANCEMENTS]
* Add permissions method to retrieve list or hash reference of
permissions.
view release on metacpan or search on metacpan
view all matches for this distribution
10111213141516t/acl.permit.txt
t/acl.reject.txt
t/action.txt
t/actions.txt
t/required.txt
t/test_acl.pl
META.yml Module meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
lib/ACME/CPANPLUS/Module/With/Core/PreReq.pm view on Meta::CPAN
lib/ACME/CPANPLUS/Module/With/Core/PreReq.pm view on Meta::CPAN
13141516171819202122=encoding UTF-8
=head1 NAME
ACME::CPANPLUS::Module::With::Core::PreReq - Fake module with a prereq that is a core module for testing CPANPLUS
=head1 VERSION
version 0.06
lib/ACME/CPANPLUS/Module/With/Core/PreReq.pm view on Meta::CPAN
view all matches for this distribution
28293031323334353637cpanp -i ACME::CPANPLUS::Module::With::Core::PreReq
=head1 DESCRIPTION
ACME::CPANPLUS::Module::With::Core::PreReq is a fake module that has a prerequisite of a core module
so I can test something in L<CPANPLUS> and L<CPANPLUS::YACSmoke>
No moving parts and nothing to see.
=head1 AUTHOR
view release on metacpan or search on metacpan
view all matches for this distribution
3637383940414243444546
"IPC::Open3"
:
"0"
,
"Test::More"
:
"0"
,
"Test::Pod"
:
"1.41"
}
},
"test"
: {
"recommends"
: {
"CPAN::Meta"
:
"2.120900"
},
"requires"
: {
"ExtUtils::MakeMaker"
:
"0"
,
view release on metacpan or search on metacpan
view all matches for this distribution
3637383940414243444546
"IPC::Open3"
:
"0"
,
"Test::More"
:
"0"
,
"Test::Pod"
:
"1.41"
}
},
"test"
: {
"recommends"
: {
"CPAN::Meta"
:
"2.120900"
},
"requires"
: {
"ExtUtils::MakeMaker"
:
"0"
,
view release on metacpan or search on metacpan
view all matches for this distribution
12345678910111213141516171819# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
######################### We start with some black magic to print on failure.
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
BEGIN { $| = 1;
"1..1\n"
; }
END {
"not ok 1\n"
unless
$loaded
;}
use
ACME::Error::31337;
$loaded
= 1;
"ok 1\n"
;
######################### End of black magic.
# Insert your test code below (better if it prints "ok 13"
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
view release on metacpan or search on metacpan
view all matches for this distribution
12345678910111213141516171819# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
######################### We start with some black magic to print on failure.
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
BEGIN { $| = 1;
"1..1\n"
; }
END {
"not ok 1\n"
unless
$loaded
;}
use
ACME::Error::Coy;
$loaded
= 1;
"ok 1\n"
;
######################### End of black magic.
# Insert your test code below (better if it prints "ok 13"
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
view release on metacpan or search on metacpan
view all matches for this distribution
12345678910111213141516171819# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
######################### We start with some black magic to print on failure.
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
BEGIN { $| = 1;
"1..1\n"
; }
END {
"not ok 1\n"
unless
$loaded
;}
use
ACME::Error::HTML;
$loaded
= 1;
"ok 1\n"
;
######################### End of black magic.
# Insert your test code below (better if it prints "ok 13"
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
view release on metacpan or search on metacpan
view all matches for this distribution
12345678910111213141516171819# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
######################### We start with some black magic to print on failure.
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
BEGIN { $| = 1;
"1..1\n"
; }
END {
"not ok 1\n"
unless
$loaded
;}
$loaded
= 1;
"ok 1\n"
;
######################### End of black magic.
# Insert your test code below (better if it prints "ok 13"
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
view release on metacpan or search on metacpan
view all matches for this distribution
12345678910111213141516171819# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
######################### We start with some black magic to print on failure.
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
BEGIN { $| = 1;
"1..1\n"
; }
END {
"not ok 1\n"
unless
$loaded
;}
$loaded
= 1;
"ok 1\n"
;
######################### End of black magic.
# Insert your test code below (better if it prints "ok 13"
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
view release on metacpan or search on metacpan
view all matches for this distribution
12345678910111213141516171819# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
######################### We start with some black magic to print on failure.
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
BEGIN { $| = 1;
"1..1\n"
; }
END {
"not ok 1\n"
unless
$loaded
;}
use
ACME::Error;
$loaded
= 1;
"ok 1\n"
;
######################### End of black magic.
# Insert your test code below (better if it prints "ok 13"
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
view release on metacpan or search on metacpan
view all matches for this distribution
1617181920212223242526To install this module, run the following commands:
perl Makefile.PL
make
make test
make install
SUPPORT AND DOCUMENTATION
After installing, you can find documentation
for
this module
with
the
view release on metacpan or search on metacpan
view all matches for this distribution
67891011
Fix POD encoding, disable initialize();
0.03 2009.04.03/ 21:26 CST
Fix few typo
0.04 2009.04.04/ 15:44 CST
added Perl6::Say in Makefile.PL
to avoid make test error on darwin <http://www.nntp.perl.org/group/perl.cpan.testers/2009/04/msg3617464.html>
view release on metacpan or search on metacpan
view all matches for this distribution
1617181920212223242526To install this module, run the following commands:
perl Makefile.PL
make
make test
make install
SUPPORT AND DOCUMENTATION
After installing, you can find documentation
for
this module
with
the
view release on metacpan or search on metacpan
view all matches for this distribution
1617181920212223242526To install this module, run the following commands:
perl Makefile.PL
make
make test
make install
SUPPORT AND DOCUMENTATION
After installing, you can find documentation
for
this module
with
the
view release on metacpan or search on metacpan
lib/ACME/QuoteDB.pm view on Meta::CPAN
796797798799800801802803804805806807my
$sq
= ACME::QuoteDB->new;
$sq
->get_quote;
# examples are based on quotes data in the test database.
# (see tests t/data/)
# get specific quote based on basic text search.
# search all 'ralph' quotes for string 'wookie'
$sq
->get_quotes_contain({
Contain
=>
'wookie'
,
lib/ACME/QuoteDB.pm view on Meta::CPAN
1085108610871088108910901091109210931094109510961097109810991100110111021103=head1 LOADING QUOTES
In order to actually use this module, one has to load quotes content,
hopefully this is relativly easy,... (see t/01-load_quotes.t in tests)
=over 4
=item 1 add_quote, one record at a time, probably within an iteration loop
see L</add_quote>
=item 1 (Batch Load) load quotes from a csv file. (tested with comma and tab delimiters)
format of file must be as follows: (headers)
"Quote", "Attribution Name", "Attribution Source", "Category", "Rating"
for example:
lib/ACME/QuoteDB.pm view on Meta::CPAN
11061107110811091110111111121113111411151116
"Sideshow Bob has no decency. He called me Chief Piggum. (laughs) Oh wait, I get it, he's all right."
,
"Chief Wiggum"
,
"The Simpsons"
,
"Humor"
,8
=item 1 if these dont suit your needs, ACME::QuoteDB::LoadDB is sub-classable,
so one can extract data anyway they like and populate the db themselves.
(there is a test that illustrates overriding the stub method, 'dbload')
you need to populate a record data structure:
$self->set_record(quote => q{}); # mandatory
$self->set_record(name => q{}); # mandatory
lib/ACME/QuoteDB.pm view on Meta::CPAN
11391140114111421143114411451146114711481149# Attr
# Quote
# Catg
# QuoteCatg
pod tests incorrectly state, Attr, Quote and Catg are subroutines, well they
are,... (as aliases) but act on a different object.
TODO: explore the above (is this a bug,
if
so, who's?, version effected,
lib/ACME/QuoteDB.pm view on Meta::CPAN
11951196119711981199120012011202120312041205(Since the
local
mode is sqlite3, the file doesn't even need to exist, just
needs
read
/
write
access to the path on the filesystem)
Set the environmental variable:
$ENV
{ACME_QUOTEDB_PATH} (untested on windows)
(this
has
to be set
before
trying a database load and also (everytime
before
using this module, obviouly)
Something such as:
lib/ACME/QuoteDB.pm view on Meta::CPAN
13131314131513161317131813191320132113221323=item 1 add a dump backup to csv
a backup mechanism for your db to a regular text csv file.
=item 1 clean up tests 'skip if module X' not installed
(one of sqlite3 or mysql is required). currently dies if DBD::SQLite not
installed
=item 1 support multiple categories from LoadDB
lib/ACME/QuoteDB.pm view on Meta::CPAN
view all matches for this distribution
14301431143214331434143514361437143814391440144114421443Q: Why did you put it in the ACME namespace?
A: Seemed appropriate. I emailed modules
@cpan
.org and didn't get a
different reaction.
Q: Why did you
write
this?
A: At a past company, a team I worked on a project
with
had a test suite,
in which at the completion of successful tests (100%), a
'wisenheimer'
success message would be printed. (Like a quote or joke or the like)
(Interestingly, it added a
'fun'
factor to testing, not that one is needed
of course ;). It was hard to justify spending company
time
to find and
add decent content to the hand rolled process, this would have helped.
Q: Don't you have anything better to
do
, like some non-trivial work?
A: Yup
view release on metacpan or search on metacpan
view all matches for this distribution
1617181920212223242526To install this module, run the following commands:
perl Build.PL
./Build
./Build test
./Build install
SUPPORT AND DOCUMENTATION
After installing, you can find documentation
for
this module
with
the