Szerkesztő:UTF46/src/generator/manual.pm

generator/manual.pm forráskódja

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;

en:WTFPL