Subclassing example (Cont’d)

• sub _std_stylist {

• my ($rep, $row, $col) = @_;

• if ( $col ) {

• return { line_after => "=" }

• if $row eq "special" && $col =~ /^(deb|crd)$/;

• }

• else {

• return { line_after => 1 } if $row eq "total";

• }

• return;

• }