Szerkesztő:UTF46/src/generator/manual.pm
Megjelenés
generator/manual.pm forráskódja[szerkesztés]
package generator::manual;
use utf8;
use strict;
use warnings;
sub new {bless {},shift};
sub automata {
my $self=shift;
return 0;
};
sub todolist {
my $self=shift;
local $|=1;
my $title='';
while (not $title) {
print "title?:";
$title=<STDIN>;
};
return [$title];
};
1;