17 lines
468 B
Perl
17 lines
468 B
Perl
use lib '../../';
|
|
use app::zone::rndc_interface;
|
|
use app::zone::knot_interface;
|
|
use app::zone::nsdc_interface;
|
|
package app::zone::interface;
|
|
use Moose;
|
|
|
|
sub get_interface {
|
|
my ($self, $type, $data) = @_;
|
|
return 1, app::zone::rndc_interface->new(data => $data) if $type eq 'rndc';
|
|
return 1, app::zone::knot_interface->new(data => $data) if $type eq 'knot';
|
|
return 1, app::zone::nsdc_interface->new(data => $data) if $type eq 'nsdc';
|
|
return 0;
|
|
}
|
|
|
|
1;
|