The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Unix::Conf::Bind8::Conf::Comment - Class for handling comments between directives.

SYNOPSIS

        use Unix::Conf::Bind8;

        my ($conf, $acl);
        $conf = Unix::Conf::Bind8->new_conf (
                FILE        => '/etc/named.conf',
                SECURE_OPEN => 1,
        ) or $conf->die ("couldn't open `named.conf'");

        $acl = $conf->new_acl (
                NAME            => 'extremix.net-slaves',
                ELEMENTS        => [ qw (10.0.0.2 10.0.0.3) ],
        ) or $acl->die ("couldn't create acl `extremix.net-slaves'");

        $comment = $conf->new_comment (
                COMMENT         => '// Elements of this Acl are allowed to transfer this zone',
                WHERE           => 'BEFORE',
                WARG            => $acl,
        ) or $comment->die ("couldn't create comment");

This class is not meant to be used directly, but is used instead by the parser to store intra directive comments.

METHODS

new ()
 Arguments
 COMMENT        => 'comment',
 WHERE  => 'FIRST'|'LAST'|'BEFORE'|'AFTER'
 WARG   => Unix::Conf::Bind8::Conf::Directive subclass object
                        # WARG is to be provided only in case WHERE eq 'BEFORE 
                        # or WHERE eq 'AFTER'
 PARENT => reference,   # to the Conf object datastructure. 

Class constructor Creates a Unix::Conf::Bind8::Conf::Comment object and returns it, on success, an Err object otherwise. Do not use this constructor directly. Use the Unix::Conf::Bind8::Conf::new_comment method () instead.

comment ()

Object method. Get/set the comment. If argument is passed, sets the comment, and returns true on success, an Err object otherwise. If no argument is passed, returns the set value.

1 POD Error

The following errors were encountered while parsing the POD:

Around line 44:

=over without closing =back