#!/usr/bin/perl

use Object::Module;
use Data::Dumper;

my $obj = Object::Module::load({id => 'OMGWTFBBQ'});

die unless $obj;

my @goodStatus = ...

my $mystery = $obj->get_status();

use Devel::Peek;

print "mystery Dump\n--------\n";
print Dumper($mystery);
print "\nmystery Peek\n--------\n";
Dump($mystery);

my $empty = '';
print "\nEmpty Dump\n--------\n";
print Dumper($empty);
print "\nEmpty Peek\n--------\n";
Dump($empty);

if ( defined $mystery ) {
    print "mystery defined\n";
}
if ( defined $empty ) {
    print "Empty defined\n";
}

print "\nArray Dump\n--------\n";
print Dumper(@goodStatus);

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