public
Description: the Rx schema and validation system
Homepage: http://rjbs.manxome.org/rx
Clone URL: git://github.com/rjbs/rx.git
rx / util / reindex.pl
100755 12 lines (8 sloc) 0.189 kb
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;
use warnings;
 
use File::Find::Rule;
use JSON::XS;
 
my @files = File::Find::Rule->file->in('spec');
my $json = JSON::XS->new->encode(\@files);
 
print "$json\n";