http://www.perlmonks.org?node_id=141460


in reply to Programming Laws

$vacation->subtract_quality( $_->has_obvious_fix() ? $_->get_severity( +) * 100 : $_->get_severity() ) foreach grep{ !$_->is_existing_problem +() and $_->get_contact() eq $me and $_->get_description() =~ /a docum +ented feature/i } @{$work->get_bug_list()}

Will perl for money
JJ Knitis
(901) 756-7693
gt8073a@industrialmusic.com