use File::ShareDir qw( dist_file );
use File::Spec;
use File::Slurp;
use Pod::Simple::Search;
use JSON::XS;
use Path::Class::File;
use Pod::POM;
use XML::Simple;
use LWP::Simple;
use List::MoreUtils q
=> $data->{matches}};
while(my($k,$v) = each %{$output->{module}}) {
}
$c->res->body(encode_json($data));
}
sub module : Local {
my ( $self, $c, $module ) = @_;
my $search = Pod::Simple::Sea
arser->parse($source);
$toc = $view->print($pom);
return encode_json( _toc_to_json( [], split( /\n/, $toc ) ) );
}
sub _toc_to_json {
my $tree = shift;
my @sections = @_;
my @uniq = uniq