| 8 |
|
# |
| 9 |
|
# Interface |
| 10 |
|
# --------- |
| 11 |
< |
# new(URLcache) : A new SimpleURLDoc object |
| 11 |
> |
# new(URLcache[,DocVersionTag] : A new SimpleURLDoc object. You can also |
| 12 |
> |
# specify an alternative doc version tag |
| 13 |
|
# addbasetags(parse) : Add Base Tags to the given parse |
| 14 |
|
# urlget(urlstring[,location]) : get the given url. Returns (url, filename) |
| 15 |
|
# expandurl(urlstring) : return a URLclass object of the given url expanded |
| 16 |
|
# according to the base settings |
| 17 |
|
# cache([cache]) : get/set the current URL cache |
| 18 |
+ |
# doctype() : return the (type,version) of the document |
| 19 |
+ |
# as specified by the DocVersionTag |
| 20 |
|
|
| 21 |
|
package ActiveDoc::SimpleURLDoc; |
| 22 |
|
use ActiveDoc::SimpleDoc; |
| 28 |
|
my $self={}; |
| 29 |
|
bless $self, $class; |
| 30 |
|
$self->cache(shift); |
| 31 |
< |
$self->{switch}=ActiveDoc::SimpleDoc->new(); |
| 31 |
> |
$self->{switch}=ActiveDoc::SimpleDoc->new(@_); |
| 32 |
|
return $self; |
| 33 |
|
} |
| 34 |
|
|
| 105 |
|
$self->{switch}->parseerror("Unmatched <$name>"); |
| 106 |
|
} |
| 107 |
|
} |
| 105 |
– |
|
