One Hat Cyber Team

Your IP : 104.23.197.103

Server IP : 104.21.51.23

Server : Linux 128-201-239-36.cprapid.com 3.10.0-1160.41.1.el7.x86_64 #1 SMP Tue Aug 31 14:52:47 UTC 2021 x86_64

Server Software : Apache

PHP Version : 7.4.33

Buat File | Buat Folder

Dir : ~/lib64/perl5/vendor_perl/auto/Newt/Radiogroup/

View File Name : Get.al

# NOTE: Derived from blib/lib/Newt.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Newt::Radiogroup;

#line 581 "blib/lib/Newt.pm (autosplit into blib/lib/auto/Newt/Radiogroup/Get.al)"
########################### Newt::Radiogroup

sub Newt::Radiogroup::Get {
  my $self = shift;
  my $index = 0;

  foreach (@{$self->{components}}) {
    return $index if ${Newt::newtRadioGetCurrent($_)} eq ${$_};
    $index++;
  }
}

# end of Newt::Radiogroup::Get
1;