File Coverage

blib/lib/Text/WordDiff/HTML.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	2	2	100.0
condition			n/a
subroutine	10	10	100.0
pod	0	7	0.0
total	33	40	82.5

package Text::WordDiff::HTML;

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 $header = shift->SUPER::file_header(@_);
    return '' unless $header;
    return qq{$header};
}

sub hunk_header { return '' }
sub hunk_footer { return '' }
sub file_footer { return '' }

sub same_items {
    shift;
    return encode_entities( join '', @_ );
}

sub delete_items {
    shift;
    return '' . encode_entities( join'', @_ ) . '';
}

sub insert_items {
    shift;
    return '' . encode_entities( join'', @_ ) . '';
}

1;
__END__