Fixed Interfaces module

.gitignore

@@ -1,4 +1,5 @@
 syntax: glob
+.build/*
 blib*
 Makefile
 Makefile.old

Changes

@@ -1,3 +1,8 @@
 Revision history for {{$dist->name}}
 
 {{$NEXT}}
+    Fix for the Interfaces.pm module, all is in order now.
+
+
+1.16      2011-04-25 04:39:25 Asia/Jakarta
+    The interface.json file got removed in favor as including it as a module

extra/Interfaces.pm-template

@@ -0,0 +1,8 @@
+use strict;
+use warnings;
+package Net::Disqus::Interfaces;
+
+# this got turned into a module since bundling a json file is often
+# a pain in the you-know-whatsit - plus I forgot to add it to the Dist::Zilla
+# distribution last time, so as a module at least it get picked up all the time 
+# regardless. 

extra/build.pl

@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+use strict;
+use IO::File;
+use JSON::XS;
+use Data::Dumper;
+
+my $interfaces;
+my $fh = IO::File->new('./interfaces.json');
+{ 
+    local $/;
+    $interfaces = <$fh>;
+}
+$fh->close();
+
+my $json = decode_json($interfaces);
+
+$Data::Dumper::Indent = 0;
+$Data::Dumper::Terse = 1;
+$Data::Dumper::Deepcopy = 1;
+
+$fh = IO::File->new('./Interfaces.pm-template');
+my $out = IO::File->new('>../lib/Net/Disqus/Interfaces.pm');
+while(<$fh>) {
+    $out->print($_);
+}
+$fh->close();
+$out->print('sub INTERFACES { return ', Dumper($json), "; }\n\n1;\n");
+$out->close();