Lines Matching refs:opt
12 our ($warning, $opt_f, $opt_i, $opt_o, $opt_x, $opt_y, %opt);
23 getopt 'il', \%opt;
26 ok( $opt{h} && $opt{i} eq 'j', 'option -h and -i correctly set' );
27 ok( !defined $opt{l}, 'option -l not set' );
39 %opt = (); $opt_i = undef;
42 ok( getopts('hi:kl', \%opt), 'getopts succeeded (2)' );
44 ok( $opt{h} && $opt{k}, 'options -h and -k set' );
45 is( $opt{i}, 'j', q/option -i is 'j'/ );