App-CPANIDX

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  Config::Tiny: '2.12'
  DBD::SQLite: '1.29'
  DBI: '1.609'
  Date::Parse: '2.30'
  FCGI: '0.69'
  File::Fetch: '0.24'
  File::Path: '2.08'
  File::Spec: '3.31'
  HTML::Tiny: '1.05'
  IO::Zlib: '1.10'
  JSON::XS: '2.32'
  Module::CoreList::DBSchema: '0.06'
  Parse::CPAN::MirroredBy: '0.02'
  URI: '1.52'
  XML::Simple: '2.18'
  YAML::Tiny: '1.41'
  perl: 5.6.0
resources:
  homepage: https://github.com/bingos/app-cpanidx/
  license: http://dev.perl.org/licenses/
  repository: git://github.com/bingos/app-cpanidx.git

Makefile.PL  view on Meta::CPAN

requires 'CPAN::DistnameInfo' => '0.09';
requires 'Config::Tiny' => '2.12';
requires 'Date::Parse' => '2.30';
requires 'DBI' => '1.609';
requires 'FCGI' => '0.69';
requires 'File::Fetch' => '0.24';
requires 'File::Path' => '2.08';
requires 'File::Spec' => '3.31';
requires 'HTML::Tiny' => '1.05';
requires 'IO::Zlib' => '1.10';
requires 'JSON::XS' => '2.32';
requires 'Module::CoreList::DBSchema' => '0.06';
requires 'Parse::CPAN::MirroredBy' => '0.02';
requires 'URI' => '1.52';
requires 'XML::Simple' => '2.18';
requires 'YAML::Tiny' => '1.41';
requires 'DBD::SQLite' => '1.29';
recommends 'DBD::mysql' => '4.013';
feature 'MySQL Support', -default => 0, 'DBD::mysql' => '4.013';
auto_provides;
auto_install;

lib/App/CPANIDX/Renderer.pm  view on Meta::CPAN

package App::CPANIDX::Renderer;

use strict;
use warnings;
use YAML::Tiny;
use JSON::XS;
use XML::Simple;
use HTML::Tiny;
use vars qw[$VERSION];

$VERSION = '0.40';

my %types = (
  'yaml', 'application/x-yaml; charset=utf-8',
  'json', 'application/json; charset=utf-8',
  'xml',  'application/xml; charset=utf-8',

lib/App/CPANIDX/Renderer.pm  view on Meta::CPAN

my %renderers = (
  'yaml', sub {
                my $ref = shift;
                my $string;
                eval { $string = YAML::Tiny::Dump( $ref ); };
                return $string;
          },
  'json', sub {
                my $ref = shift;
                my $string;
                eval { $string = JSON::XS->new->utf8(1)->pretty(1)->encode( $ref ); };
                return $string;
          },
  'xml',  sub {
                my $ref = shift;
                my $type = shift || 'opt';
                my %data;
                $data{$type} = $ref;
                my $string;
                eval { $string = XMLout(\%data, RootName => 'results' ); };
                return $string;