package MyConf;

use strict;
use warnings;

use Parse::PlainConfig;
use Parse::PlainConfig::Constants;
use base qw(Parse::PlainConfig);
use vars qw(%_globals %_parameters %_prototypes);

%_globals = (
    comment          => ';',
    'delimiter'      => ' ',
    'list delimiter' => ':',
    'hash delimiter' => '@',
    'subindentation' => 4,
    );

%_parameters = (
    'admin email' => PPC_SCALAR,
    'db'          => PPC_HASH,
    'hosts'       => PPC_ARRAY,
    'note'        => PPC_HDOC,
    'nodefault'   => PPC_SCALAR,
    );

%_prototypes = (
    'declare acl' => PPC_ARRAY,
    'declare foo' => PPC_SCALAR
    );

1;

__DATA__
; This is a sample conf file that not only provides a reference config but
; also supplies the default values of any parameter not explicitly set below.
; 
; admin email:  email address of the admin
admin email root@localhost   

; db: host, database, username, and password for database access
db 
    host @ localhost :
    database @ sample.db :
    username @ dbuser :
    password @ dbpass

; hosts:  list of hosts to monitor
hosts localhost:host1.foo.com:host1.bar.com

note This is a note, but not a
    very long note.  With this odd 
    selection of delimiters it looks
    even more weird.
           EOF             

  ; Let's throw some random ACLs out there
  declare acl loopback 127.0.0.1:localhost
  declare acl localnet 192.168.0.0/24:192.168.35.0/24

; nodefault is just a scalar parameter that has no default setting

declare foo bar roo

__END__

=head2 POD STARTS HERE

Arg!