File Coverage

blib/lib/Net/DNSServer/Base.pm

Criterion	Covered	Total	%
statement	6	22	27.2
branch	0	2	0.0
condition	0	13	0.0
subroutine	2	8	25.0
pod	6	6	100.0
total	14	51	27.4

package Net::DNSServer::Base;

use strict;
use Carp qw(croak);

# Created before calling Net::DNSServer->run()
sub new {
  my $class = shift || __PACKAGE__;
  my $self = shift || {};
  return bless $self, $class;
}

# Called once at configuration load time by Net::DNSServer.
# Takes the Net::Server object as an argument.
sub init {
  my $self = shift;
  my $net_server = shift;
  unless ($net_server && (ref $net_server) && ($net_server->isa("Net::Server"))) {
    croak 'Usage> '.(__PACKAGE__).'->init($Net_Server_obj)';
  }
  $self -> {net_server} = $net_server,
  return 1;
}

# Called immediately after incoming request
# Takes the Net::DNS::Packet question as an argument
sub pre {
  my $self = shift;
  my $net_dns_packet = shift || croak 'Usage> $obj->resolve($Net_DNS_obj)';
  $self -> {question} = $net_dns_packet;
  return 1;
}

# Called after all pre methods have finished
# Returns a Net::DNS::Packet object as the answer
#   or undef to pass to the next module to resolve
sub resolve {
  die "virtual function not implemented";
}

# Called after resolve.
# Takes the Net::DNS::Packet question as an argument.
# If may modify $self->{answer_packet} before
# it is sent to the client.
sub post {
  my $self = shift;
#  my $net_dns_packet = shift || croak 'Usage> $obj->post($Net_DNS_obj)';
  return 1;
}

# Called once prior to server shutdown
sub cleanup {
  return 1;
}

1;

__END__