Yet Another CPAN Grep

Dancer-Plugin-DynamicConfig ( K/KS/KSTAR/Dancer-Plugin-DynamicConfig-0.07.tar.gz, KSTAR, 2013; MetaCPAN )

Dancer-Plugin-DynamicConfig/README.pod ( view source; MetaCPAN )

e JSON::XS qw(decode_json);
use Time::HiRes;
use Try::Tiny;

our $VERSION = '0.07';

my @file_types = ({
  type => 'json',
  re => qr{\.json$},
  parser => sub {
    my ($filename) = @_;
    my $json;

$filename) =~ /(.*)/s; # untaint
      try {
        $json = decode_json(encode('UTF-8', $1));
      } catch {
        warning "couldn't parse json file ($filename): $_\n";
      };
    } catch {

  warning "couldn't find file to parse ($filename): $_\n";
    };
    return $json;
  },
});

my $dynamic_config;

register dynamic_config => sub {
  my ($file_key) = @_;

  initialize() unless $dynam

Dancer-Plugin-DynamicConfig ( K/KS/KSTAR/Dancer-Plugin-DynamicConfig-0.07.tar.gz, KSTAR, 2013; MetaCPAN )

Dancer-Plugin-DynamicConfig/lib/Dancer/Plugin/DynamicConfig.pm ( view source; MetaCPAN )

e JSON::XS qw(decode_json);
use Time::HiRes;
use Try::Tiny;

our $VERSION = '0.07';

my @file_types = ({
  type => 'json',
  re => qr{\.json$},
  parser => sub {
    my ($filename) = @_;
    my $json;

$filename) =~ /(.*)/s; # untaint
      try {
        $json = decode_json(encode('UTF-8', $1));
      } catch {
        warning "couldn't parse json file ($filename): $_\n";
      };
    } catch {

  warning "couldn't find file to parse ($filename): $_\n";
    };
    return $json;
  },
});

my $dynamic_config;

register dynamic_config => sub {
  my ($file_key) = @_;

  initialize() unless $dynam