File: 06_diff.pl

package info (click to toggle)
libtm-perl 1.56-7
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 3,692 kB
  • ctags: 1,084
  • sloc: perl: 35,266; makefile: 48
file content (37 lines) | stat: -rw-r--r-- 622 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
my $a1 = <<EOM;
sacklpicka (cat)
bn: Der Sacklpicka
bn: Catbert

rho (person)
oc (blog): http://kill.devc.at/

whitey (unperson)
bn: The White-Haired Man
EOM

my $a2 = <<EOM;
sacklpicka (cat)
bn: Der Sacklpicka

rho (person)
bn: The Supermodel
oc (blog): http://kill.devc.at/

sharkbert (unperson)
bn: Sharky
EOM

use TM::Materialized::AsTMa;
my $tm1 = new TM::Materialized::AsTMa (inline => $a1);
$tm1->sync_in;
my $tm2 = new TM::Materialized::AsTMa (inline => $a2);
$tm2->sync_in;


use Data::Dumper;
$Data::Dumper::Indent = 1;
#warn Dumper $tm2->diff ($tm1);

warn Dumper $tm2->diff ($tm1, { include_changes => 1 } );