Net::ACL::Bootstrap - A proxy/bootstrap class for the L<Net::ACL|Net::ACL> class

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

Index

Code Index:

NAME

Top

Net::ACL::Bootstrap - A proxy/bootstrap class for the Net::ACL class

SYNOPSIS

Top

    use Net::ACL::Bootstrap;

    # Constructor
    $list = renew Net::ACL::Bootstrap(
	Name    => 'MyACL',
	Type	=> 'prefix-list',
	);

DESCRIPTION

Top

This module works as a wrapper/proxy/bootstrap for the Net::ACL class.

It makes it possible to renew() a list that has not yet been constructed using its name and type. The real list should be constructed before any method is used on this object (except name(), type() and fetch()).

CONSTRUCTOR

Top

renew() - create a new Net::ACL::Bootstrap object:
    $list = renew Net::ACL(
        Name    => 'MyACL',
	Type	=> 'prefix-list',
        );

This is the only constructor for Net::ACL::Bootstrap class. The arguments are the same as the renew() constructor of the Net::ACL class.

It either returns an existing Net::ACL object matching the arguments or a reference to the newly created Net::ACL::Bootstrap object.

ACCESSOR METHODS

Top

fetch()

Forces the class to load the reference to the list or croak if that fails.

name()
type()

It is possible to query name and type data of the list, however, not to change them, unless the list is loaded. But only if the list can be loaded, change the name or type can be done.

AUTOLOAD()

All other methods are forwarded to the real Net::ACL object.

SEE ALSO

Top

Net::ACL

AUTHOR

Top

Martin Lorensen <bgp@martin.lorensen.dk>

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

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

package Net::ACL::Bootstrap;

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

## Inheritance and Versioning ##

@ISA     = qw( Exporter );
$VERSION = '0.07';

## Module Imports ##

use Carp;
use Net::ACL;

## Public Class Methods ##

sub renew
{
 my $proto = shift;
 my $class = ref $proto || $proto;
 
 my $this = renew Net::ACL(@_);
 return $this if defined $this;

 # Try to bootstrap!
 my ($name,$type) = (undef,$class);
 while ( defined(my $arg = shift) )
  {
   my $value = shift;
   if ( $arg =~ /name/i )
    {
     $name = $value;
    }
   elsif ( $arg =~ /type/i )
    {
     $type = $value;
    }
   else
    {
     croak "Can only bootstrap using name/type data - Not '$arg'.";
    };
  };

 $this = {};
 bless($this, $class);
 @{$this}{qw(_name _type _realist)} = ($name,$type,undef),
 return $this;
}

sub name
{
 my $this = shift;
 $this->fetch unless defined $this->{_reallist};
 return $this->{_reallist}->name(@_) if defined $this->{_reallist};
 # Modification is too odd!
 return $this->{_name};
}

sub type
{
 my $this = shift;
 $this->fetch unless defined $this->{_reallist};
 return $this->{_reallist}->type(@_) if defined $this->{_reallist};
 # Modification is too odd!
 return $this->{_type};
}

sub AUTOLOAD
{
 my $method = $AUTOLOAD;
 my $this = shift;
 my $class = ref $this || $this;
 $method =~ s/${class}:://;
 $this->fetch unless defined $this->{_reallist};
 croak 'Operation on non-existing Net::ACL (' .
	($this->type || '(type n/a)') . ' ' . ($this->name || '(name n/a)') . ")!\n"
	unless defined $this->{_reallist};
 $this->{_reallist}->$method(@_);
}

sub DESTROY
{ # Don't do anything - But don't proxy this!
}

sub fetch
{
 my $this = shift;
 $this->{_reallist} = renew Net::ACL(
	Name	=> $this->{_name},
	Type	=> $this->{_type}
	);
}

## POD ##


## End Package Net::ACL::Bootstrap ##
 
1;