Initial commit
This commit is contained in:
12
lib/fortune.pm
Normal file
12
lib/fortune.pm
Normal file
@@ -0,0 +1,12 @@
|
||||
package fortune;
|
||||
|
||||
use strict;
|
||||
use vars qw/$VERSION/;
|
||||
|
||||
$VERSION = "1.0";
|
||||
|
||||
sub quote {
|
||||
return ('200', 'text/plain', `fortune`);
|
||||
}
|
||||
|
||||
1;
|
||||
Reference in New Issue
Block a user