view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    Algorithm::Diff::HTMLTable - Show differences of a file as a HTML table

VERSION

    version 0.05

SYNOPSIS

        my $builder = Algorithm::Diff::HTMLTable->new(
           id       => 'diff_table',
           encoding => 'utf8',
        );
        
        $diff = $builder->diff( $sourcefile, $targetfile );

DESCRIPTION

METHODS

 new

        my $builder = Algorithm::Diff::HTMLTable->new(
           id       => 'diff_table',
           encoding => 'utf8',
        );

    Available options:

      * id

      * encoding

      * eol

lib/Algorithm/Diff/HTMLTable.pm  view on Meta::CPAN

Algorithm::Diff::HTMLTable - Show differences of a file as a HTML table

=head1 VERSION

version 0.05

=head1 SYNOPSIS

    my $builder = Algorithm::Diff::HTMLTable->new(
       id       => 'diff_table',
       encoding => 'utf8',
    );
    
    $diff = $builder->diff( $sourcefile, $targetfile );

=head1 DESCRIPTION

=head1 METHODS

=head2 new

    my $builder = Algorithm::Diff::HTMLTable->new(
       id       => 'diff_table',
       encoding => 'utf8',
    );

Available options:

=over 4

=item * id

=item * encoding

t/09_read_file.t  view on Meta::CPAN

{
    is $table->_read_file, undef, 'No file at all';
    is $table->_read_file({}), undef, 'Hashref is not accepted';
    is_deeply [$table->_read_file(['Test']) ], ['Test'], 'Arrayref - handled as lines';
    is_deeply [$table->_read_file([]) ], [], 'Arrayref - handled as lines';
    is $table->_read_file( '/does/not/exist/algorithm_diff_htmltable.t' ), undef;
}

{
    my $fh = File::Temp->new;
    binmode $fh, ':encoding(utf-8)';
    print $fh "Hallo\nTest";
    my $name = $fh->filename;
    close $fh;

    is_deeply [ $table->_read_file( $name ) ], ["Hallo\n", "Test"];
}

done_testing();