From ed39d0548776b7017991eae6f89798fa3b8998ee Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 23 May 2007 20:03:16 +0000
Subject: [PATCH]  r1221@llin:  dpavlin | 2007-05-20 22:43:38 +0200  added
 delimiters_templates report

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@832 07558da8-63fa-0310-ba24-9fe276d99e06
---
 lib/WebPAC/Validate.pm    | 29 +++++++++++++++++++++++++++++
 t/1-validate-delimiters.t |  4 +++-
 2 files changed, 32 insertions(+), 1 deletion(-)

diff --git a/lib/WebPAC/Validate.pm b/lib/WebPAC/Validate.pm
index 5d59013..f356046 100644
--- a/lib/WebPAC/Validate.pm
+++ b/lib/WebPAC/Validate.pm
@@ -405,6 +405,35 @@ sub report {
 
 }
 
+=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> >>
diff --git a/t/1-validate-delimiters.t b/t/1-validate-delimiters.t
index 08c74ca..8006037 100755
--- a/t/1-validate-delimiters.t
+++ b/t/1-validate-delimiters.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Test::More tests => 4;
+use Test::More tests => 5;
 use Test::Exception;
 use blib;
 
@@ -64,3 +64,5 @@ is_deeply( $v->{_delimiters_templates}, {
 	901 => { "^a :  / ^b" => 2 },
 }, 'just subfields and delimiters');
 
+ok(my $dt = $v->delimiters_templates, 'delimiters_template');
+diag $dt;
-- 
2.20.1