File: demo_quoted_data.pl

package info (click to toggle)
libperl6-form-perl 0.090-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 584 kB
  • sloc: perl: 3,080; makefile: 8
file content (21 lines) | stat: -rwxr-xr-x 477 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
use Perl6::Form;

my $bullet = "<>";

my @items = <DATA>;

for my $item (@items) {
	print form "{'{*}'} {[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[}",
		        $bullet,      $item;
}

__DATA__
A rubber sword, laminated with mylar to look suitably shiny.
Cotton tights (summer performances).
Woolen tights (winter performances or actors over 65 years).
Talcum powder.
Codpieces (assorted sizes).
Singlet.
Double.
Triplet (Kings and Emperors only).
Supercilious attitude (optional).