Help for this page

Select Code to Download


  1. or download this
    elsif (/..a regex goes here../) {
    if(ref($self->{_ref_killed}) eq 'CODE'){
...
    }
    $self->_last_death($2);
}
  2. or download this
    Without Eval:      0.059999942779541
With Eval:         4.15600001811981
  3. or download this
    $type{killed} = [$regexref,3]; # 3 to pass $1,$2, and $3
#above is not exact and has problems I'm sure.  Just for the idea.