Lines Matching refs:self
49 my $self = $class->SUPER::new(DELIMITERS => [ '{-', '-}'],
53 $self->{_output_off} = 0; # Default to output hunks
55 return bless $self, $class;
59 my $self = shift;
64 $self->SUPER::fill_in(HASH => { quotify1 => \"ify1,
66 output_on => sub { $self->output_on() },
67 output_off => sub { $self->output_off() },
80 my $self = shift;
82 if ($self->{_output_off} == 0) {
83 $self->SUPER::append_text_to_output(@_);
120 my $self = shift;
121 if (--$self->{_output_off} < 0) {
122 $self->{_output_off} = 0;
127 my $self = shift;
128 $self->{_output_off}++;