Lines Matching refs:lnk
18 %lnk = ();
19 print "ok 1\n" if GetOptions (\%lnk, "foo", "Foo=s");
20 print ((defined $lnk{foo}) ? "" : "not ", "ok 2\n");
21 print (($lnk{foo} == 1) ? "" : "not ", "ok 3\n");
22 print ((defined $lnk{Foo}) ? "" : "not ", "ok 4\n");
23 print (($lnk{Foo} eq "-baR") ? "" : "not ", "ok 5\n");
26 print (!(exists $lnk{baR}) ? "" : "not ", "ok 8\n");
30 %lnk = ();
32 print "ok 9\n" if GetOptions (\%lnk, "foo" => \$foo, "Foo=s");
35 print ((defined $lnk{Foo}) ? "" : "not ", "ok 12\n");
36 print (($lnk{Foo} eq "-baR") ? "" : "not ", "ok 13\n");
39 print (!(exists $lnk{foo}) ? "" : "not ", "ok 16\n");
40 print (!(exists $lnk{baR}) ? "" : "not ", "ok 17\n");
41 print (!(exists $lnk{bar}) ? "" : "not ", "ok 18\n");
45 %lnk = ();
47 print "ok 19\n" if GetOptions (\%lnk, "bar" => \$bar, "Foo=s");
50 print ((defined $lnk{Foo}) ? "" : "not ", "ok 22\n");
51 print (($lnk{Foo} eq "-baR") ? "" : "not ", "ok 23\n");
54 print (!(exists $lnk{foo}) ? "" : "not ", "ok 26\n");
55 print (!(exists $lnk{baR}) ? "" : "not ", "ok 27\n");
56 print (!(exists $lnk{bar}) ? "" : "not ", "ok 28\n");
59 %lnk = ();
65 %lnk = ();
67 GetOptions (\%lnk, "bar" => \$bar, "Foo=s");
70 %lnk = ();
75 GetOptions (\%lnk, "bar" => \$bar, "Foo=s");
77 print ((defined $lnk{Foo}) ? "" : "not ", "ok 31\n");
78 print (($lnk{Foo} eq "-baR") ? "" : "not ", "ok 32\n");
85 my $blessed = bless(\%lnk, "OverLoad::Test");
89 print "not" unless GetOptions (\%lnk, "foo=s" => \$foo);