view release on metacpan or  search on metacpan

lib/A1z/HTML5/Template.pm  view on Meta::CPAN

2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
# 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

LICENSE  view on Meta::CPAN

210
211
212
213
214
215
216
217
218
219
220
 
                     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
possible use to humanity, the best way to achieve this is to make it
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

87
88
89
90
91
92
93
94
95
96
97
=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

198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
# 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

548
549
550
551
552
553
554
555
556
557
=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

574
575
576
577
578
579
580
581
582
583
584
 
=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

598
599
600
601
602
603
604
605
606
607
608
 
David 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

Changes  view on Meta::CPAN

1
2
3
4
5
6
7
Revision 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

Build.PL  view on Meta::CPAN

15
16
17
18
19
20
21
22
23
    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

343
344
345
346
347
348
349
350
351
352
353
    $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

437
438
439
440
441
442
443
444
445
446
447
sub 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

459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
{
    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

Changes  view on Meta::CPAN

2
3
4
5
6
7
8
9
10
11
 
Revision 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

MANIFEST  view on Meta::CPAN

4
5
6
7
8
9
10
11
12
13
14
README
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

33
34
35
36
37
38
39
40
41
42
    );
 
=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

9
10
11
12
13
14
15
16
17
18
 
package AC::Yenta::Store::Tokyo;
use AC::Yenta::Debug '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

19
20
21
22
23
24
25
26
27
28
29
May 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

92
93
94
95
96
97
98
99
100
101
102
}
 
 
=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

19
20
21
22
23
24
25
26
27
28
May 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

91
92
93
94
95
96
97
98
99
100
101
}
 
 
=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.pm  view on Meta::CPAN

15
16
17
18
19
20
21
22
23
24
May 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

lib/ACH.pm  view on Meta::CPAN

125
126
127
128
129
130
131
132
133
134
135
}
 
 
=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

Changes  view on Meta::CPAN

15
16
17
18
19
20
21
22
23
24
25
 
0.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

MANIFEST  view on Meta::CPAN

10
11
12
13
14
15
16
t/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

1
2
3
4
5
6
7
8
package ACME::CPANPLUS::Module::With::Core::PreReq;
$ACME::CPANPLUS::Module::With::Core::PreReq::VERSION = '0.06';
#ABSTRACT: Fake module with a prereq that is a core module for testing CPANPLUS
 
use strict;
use warnings;
 
qq[Nobody here but us chickens];

lib/ACME/CPANPLUS/Module/With/Core/PreReq.pm  view on Meta::CPAN

13
14
15
16
17
18
19
20
21
22
 
=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

28
29
30
31
32
33
34
35
36
37
 cpanp -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

META.json  view on Meta::CPAN

36
37
38
39
40
41
42
43
44
45
46
      "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

META.json  view on Meta::CPAN

36
37
38
39
40
41
42
43
44
45
46
      "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

test.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# 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; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}
use ACME::Error::31337;
$loaded = 1;
print "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

test.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# 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; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}
use ACME::Error::Coy;
$loaded = 1;
print "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

test.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# 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; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}
use ACME::Error::HTML;
$loaded = 1;
print "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

test.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# 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; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}
use ACME::Error::IgpayAtinlay;
$loaded = 1;
print "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

test.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# 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; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}
use ACME::Error::Translate;
$loaded = 1;
print "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

test.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# 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; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}
use ACME::Error;
$loaded = 1;
print "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

README  view on Meta::CPAN

16
17
18
19
20
21
22
23
24
25
26
 
To 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

Changes  view on Meta::CPAN

6
7
8
9
10
11
                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

README  view on Meta::CPAN

16
17
18
19
20
21
22
23
24
25
26
 
To 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

README  view on Meta::CPAN

16
17
18
19
20
21
22
23
24
25
26
 
To 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

796
797
798
799
800
801
802
803
804
805
806
807
my $sq = ACME::QuoteDB->new;
 
print $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'
print $sq->get_quotes_contain({
              Contain   => 'wookie', 

lib/ACME/QuoteDB.pm  view on Meta::CPAN

1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
 
 
=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

1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
  "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

1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
# 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, 
create use case, etc) 

lib/ACME/QuoteDB.pm  view on Meta::CPAN

1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
(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

1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
 
=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

1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
Q: 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

README  view on Meta::CPAN

16
17
18
19
20
21
22
23
24
25
26
 
To 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