NAME

JCONF::Writer - Create JCONF configuration from perl code

SYNOPSIS

            

              
              
use strict;
use JCONF::Writer;
use JCONF::Writer::Boolean qw(TRUE FALSE);
my $writer = JCONF::Writer->new(autodie => 1);
my %cfg = (
        modules => {
                Moose => 1,
                Mouse => 0.91,
                Moo   => 0.05,
                Mo    => [0.01, 0.08],
        },
  
        enabled => TRUE,
        data    => ["Test data", "Production data"]
  
        query   => q!SELECT * from pkg
                           LEFT JOIN ver ON pkg.id=ver.pkg_id
                           WHERE pkg.name IN ("Moose", "Mouse", "Moo", "Mo")!
);
my $jconf = eval {
        $writer->from_hashref(\%cfg);
};
if ($@) {
        die "Invalid config: ", $@;
}
print $jconf;
__END__
modules = {
        Moose: 1,
        Mouse: 0.91,
        Moo: 0.05,
        Mo: [0.01, 0.08],
}
  
enabled = true
data = ["Test data", "Production data"]
  
query = "SELECT * from pkg
                 LEFT JOIN ver ON pkg.id=ver.pkg_id
                 WHERE pkg.name IN (\"Moose\", \"Mouse\", \"Moo\", \"Mo\")"
            
          

METHODS

new

This is writer object constructor. Available parameters are:

autodie

throw exception on any error if true, default is false (in this case writer methods will return undef on error and error may be found with "last_error" method)

from_hashref

Converts hash reference to valid formatted JCONF and returns it as string. On fail returns undef/throws exception (according to autodie option in the constructor).

last_error

Returns error occured for last writer call. Error will be JCONF::Writer::Error object or undef (if there was no error).

SEE ALSO

Parse::JCONF

COPYRIGHT

Copyright Oleg G <oleg@cpan.org>.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.