Yet Another CPAN Grep

Autoconf-Template ( B/BI/BIGFOOT/Autoconf-Template-2.1.0.tar.gz, BIGFOOT, 2024; MetaCPAN )

Autoconf-Template/lib/Autoconf/Template/Constants.pm ( view source; MetaCPAN )

PLATES_DIR => "$PERL5SHARE_DIR/templates";
Readonly our $FILE_LIST     => "$PROJECT_DIR/file_list.json";

# other
Readonly our $MANIFEST_FILE => 'manifest.yaml';

Readonly our $COPYRIGHT => <<"END_OF_

Hash our %CONFIG_FILE_EXTENSIONS => (
  ini_files    => 'ini',
  config_files => 'cfg',
  json_files   => 'json',
  yaml_files   => 'yaml',
);

Readonly::Hash our %BOOLEAN_OPTIONS => (
  man_pages

Autoconf-Template ( B/BI/BIGFOOT/Autoconf-Template-2.1.0.tar.gz, BIGFOOT, 2024; MetaCPAN )

Autoconf-Template/lib/Autoconf/Template/Utils.pm ( view source; MetaCPAN )

 pairs);
use Scalar::Util qw(reftype);
use Log::Log4perl qw(:easy);
use Log::Log4perl::Level;
use JSON;
use Template;
use YAML qw(Load LoadFile DumpFile);

use parent qw(Exporter);

our @EXPORT_OK = q

le, %options ) = @_;

  my $type = lc( $options{type} // $EMPTY );

  if ( any { $type eq $_ } qw(json yaml dmp) ) {
    $options{comments} = $FALSE;
  }

  $options{comments} //= $TRUE; # leave comme

ents} ) {
    while ( $content =~ s/^[\#][^\n]*$//gxsm ) { }
  }

  return decode_json($content)
    if $type eq 'json';

  return Load($content)
    if $type eq 'yaml';

  return eval "$content" ## n