Lines Matching refs:reply
27 my $reply = <STDIN>; chomp($reply);
30 $reply =~ /^f\s*/ and do
32 my $class = (split(' ', $reply))[1];
44 $reply =~ /^d\s*/ and do
46 my $class = (split(' ', $reply))[1];
58 $reply =~ /^t\s*/ and do
60 my $file = (split(' ', $reply))[1];
73 $reply eq 'v' and do
86 $reply eq 'q' and do
110 my $reply = <STDIN>; chomp($reply);
113 $reply eq 'l' and do
118 $reply =~ /^m\s+/ and do
120 do_module((split(' ', $reply))[1]);
123 $reply eq 'q' and do