Szerkesztő:UTF46/src/editor/probalapappend.pm

editor/probalapappend.pm forráskódja

package editor::probalapappend;
use utf8;
use strict;
use warnings;

sub new {bless {},shift};

sub automata {
	my $self=shift;
	return 1;
};

sub edit {
	my $self=shift;
	my $title=shift;
	my $text=shift;
	$text .= "\npage append success at ".time."<br/>\n";
	return {
		summary=>"proba-append",
		text=>$text,
		notminor=>1,
		nocreate=>1,
	};
};

1;

en:WTFPL