Lines Matching refs:self
141 my $self = {
168 $self->{$key} = $value;
171 bless($self, $class);
173 return $self;
185 my ($self, $format, @arguments) = @_;
193 $self->print($message, 0);
208 my ($self, $message, $force) = @_;
215 foreach my $target ($self, @{$self->{'forward'}})
219 $self->{'id'},
240 my ($self, $relative_time, $log_id, $pid, $message, $force) = @_;
243 if (defined $self->{'filter'})
245 $message = &{$self->{'filter'}}($relative_time, $log_id, $pid, $message);
250 if ($self->{'is_show_relative_time'})
254 if ($self->{'is_show_log_id'})
258 if ($self->{'is_show_process_id'})
262 $line .= $self->{'indentation'};
266 my $fid = $self->{'file'};
272 && $self->{'is_print_to_console'})
276 if ($self->{'is_save_lines'})
278 push @{$self->{'lines'}}, [$relative_time, $log_id, $pid, $message, $force];
294 my ($self, $filename) = @_;
297 if ($self->{'filename'} ne $filename)
299 if (defined $self->{'file'})
301 $self->{'is_print_to_console'} = 1;
302 close $self->{'file'};
303 $self->{'file'} = undef;
306 $self->{'filename'} = $filename;
310 open $self->{'file'}, ">", $self->{'filename'}
311 || Die "can not open log file ".$self->{'filename'}." for writing";
312 $self->{'is_print_to_console'} = 0;
316 my $handle = select $self->{'file'};
334 my ($self, $filter) = @_;
335 $self->{'filter'} = $filter;
348 my ($self, $message) = @_;
351 $self->printf("%s\t%s", $message, $timestring);
363 my ($self, $other) = @_;
365 my $is_print_to_console = $self->{'is_print_to_console'};
366 my $is_save_lines = $self->{'is_save_lines'};
367 my $fid = $self->{'file'};
371 $self->process_line(@$line);
387 my ($self, $other) = @_;
392 $self->{'forward'} = [$other];
396 $self->{'forward'} = [];
405 my ($self) = @_;
406 $self->{'indentation'} .= " ";
414 my ($self) = @_;
415 $self->{'indentation'} = substr($self->{'indentation'}, 4);