Select Code to Download

my $obj = ObjectStuff->load(objid);
my $status = $obj->getStatus();
...
  #spew warnings;
  exit;
}

#!/usr/bin/perl

...
if( ($empty) ~~ @goodStatus ) {
    print "Empty is valid!\n";
}

mystery Dump
--------
...
$VAR3 = '0';
$VAR4 = '-3';
Status is valid!

...
Empty defined
...
$VAR3 = '0';
$VAR4 = '-3';
Status is valid!

if ( $mystery == $empty ) {
    print "Number Equal!\n";
}

ASCII Equal!
Number Equal!
...
$VAR4 = '-3';
Status is valid!
Empty is valid!

$ perl -v

This is perl, v5.10.0 built for i486-linux-gnu-thread-multi