package PatchReader::FilterPatch;
use strict;
use PatchReader::Base;
@PatchReader::FilterPatch::ISA = qw(PatchReader::Base);
sub new {
my $class = shift;
$class = ref($class) || $class;
my $this = $class->SUPER::new();
bless $this, $class;
return $this;
}
sub start_patch {
my $this = shift;
$this->{TARGET}->start_patch(@_) if $this->{TARGET};
}
sub end_patch {
my $this = shift;
$this->{TARGET}->end_patch(@_) if $this->{TARGET};
}
sub start_file {
my $this = shift;
$this->{TARGET}->start_file(@_) if $this->{TARGET};
}
sub end_file {
my $this = shift;
$this->{TARGET}->end_file(@_) if $this->{TARGET};
}
sub next_section {
my $this = shift;
$this->{TARGET}->next_section(@_) if $this->{TARGET};
}
1
syntax highlighted by Code2HTML, v. 0.9.1