Szerkesztő:UTF46/src/checker/plaindiff.pm
Megjelenés
checker/plaindiff.pm forráskódja[szerkesztés]
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;