Select Code to Download

sub ident {
    my $value = ( values %{ $_[0] } )[0];
...
    }
    return 1;
}

return 0 unless ( defined $value xor defined $_ ) and ( $value eq $_ )
+;