Re^2: What is the best way to compare variables so that different types are non-equal?

in reply to Re: What is the best way to compare variables so that different types are non-equal?
in thread What is the best way to compare variables so that different types are non-equal?

sub comparifier {
  no warnings 'uninitialized'; # because blessed() and reftype() can r
+eturn undef.
  blessed($_[0]).reftype($_[0]).$_[0]
  eq
  blessed($_[1]).reftype($_[1]).$_[1]
}
[download]

In Section Seekers of Perl Wisdom