File Coverage

blib/lib/Text/WordDiff/HTMLTwoLines.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	4	6	66.6
condition	2	3	66.6
subroutine	10	10	100.0
pod	0	7	0.0
total	57	67	85.0

package Text::WordDiff::HTMLTwoLines;

use strict;
use HTML::Entities qw(encode_entities);
use vars qw($VERSION @ISA);

$VERSION = '0.08';
@ISA = qw(Text::WordDiff::Base);

sub file_header {
	my $self = shift;
	my $fn1 = $self->filename_a;
	my $fn2 = $self->filename_b;

	if (defined $fn1 && defined $fn2)
	{	my $p1 = $self->filename_prefix_a;
		my $t1 = $self->mtime_a;
		my $p2 = $self->filename_prefix_b;
		my $t2 = $self->mtime_b;

		$self->{__str1} = ''
		. "$p1 $fn1" . (defined $t1 ? " " . localtime $t1 : '') . '';

		$self->{__str2} = ''
		. "$p2 $fn2" . (defined $t2 ? " " . localtime $t2 : '') . '';
	}
	else
	{	$self->{__str1} = $self->{__str2} = '';
	}
	return '';
}

sub hunk_header {
	my $self = shift;
	$self->{__str1} .= '';
	$self->{__str2} .= '';
	return '';
}
sub hunk_footer {
	my $self = shift;
	$self->{__str1} .= '';
	$self->{__str2} .= '';
	return '';
}

sub file_footer {
	my $self = shift;
	return $self->{__str1} . "\n" . $self->{__str2} . "\n";
}

sub same_items {
	my $self = shift;
	$self->{__str1} .= encode_entities( join '', @_ );
	$self->{__str2} .= encode_entities( join '', @_ );
	return '';
}

sub delete_items {
	my $self = shift;
	$self->{__str1} .= '' . encode_entities( join '', @_ ) . '';
	return '';
}

sub insert_items {
	my $self = shift;
	$self->{__str2} .= '' . encode_entities( join '', @_ ) . '';
	return '';
}

1;

__END__