| 33 |
|
bless $self, $class; |
| 34 |
|
$self->cache(shift); |
| 35 |
|
$self->_initdoc("doc",@_); |
| 36 |
– |
#$self->{switch}=ActiveDoc::SimpleDoc->new(@_); |
| 36 |
|
return $self; |
| 37 |
|
} |
| 38 |
|
|
| 83 |
|
return ($fullurl,$filename); |
| 84 |
|
} |
| 85 |
|
|
| 87 |
– |
#sub AUTOLOAD { |
| 88 |
– |
# my $self=shift; |
| 89 |
– |
# |
| 90 |
– |
# dont propogate destroy methods |
| 91 |
– |
# return if $AUTOLOAD=~/::DESTROY/; |
| 92 |
– |
|
| 93 |
– |
# remove this package name |
| 94 |
– |
# ($name=$AUTOLOAD)=~s/ActiveDoc::SimpleURLDoc:://; |
| 95 |
– |
|
| 96 |
– |
# pass the message to SimpleDoc |
| 97 |
– |
# $self->{switch}->$name(@_); |
| 98 |
– |
#} |
| 99 |
– |
|
| 86 |
|
# ------------------------ Support Routines --------------------------- |
| 87 |
|
|
| 88 |
|
# ------------------------ Tag Routines ------------------------------- |
| 94 |
|
|
| 95 |
|
$self->checktag($name, $hashref, "url"); |
| 96 |
|
my $url=$self->{urlhandler}->setbase($$hashref{'url'}); |
| 97 |
+ |
# Add store for url of the file currently being parsed. This info can |
| 98 |
+ |
# then be extracted in Requirements objects |
| 99 |
+ |
$self->{configurl}=$url; |
| 100 |
|
push @{$self->{basestack}}, $url->type(); |
| 101 |
|
} |
| 102 |
|
|
