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) = @_;