[Omaha.pm] if ($obj->can('get_busy') ...
Sean Baker
pbaker at omnihotels.com
Wed Jul 5 10:37:14 PDT 2006
Not that this has anything to do with Perl, but I think that's by Sean
Paul.....
-----Original Message-----
From: omaha-pm-bounces+pbaker=omnihotels.com at pm.org
[mailto:omaha-pm-bounces+pbaker=omnihotels.com at pm.org] On Behalf Of Jay
Hannah
Sent: Wednesday, July 05, 2006 12:33 PM
To: omaha-pm at pm.org
Subject: [Omaha.pm] if ($obj->can('get_busy') ...
-laugh- I've got an attribute called 'busy'. I'm pretty sure there's a
rap song in my source code now...
if ($obj->can('get_busy') && $obj->get_busy == 0) {
# Flag this as busy, return it...
$obj->set_busy(1);
return $obj;
}
j
calling the Black Eyed Peas
_______________________________________________
Omaha-pm mailing list
Omaha-pm at pm.org
http://mail.pm.org/mailman/listinfo/omaha-pm
More information about the Omaha-pm
mailing list