diff options
Diffstat (limited to 'test/module')
| -rwxr-xr-x | test/module/test.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test/module/test.pl b/test/module/test.pl index 1fad6c7..0d5a9d0 100755 --- a/test/module/test.pl +++ b/test/module/test.pl @@ -8,10 +8,13 @@ STDOUT->autoflush(1); my $train; my $test; +my $wait; +my $buzz; GetOptions ( "train" => \$train, "test" => \$test, "wait" => \$wait, + "buzz" => \$buzz, ) or die("Error in command line arguments\n"); @@ -35,6 +38,13 @@ if ($train) { print "$i...\n"; sleep 1; } +} elsif ($buzz) { + print "we are buzzing!!!!!\n"; + for (my $i = 0; $i < 7; $i++) { + print "$i...!\n"; + sleep 1; + } + print "catch the buzzz!\n"; } else { die "unknown command!"; } |
