Yet Another CPAN Grep

Siffra-Bootstrap ( L/LU/LUIZBENE/Siffra-Bootstrap-0.11.tar.gz, LUIZBENE, 2020; MetaCPAN )

Siffra-Bootstrap/lib/Siffra/Bootstrap.pm ( view source; MetaCPAN )



    if ( !-e $configurationFile )
    {
        ( $configurationFile = $0 ) =~ s/\.pl/\-config\.json/;
        $log->error( "Não existe o arquivo de configuração...", { package => __PACKAGE__ } )

         my $json_text = $self->{ json }->pretty( 1 )->canonical( 1 )->encode( $config->{ $configurationFile } );

            open FH, ">", $configurationFile;
            print FH $json_text;