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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
use Test::More 'no_plan';
BEGIN {
require 5.006_001 or plan 'skip_all';
close *STDERR;
open *STDERR, '>', \my $stderr;
*CORE::GLOBAL::exit = sub { die $stderr };
}
BEGIN {
$INFILE = $0;
$OUTFILE = $0;
$LEN = -42;
$H = 2;
$W = -10;
$TIMEOUT = 7;
@ARGV = (
'-v',
"-out=$OUTFILE",
'size', "${H}x${W}",
'-i', $INFILE,
'-lgth', $LEN,
'--timeout', $TIMEOUT,
);
}
if (eval { require Getopt::Euclid and Getopt::Euclid->import(); 1 }) {
ok 0 => 'Unexpectedly succeeded';
}
else {
like $@, qr/<l> must be > 0 but/ => 'Failed as expected';
}
__END__
=head1 NAME
orchestrate - Convert a file to Melkor's .orc format
=head1 VERSION
This documentation refers to orchestrate version 1.9.4
=head1 USAGE
orchestrate -in source.txt --out dest.orc -verbose -len=24
=head1 REQUIRED ARGUMENTS
=over
=item -i[nfile] [=]<file>
Specify input file
=for Euclid:
file.type: readable
file.default: '-'
=item -o[ut][file]= <file>
Specify output file
=for Euclid:
file.type: writable
file.default: '-'
=back
=head1 OPTIONS
=over
=item size <h>x<w>
Specify height and width
=item -l[[en][gth]] <l>
Display length [default: 24 ]
=for Euclid:
l.type: int > 0
l.default: 24
=item -v[erbose]
Print all warnings
=item --timeout [<min>] [<max>]
=for Euclid:
min.type: int
max.type: int
=item --version
=item --usage
=item --help
=item --man
Print the usual program information
=back
=begin remainder of documentation here...
=end
=head1 AUTHOR
Damian Conway (damian@conway.org)
=head1 BUGS
There are undoubtedly serious bugs lurking somewhere in this code.
Bug reports and other feedback are most welcome.
=head1 COPYRIGHT
Copyright (c) 2002, Damian Conway. All Rights Reserved.
This module is free software. It may be used, redistributed
and/or modified under the terms of the Perl Artistic License
(see http://www.perl.com/perl/misc/Artistic.html)
|
