package Net::DNS::Check::Test::unknown; use strict; use vars qw(@ISA $VERSION); @ISA = qw(Net::DNS::Check::Test); sub new { my ($class) = shift; my ($self) = {}; return bless $self, $class; } sub test { my ($self) = shift; return; } 1; __END__ =head1 NAME Net::DNS::Check::Test::unknown - Unknown Test =head1 SYNOPSIS C; =head1 DESCRIPTION This class is used when we can't find the requested test class =head1 METHODS =cut =head1 new =cut =head1 COPYRIGHT Copyright (c) 2004 IIT-CNR Lorenzo Luconi Trombacchi - IIT-CNR All rights reserved. This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L =cut