}
+=head2 delimiters_templates
+
+
+=cut
+
+sub delimiters_templates {
+ my $self = shift;
+
+ my $t = $self->{_delimiters_templates};
+
+ my $log = $self->_get_logger;
+
+ unless ($t) {
+ $log->warn("called without delimiters");
+ return;
+ }
+
+ my $out;
+
+ foreach my $f (sort { $a <=> $b } keys %$t) {
+ $out .= "$f\n";
+ foreach my $sft (sort { $a cmp $b } keys %{ $t->{$f} }) {
+ $out .= "\t" . $t->{$f}->{$sft} . "\t$sft\n";
+ }
+ }
+
+ return $out;
+}
+
=head1 AUTHOR
Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>