use
5.014002;
sub
method1 {
my
(
$class
,
$zone
) =
@_
;
return
$zone
->parent;
}
sub
method2 {
my
(
$class
,
$zone
) =
@_
;
return
$zone
->glue_names;
}
sub
method3 {
my
(
$class
,
$zone
) =
@_
;
my
@child_nsnames
;
my
@nsnames
;
my
$ns_aref
=
$zone
->query_all(
$zone
->name,
q{NS}
);
foreach
my
$p
( @{
$ns_aref
} ) {
next
if
not
$p
;
push
@nsnames
,
$p
->get_records_for_name(
q{NS}
,
$zone
->name );
}
@child_nsnames
= uniq
map
{ name(
lc
(
$_
->nsdname ) ) }
@nsnames
;
return
[
@child_nsnames
];
}
sub
method4 {
my
(
$class
,
$zone
) =
@_
;
return
$zone
->glue;
}
sub
method5 {
my
(
$class
,
$zone
) =
@_
;
return
$zone
->ns;
}
1;