You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

28 lines
691 B

package getiface;
use v5.14;
use Exporter 'import';
# what we want to export eventually
our @EXPORT_OK = qw/getiface/;
# bundle of exports (tags)
our %EXPORT_TAGS = ( all => [qw/getiface/] );
use interface::bind9;
use interface::knot;
use interface::nsd3;
use interface::nsd4;
sub getiface {
my ($type, $params) = @_;
for($type) {
if (/bind9/) { return interface::bind9->new($params) }
elsif (/knot/) { return interface::knot->new($params) }
elsif (/nsd3/) { return interface::nsd3->new($params) }
elsif (/nsd/) { return interface::nsd4->new($params) }
else { die "Interface for the $_ dns type not found."; }
}
}
1;