WWW::Webrobot::Attributes - define setter/getter for attributes of a class

 use WWW::Webrobot::Attributes qw(attr1 attr2 attr3);

 $self->attr1
     return attribute named 'attr1'

 $self->attr1($value);
     set attribute named 'attr1' to value '$value'

package WWW::Webrobot::Attributes;
use strict;
use warnings;

# Author: Stefan Trcek
# Copyright(c) 2004 ABAS Software AG

sub import {
    my $self = shift;
    my $package = caller(0);
    foreach my $attr (@_) {
        my $attr_fun = "$package\::$attr";
        my $attr_name = "_$attr";
        if (!defined *{$attr_fun}) {
            #print "DEFINE $attr_fun as $attr_name\n";
            no strict;
            *{$attr_fun}  = sub {
                my $self = shift;
                my $old = $self->{$attr_name};
                $self->{$attr_name} = shift if @_;
                return $old;
            };
        }
    }
}

1;

__END__