File Coverage

blib/lib/DNS/BL/Entry.pm

Criterion	Covered	Total	%
statement	41	45	91.1
branch	10	10	100.0
condition			n/a
subroutine	11	12	91.6
pod	4	4	100.0
total	66	71	92.9

package DNS::BL::Entry;

use 5.006001;
use strict;
use warnings;

use NetAddr::IP 3;

our $VERSION = '0.00_01';
$VERSION = eval $VERSION;  # see L

sub new
{
    return bless
    {
	addr	=> undef,
	desc	=> undef,
	value	=> '127.0.0.1',
	time	=> time,
    }, $_[0];
}

sub clone
{
    my $o = shift;
    my $n = __PACKAGE__->new;
    $n->$_($o->$_()) for qw/addr desc value time/;
    return $n;
}

# We'll let AUTOLOAD provide an accessor automatically for
# each parameter we get asked to produce.

sub AUTOLOAD
{
    no strict "refs";
    use vars qw($AUTOLOAD);
    my $method = $AUTOLOAD;
    $method =~ s/^.*:://;
    *$method = sub
    {
	my $self = shift;
	my $ret = $self->{$method};
	$self->{$method} = shift if @_;
	return $ret;
    };
    goto \&$method;
}

# The following accessors provide trivial tests over its arguments,
# so we provide them manually.

sub addr
{
    my $self = shift;
    my $ret = $self->{addr};
    if (@_)
    {
	my $ip = new NetAddr::IP shift;
	return $ret unless $ip;
	$self->{addr} = $ip;
    }
    return $ret;
}

sub time
{
    my $self = shift;
    my $ret = $self->{time};
    if (@_)
    {
	my $time = shift;
	return $ret unless $time =~ /^\d+$/;
	$self->{time} = $time;
    }
    return $ret;
}

1;
__END__