13 lines
233 B
Perl
13 lines
233 B
Perl
use lib '../../';
|
|
use app::zone::rndc_interface;
|
|
package app::zone::interface;
|
|
use Moose;
|
|
|
|
sub get_interface {
|
|
my ($self, $type, $zp) = @_;
|
|
return 1, app::zone::rndc_interface->new(zdir => $zp) if $type eq 'rndc';
|
|
return 0;
|
|
}
|
|
|
|
1;
|