| 97 |
|
|
| 98 |
|
sub url { |
| 99 |
|
my $self=shift; |
| 100 |
< |
@_ ?$self->{File}=$self->getfile(shift) |
| 101 |
< |
: $self->{File}; |
| 100 |
> |
# get file & preprocess |
| 101 |
> |
if ( @_ ) {$self->{File}=$self->getfile(shift)} |
| 102 |
> |
$self->{File}->url(); |
| 103 |
|
} |
| 104 |
|
|
| 105 |
|
sub copydocconfig { |
| 189 |
|
sub line { |
| 190 |
|
my $self=shift; |
| 191 |
|
my ($line, $fileobj)= |
| 192 |
< |
$self->{PPfile}->line($self->{currentparser}->line()); |
| 192 |
> |
$self->{File}->line($self->{currentparser}->line()); |
| 193 |
|
return ($line, $fileobj); |
| 194 |
|
} |
| 195 |
|
|
| 196 |
|
sub tagstartline { |
| 197 |
|
my $self=shift; |
| 198 |
< |
my ($line, $fileobj)=$self->{PPfile}->line( |
| 198 |
> |
my ($line, $fileobj)=$self->{File}->line( |
| 199 |
|
$self->{currentparser}->tagstartline()); |
| 200 |
|
return ($line, $fileobj); |
| 201 |
|
} |
| 203 |
|
sub file { |
| 204 |
|
my $self=shift; |
| 205 |
|
|
| 206 |
< |
$self->{PPf}->file(); |
| 206 |
> |
$self->{File}->file(); |
| 207 |
|
} |
| 208 |
|
|
| 209 |
|
# --------------- Initialisation Methods --------------------------- |
| 210 |
|
|
| 210 |
– |
sub preprocess_init { |
| 211 |
– |
my $self=shift; |
| 212 |
– |
$self->{PPfile}=PreProcessedFile->new($self->config()); |
| 213 |
– |
} |
| 214 |
– |
|
| 211 |
|
sub init { |
| 212 |
|
# Dummy Routine - override for derived classes |
| 213 |
|
} |
