Help for this page
if ($2 eq $self->{SECRETKEY}->{ID}) {
if ($2 eq (ref($self->{SECRETKEY}) ? $self->{SECRETKEY}->{ID} : $self- +>{SECRETKEY}) ) {