Net-DHCP-Control
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Net/DHCP/Control/Generic.pm view on Meta::CPAN
while (my ($name, $val) = each %{$opts{attrs}}) {
my $type = $class->typeof_attr($name) || TP_UNSPECIFIED;
Net::DHCP::Control::set_value($object, $name, $val, $type);
}
Net::DHCP::Control::open_object($object, $handle) or return;
unless ($opts{callback}) {
Net::DHCP::Control::wait_for_completion($object) or return;
}
bless $self => $class;
}
for my $key (qw(obj kind handle opts auth class lazy)) {
my $methname = $key;
*$methname = sub { $_[0]->{uc $methname} };
}
sub get {
my ($self, $name, $type) = @_;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.165 second using v1.00-cache-2.02-grep-82fe00e-cpan-3b7f77b76a6c )