Szerkesztő:UTF46/src/checker/plaindiff.pm

checker/plaindiff.pm forráskódja

package checker::plaindiff;
use utf8;
use strict;
use warnings;

sub new {bless {},shift};

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

sub check {
	my $self=shift;
	my $title=shift;
	my $old=shift;
	my $new=shift;
	my $summary=shift;
	print "OLD\n$old\nNEW\n$new\nLOG:$summary\n";
	local $|=1;
	print "$title OK?";
	my $ok=<STDIN>;
	return $ok;
};

1;

en:WTFPL