NAME

SYNOPSIS

    use Net::ACL::Rule qw( :action :rc );

    # Constructor
    $entry = new Net::ACL::Rule(
        Action  => ACL_PERMIT
        Match   => {
                IP      => '127.0.0.0/8'
                }
        Set     => {
                IP      => '127.0.0.1'
                },
        Seq     => 10
        );

    # Object Copy
    $clone = $entry->clone();

    # Accessor Methods
    $action = $entry->action($action);
    $action_str = $entry->action($action_str);

    $entry->add_match($matchrule);
    $entry->remove_match($matchrule);
    $entry->add_set($setrule);
    $entry->remove_set($setrule);

    $rc = $entry->match(@data);
    @data = $entry->set(@data);

    ($rc,@data) = $entry->query(@data);

    $subrule = $entry->autoconstruction($type,$class,$arg,@values);

DESCRIPTION

CONSTRUCTOR

new() - create a new Net::ACL::Rule object

    $entry = new Net::ACL::Rule(
        Action  => ACL_PERMIT
        Match   => {
                IP      => '127.0.0.0/8'
                }
        Set     => {
                IP      => '127.0.0.1'
                }
        );
    

This is the constructor for Net::ACL::Rule objects. It returns a reference to the newly created object. The following named parameters may be passed to the constructor.

OBJECT COPY

clone() - clone a Net::ACL::Rule object

    $clone = $entry->clone();
    

This method creates an exact copy of the Net::ACL::Rule object, with set, match and action attributes.

ACCESSOR METHODS

action()

This method returns the entry's action value. If called with an argument, the action value is changed to that argument.

action_str()

This method returns the entry's action string as either "permit" or "deny". If called with an argument, the action value are changed to ACL_PERMIT if the argument matches /permit/i - otherwise ACL_DENY.

add_match()

remove_match()

add_set()

remove_set()

The methods add and remove match and set rules. Each argument should be a match or set rule object. New rules are added in the end of the rule set.

match()

The match method gets any arbitrary number of arguments. The arguments are passed to the match() method of each of the Net::ACL::Match objects, given at construction time - see new(). If all Match objects did match, the method returns ACL_MATCH. Otherwise ACL_MATCH.

set()

The set method gets any arbitrary number of arguments. The arguments are passed to the first of the Net::ACL::Set objects set() method. The result of this function is then used to call the next. This is repeated for all Set objects given at construction time - see new(). Finally the result of the last call is returned.

query()

The query method first attempt to match it's arguments with the match() method. If this fails, it returns ACL_CONTINUE. Otherwise it uses the set() method to potentially alter the arguments before they are returned with "Action" given on construction prefixed.

autoconstruction()

This method is used on construction to construct rules based on key/value-pairs in a Rule argument hash reference.

The first argument is the type ("Match" or "Set"). The second is the class name (see below). The third is the key name from the construction hash. The forth and any remaining arguments are used as parameters to the constructor.

The return value will be the result of:

        $class->new(@values);
    

The class is by the constructor set as "Net::ACL::$type::$key"

NOTE: Do to this; the keys of the hash are case-sensitive!

By replacing this function in a sub-class, it is possible to modify the class and/or key-value pairs and hence make more complex constructions from simple key-value pairs, or have more user-friendly key values (e.g. make them case-insensitive).

EXPORTS

:rc

        ACL_MATCH, ACL_NOMATCH
    

:action

        ACL_PERMIT, ACL_DENY, ACL_CONTINUE
    

SEE ALSO

AUTHOR