%args> $nt_residue $nt_residue_long $nt_moiety $aa_residue $aa_residue_long $aa_moiety $aa_moiety_long $pdb_id $fam_number $fam_label $interaction_number $interaction_label %aa_residues %nt_residues %aa_moieties %nt_moieties @families %pdbs %args> <%method .filler> <%args> $text $length => 17 %args> % my $fill = $length - length($text); % for (my $i = 0; $i < $fill; $i++) % { % $text .= " "; % } % print $text; %method> <%method .family_filler> <%args> $text $number $length => 17 %args> % my $fill = $length - length($text) - length($number) - 2; % for (my $i = 0; $i < $fill; $i++) % { % $text .= " "; % } % print $text . "(" . $number . ")"; %method>
<% $nt_moiety %> / <% $aa_moiety_long %>
<% "$interaction_number $interaction_label" %>
in <% "$fam_number $fam_label" %>