71 |
|
{ |
72 |
|
my $self=shift; |
73 |
|
$parselabel=shift; |
74 |
+ |
my $fhead=shift || ""; |
75 |
+ |
my $ftail=shift || ""; |
76 |
|
my $file=$self->filetoparse(); |
77 |
|
|
78 |
|
if ( -f $file ) |
83 |
|
$self->{currentparsename}=$parselabel; |
84 |
|
$self->{currentparser}=$self->{parsers}{$parselabel}; |
85 |
|
# Parse and store the returned data in content (only for Streams style): |
86 |
+ |
$self->{parsers}{$parselabel}->filehead($fhead); |
87 |
+ |
$self->{parsers}{$parselabel}->filetail($ftail); |
88 |
|
$self->{content} = $self->{parsers}{$parselabel}->parse($file,@_)->data(); |
89 |
|
delete $self->{currentparser}; |
90 |
|
$self->{currentparsename}=""; |