Help for this page

Select Code to Download


  1. or download this
    if ($whatever) {
      $self->{callback} = $self->can('a');
    } else {
      $self->{callback} = sub {1};
    }
    
  2. or download this
    open F, '>', $self->{filename};
    if ($other->can('fetch')) {
      print F, $other->fetch();
    ...
      }
    }
    close F;