Martin Lorensen > Net-ACL-0.07 > Net::ACL::Match::Prefix

Download:
Net-ACL-0.07.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.07   Source  

NAME ^

Net::ACL::Match::Prefix - Class matching IP network prefixes.

SYNOPSIS ^

    use Net::ACL::Match::Prefix;

    # Constructor
    $match = new Net::ACL::Match::Prefix('10.0.0.0/8');
    $match = new Net::ACL::Match::Prefix('10.0.0.0/8 ge 25');

    # Accessor Methods
    $rc = $match->match('10.0.0.0/16'); # ACL_NOMATCH
    $rc = $match->match('127.0.0.0/8'); # ACL_NOMATCH
    $rc = $match->match('10.0.0.0/8');  # ACL_MATCH

DESCRIPTION ^

This module is just a wrapper of the Net::Netmask module to allow it to operate automatically with Net::ACL::Rule.

CONSTRUCTOR ^

new() - create a new Net::ACL::Match::Prefix object
    $match = new Net::ACL::Match::Prefix(0,'10.0.0.0/8');

This is the constructor for Net::ACL::Match::Prefix objects. It returns a reference to the newly created object. The first argument is the argument number of the match function that should be matched.

Normally the remaining arguments is parsed directly to the constructor of Net::Netmask. However if the last argument matches /(le|ge) \d+$/, the suffix will be removed before the Net::Netmask constructor is called and the digits will be used only allow prefixes greater then or equal (ge) OR less then or equal (le) then that prefix length to match.

ACCESSOR METHODS ^

match()

The method uses Net::Netmask to verify that the base address and the size of the prefixes are the same.

mode()

This method returns the mode of the prefix match object. The mode could be either 0 (normal), le for less then or equal compare, or ge for greater then or equal compare. If called with a value, the mode is changed to that value.

size()

This method returns the size of the prefix to be matched if mode is le or ge. If called with a value, the size is changed to that value.

EXAMPLES ^

     my $norm = new Net::ACL::Match::Prefix(0,'10.0.0.0/8');
     my $ge24 = new Net::ACL::Match::Prefix(0,'10.0.0.0/8 ge 24');
     my $le24 = new Net::ACL::Match::Prefix(0,'10.0.0.0/8 1e 24');

     $norm->match('10.0.0.0/8')  == ACL_MATCH
     $ge24->match('10.0.0.0/8')  == ACL_MATCH
     $le24->match('10.0.0.0/8')  == ACL_MATCH
     $norm->match('10.1.0.0/16') == ACL_NOMATCH
     $ge24->match('10.1.0.0/16') == ACL_MATCH
     $le24->match('10.1.0.0/16') == ACL_MATCH

SEE ALSO ^

Net::Netmask, Net::ACL, Net::ACL::Rule, Net::ACL::Match::IP, Net::ACL::Match

AUTHOR ^

Martin Lorensen <bgp@martin.lorensen.dk>

syntax highlighting: