BIND::Config::Parser - Parse BIND Config file.

       Matt Dainty <matt@bodgit-n-scarper.com>.

       new( );
           Create a new "BIND::Config::Parser" object.

       Copyright (c) 2005 Matt Dainty.

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

       BIND::Config::Parser provides a lightweight parser to the configuration file syntax of BIND v8 and v9
       using a "Parse::RecDescent" grammar.

       It is in a similar vein to "BIND::Conf_Parser". However, as it has no knowledge of the directives, it
       doesn't need to be kept updated as new directives are added, it simply knows how to carve up a BIND
       configuration file into logical chunks.

       set_open_block_handler( CODE_REF );
           Set the code to be called when a configuration block is opened. At least one argument will be passed;
           the  name  of that block, for example "options" or "zone", etc. as well as any additional items up to
           but not including the opening curly brace.

       set_close_block_handler( CODE_REF );
           Set the code to be called when a configuration block is closed. No arguments are passed.

       set_statement_handler( CODE_REF );
           Set the code to be called on a single line configuration element.  At  least  one  argument  will  be
           passed;  the name of that element, as well as any additional items up to but not including the ending
           semi-colon.

       parse_file( FILENAME );
           Parse FILENAME, triggering the above defined handlers on the relevant sections.

       BIND::Config::Parser - Parse BIND Config file.

       perl, Parse::RecDescent, BIND::Conf_Parser.

perl v5.40.1                                       2025-08-07                          BIND::Config::Parser(3pm)

        use BIND::Config::Parser;

        # Create the parser
        my $parser = new BIND::Config::Parser;

        my $indent = 0;

        # Set up callback handlers
        $parser->set_open_block_handler( sub {
                print "\t" x $indent, join( " ", @_ ), " {\n";
                $indent++;
        } );
        $parser->set_close_block_handler( sub {
                $indent--;
                print "\t" x $indent, "};\n";
        } );
        $parser->set_statement_handler( sub {
                print "\t" x $indent, join( " ", @_ ), ";\n";
        } );

        # Parse the file
        $parser->parse_file( "named.conf" );

       Probably the odd one or two things. I'm fairly sure the grammar is correct.