From fd955585943092bbdc2fa95a34c6c5e480f6edc0 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Thu, 7 Jan 2016 19:45:38 +0900
Subject: [PATCH] list avaialable constants for clarity

---
 util/constants.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/util/constants.pl b/util/constants.pl
index da3d04c..a60870b 100644
--- a/util/constants.pl
+++ b/util/constants.pl
@@ -197,5 +197,27 @@ You can import necessary SQLite constants from this module. Available tags are @
 
 This module does not export anything by default.
 
+\=head1 CONSTANTS
+
 END
+
+  for my $tag (sort keys %constants) {
+    next if $tag eq 'all';
+    print $fh <<"END";
+\=head2 $tag
+
+\=over 4
+
+END
+    for my $const (@{$constants{$tag}}) {
+      print $fh <<"END";
+\=item SQLITE_$const
+
+END
+    }
+    print $fh <<"END";
+\=back
+
+END
+  }
 }