#!/usr/bin/perl

use strict;
use warnings;
use Text::Diff;
use List::Util qw( max );

my @one = <<END =~ /.*\n/g;
one
two
three
four
five
six
seven
eight
nine
ten
END

my @two = <<END =~ /.*\n/g;
one
twoplus
three
four
five
six
seven
eight
nine
tenminus
END

print "no CONTEXT specified:\n";
print diff \@one, \@two, {STYLE => 'Table' };

print "\nlarge CONTEXT specified:\n";
print diff \@one, \@two, {STYLE => 'Table', CONTEXT => max( $#one, $#two) };

##</code><code>##

no CONTEXT specified:
+--+-------+----------+
| 0|one    |one       |
* 1|two    |twoplus   *
| 2|three  |three     |
| 3|four   |four      |
| 4|five   |five      |
+--+-------+----------+
| 6|seven  |seven     |
| 7|eight  |eight     |
| 8|nine   |nine      |
* 9|ten    |tenminus  *
+--+-------+----------+

large CONTEXT specified:
+--+-------+----------+
| 0|one    |one       |
* 1|two    |twoplus   *
| 2|three  |three     |
| 3|four   |four      |
| 4|five   |five      |
| 5|six    |six       |
| 6|seven  |seven     |
| 7|eight  |eight     |
| 8|nine   |nine      |
* 9|ten    |tenminus  *
+--+-------+----------+