Re: [Omaha.pm] if ($obj->can('get_busy') ...

["Sean Baker" <pbaker@omnihotels.com>]

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@pm.org
[mailto:omaha-pm-bounces+pbaker=omnihotels.com@pm.org] On Behalf Of Jay
Hannah
Sent: Wednesday, July 05, 2006 12:33 PM
To: omaha-pm@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@pm.org
http://mail.pm.org/mailman/listinfo/omaha-pm