Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Least favorite non-geek(s) at my job:

by hangon (Deacon)
on Jun 24, 2008 at 23:17 UTC ( #693847=note: print w/replies, xml ) Need Help??


in reply to Least favorite non-geek(s) at my job:

Ever have one of those days when you just didn't like anyone?

package Job; sub new_day { my $job = shift; my $self = {}; my @management_team = ( $Useless::CorporateWeasel, $Backstabbing::MiddleManager, $FaceSmiling::Ladderclimber, $Insipid::MarketingDrone, $PHB ); $self->{score} = push @offa_roof, @management_team; foreach (@Luser){ push @outta_window; $self->{score}++; } if ($self->{score} > 1){ $self->{status} = "Happy"; bless $self, $job; } return $self; }

Replies are listed 'Best First'.
Re^2: Least favorite non-geek(s) at my job:
by parv (Priest) on Jun 25, 2008 at 06:23 UTC
    I suppose @Luser is in global scope?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://693847]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (4)
As of 2019-04-23 04:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I am most likely to install a new module from CPAN if:
















    Results (114 votes). Check out past polls.

    Notices?