##
my @rules_lpo = (
default => sub {
$_[0] => $_[1]->{_content};
print "$_[0] : $_[1]->{_content}\n";
},
'summary' => sub {
$insummary = 1;
},
'detail1' => sub {
$ind1 = 1;
$insummary = 0;
},
'detail2' => sub {
$ind2 = 1;
$ind1 = 0;
},
'item' => sub {
if ($insummary) {
$sumvalue = $_[1]->{value};
}
if ($ind1) {
$d1value = $_[1]->{value};
}
if ($ind2) {
$d2value = $_[1]->{value};
}
}
);