File Coverage

blib/lib/Net/DNS/Method.pm

Criterion	Covered	Total	%
statement	33	54	61.1
branch	0	8	0.0
condition	0	6	0.0
subroutine	11	16	68.7
pod	0	2	0.0
total	44	86	51.1

package Net::DNS::Method;

require 5.005_62;
use Carp;
use strict;
use warnings;
no strict 'refs';

use vars qw/$AUTOLOAD/;

use File::Find;

use constant NS_FAIL	=> 0x00;
use constant NS_OK	=> 0x01;
use constant NS_STOP	=> 0x02;
use constant NS_IGNORE 	=> 0x04;
use constant NS_SPLIT 	=> 0x08;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(
		 NS_OK
		 NS_FAIL
		 NS_STOP
		 NS_IGNORE
		 NS_SPLIT
);

our $VERSION = '2.00';

sub new {
    croak
	"Net::DNS::Method is meant as a base class. Do not use it directly.\n";
}

## The AUTOLOAD below, handles the creation of methods that are to be defined
## to answer for each known RR type in Net::DNS.

sub AUTOLOAD {
    my $sub = $AUTOLOAD;
    $sub =~ s/.*:://;
    *$sub = sub { NS_FAIL; };
    goto &$sub;
}

## The call to ANY will cause all the methods to be created.

my @RR = ();

sub ANY {
    my $self = shift;
    my $q = $_[0];
    my $ans = $_[1];

    unless (@RR) {
	find( { no_chdir => 1,
		wanted => sub {
		    my $file = m/(\w+)\.pm$/ && $1;
		    return undef
			unless $File::Find::dir =~ m!Net/DNS[^\w]!;
		    push @RR, $file if $file;
		}
	    }, grep { -d } @INC);
    }

    my $ret = NS_FAIL;

    for my $r (@RR) {
	$ret |= $self->$r(@_);
    }

    if (!($ret & NS_OK)
	and $ans->header->rcode eq 'NOERROR')
    {
	$ans->header->rcode('NXDOMAIN');
    }

    return $ret;
}

1;
__END__