## name basic failure
## failures 1
## cut

my $name = ref $proto || $proto;

#-----------------------------------------------------------------------------

## name Suspicious but OK
## failures 0
## cut

my $notname = ref $proto || $name;
# my $name = ref $proto || $proto;

#-----------------------------------------------------------------------------
# ex: set ft=perl: