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 ------------------------------- |