Net::ACL::Match::Member - Class matching one or more members of an array

Net-ACL documentation Contained in the Net-ACL distribution.

Index

Code Index:

NAME

Top

Net::ACL::Match::Member - Class matching one or more members of an array

SYNOPSIS

Top

    use Net::ACL::Match::Member;

    # Construction
    my $match = new Net::ACL::Match::Member(1,[41,42]);

    # Accessor Methods
    $rc = $match->match(@data);

DESCRIPTION

Top

This module is a very simple array element testing utility to allow simple value matching with Net::ACL::Rule.

CONSTRUCTOR

Top

new() - create a new Net::ACL::Match::Member object 
    my $match = new Net::ACL::Match::Member(1,[41,42]);

This is the constructor for Net::ACL::Match::Scalar objects. It returns a reference to the newly created object.

It takes one argument. If the argument is a array reference with one element, the element will be matched with the first argument to the match method.

If an array reference has more then one element, the second element should be the argument number to be matched in the match method.

Otherwise, the value it self will be matched with the first argument of the match method.

ACCESSOR METHODS

Top

match()

This function matches the arguments according to the arguments of the constructor and returns either ACL_MATCH or ACL_NOMATCH as exported by Net::ACL::Rule with :rc.

SEE ALSO

Top

Net::ACL::Match, Net::ACL::Rule, Net::ACL, Net::ACL::Set::Union

AUTHOR

Top

Martin Lorensen <bgp@martin.lorensen.dk>

Net-ACL documentation Contained in the Net-ACL distribution. 
#!/usr/bin/perl

# $Id: Member.pm,v 1.5 2003/06/06 18:45:02 unimlo Exp $

package Net::ACL::Match::Member;

use strict;
use vars qw( $VERSION @ISA );

## Inheritance and Versioning ##

@ISA     = qw( Net::ACL::Match::Scalar );
$VERSION = '0.07';

## Module Imports ##

use Net::ACL::Match::Scalar;
use Net::ACL::Rule qw( :rc );
use Carp;

## Public Object Methods ##

sub match
{
 my $this = shift;
 my @data = @_;
 my $data = $data[$this->{_index}];
 croak __PACKAGE__ . "->match needs to operate on an array reference!"
        unless ref $data eq 'ARRAY';
 my %miss;
 foreach my $elem ( @{$this->{_value}} )
  {
   $miss{$elem} = 1;
  };
 foreach my $elem ( @{$data} )
  {
   delete $miss{$elem};
  };
 return scalar (keys %miss) ? ACL_NOMATCH : ACL_MATCH;
}

## POD ##


## End Package Net::ACL::Match::Member ##
 
1;