# | Line 1 | Line 1 | |
---|---|---|
1 | + | |
2 | + | BEGIN |
3 | + | { |
4 | + | print " ActiveDoc::StarterDoc: I AM used!!","\n"; |
5 | + | }; |
6 | + | |
7 | # | |
8 | # StarterDoc.pm - An active Document | |
9 | # | |
# | Line 50 | Line 56 | sub _init { | |
56 | sub init { | |
57 | # dummy to be overriden | |
58 | } | |
59 | + | |
60 | + | |
61 | + | # |
62 | + | # oveerride the parseerror method so initiating calls dont break due to no url |
63 | + | # |
64 | + | sub parseerror { |
65 | + | my $self=shift; |
66 | + | $self->error(@_); |
67 | + | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |