#!/home/ben/software/install/bin/perl
use Z;
use Test::More;
use MetaCPAN::Client;
use JSON::Create 'create_json';
use Perl::Build::Pod qw!$mod_re see_also!;
# Read the file in & extract the section
v} = $fav->total ();
push @modules, \%info;
}
};
if ($@) {
print "error: $@";
}
my $mtext = create_json (\@modules, sort => 1, indent => 1);
write_text ("$Bin/see-also-info.json", $mtext);
bout "where's your DTD?" and similar nonsense.
=back
=back
=head1 DEPENDENCIES
=over
=item L<JSON::Parse>
This is used to read a file of options
=back
=head1 BUILD PROCESS
This module is builrs/;
%EXPORT_TAGS = (
all => \@EXPORT_OK,
);
use warnings;
use strict;
use Carp;
use JSON::Parse 'read_json';
our $VERSION = '0.09';
require XSLoader;
XSLoader::load ('HTML::Valid', $VERSION);
su my $ok_options_file = __FILE__;
$ok_options_file =~ s!Valid\.pm$!Valid/ok-options.json!;
return read_json ($ok_options_file);
}
my $ok_options;
sub set_option
{
my ($htv, $option, $valu