Win32-Wlan
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Win32/Wlan.pm view on Meta::CPAN
if ($args{available}) {
if (! $args{ interface }) {
my @interfaces = WlanEnumInterfaces($args{handle});
if (@interfaces > 1) {
warn "More than one Wlan interface found. Using first.";
}
$args{interface} = $interfaces[0];
}
}
}
bless \%args => $class;
};
sub DESTROY {
my ($self) = @_;
if ($self->handle and $self->available) {
WlanCloseHandle($self->handle);
};
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.367 second using v1.00-cache-2.02-grep-82fe00e-cpan-48ebf85a1963 )