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);
    };
}