1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../../";
use t::scan::Util;
test(<<'TEST'); # MAKAROW/ARSObject-0.57/lib/ARSObject.pm
sub cgitfrm { # table form layot
# -form =>{form attrs}, -table=>{table attrs}, -tr=>{tr attrs}, -td=>{}, -th=>{}
my ($s, %a) =$_[0];
my $i =1;
while (ref($_[$i]) ne 'ARRAY') {$a{$_[$i]} =$_[$i+1]; $i +=2};
$s->cgi->start_form(-method=>'POST',-action=>'', $a{-form} ? %{$a{-form}} : ())
# ,-name=>'test'
.$s->{-cgi}->table($a{-table} ? $a{-table} : (), "\n"
.join(''
, map { my $r =$_;
$s->{-cgi}->Tr($a{-tr} ? $a{-tr} : (), "\n"
.join(''
, map { ($_ =~/^</
? $s->{-cgi}->td($a{-td} || {-align=>'left', -valign=>'top'}, $_)
: $s->{-cgi}->th($a{-th} || $a{-td} || {-align=>'left', -valign=>'top'}, $_)
) ."\n"
} @$r)
) ."\n"
} @_[$i..$#_])) ."\n"
.$s->cgi->end_form()
}
TEST
test(<<'TEST'); # BRICAS/Games-NES-Emulator-0.03/lib/CPU/Emulator/6502/Op/DEY.pm
sub dey {
my $self = shift;
my $reg = $self->registers;
$reg->{ y } = ( $reg->{ y } - 1 ) & 0xff;
$self->set_nz( $reg->{ y } );
}
TEST
test(<<'TEST'); # ANNO/Vi-QuickFix-1.134/lib/Vi/QuickFix.pm
unless ( caller ) {
# process <> if called as an executable
exec_mode(1); # signal fact ( to END processing)
require Getopt::Std;
Getopt::Std::getopts( 'q:f:v', \ my %opt);
print "$0 version $VERSION\n" and exit 0 if $opt{ v};
err_open( $opt{ q} || $opt{ f});
print && err_out( $_) while <>;
exit;
}
TEST
done_testing;
|
