@@ -0,0 +1,25 @@ | |||||
#!/usr/bin/perl | |||||
use warnings; | |||||
use strict; | |||||
package MNU; | |||||
sub prompt(){ | |||||
printf("> "); | |||||
my $in; | |||||
$in = <STDIN>; | |||||
chomp $in; | |||||
return $in; | |||||
} | |||||
sub loop(){ | |||||
my $in = prompt(); | |||||
return 0 unless $in; | |||||
return 0 if $in eq "quit"; | |||||
return 1; | |||||
} | |||||
return 1; |
@@ -0,0 +1,12 @@ | |||||
#!/usr/bin/perl | |||||
use warnings; | |||||
use strict; | |||||
use lib "./"; | |||||
use MNU; | |||||
while(MNU->loop()){ | |||||
} | |||||