Help for this page

Select Code to Download


  1. or download this
    $VAR1 = bless({'options' => 
        {'filehandle' => 
         bless( \*Symbol::GEN2, 'FileHandle' ),
        'filename' => 'a.log'},}, 'Log' );
  2. or download this
    $self->do_task()
  3. or download this
    Process::spawn(\&do_task, $self);
  4. or download this
    $new_log = new Log(filename => 'new.log');
$cur_log = $self->{log};
$self->{log} = $new_log;
Process::spawn(\&do_task, $self); # This runs in background.
$self->{log} = $cur_log; # Restore.
  5. or download this
    $self->{system}->{log},
$self->{filecache}->{system}->{log}
  6. or download this
    @ref = Devel::ObjSearch($self, 
sub { return UNIVERSAL::isa($_[0], 'Log'); });
foreach (@ref) { $_->filename('new.log'); $_->filehandle($new_log); }
.. spawn() ..