| # | Line 10 | Line 10 | |
|---|---|---|
| 10 | # Interface | |
| 11 | # --------- | |
| 12 | # new() : A new DocTester object | |
| 13 | + | # initdoc([docstore]) : initialise starter doc etc. |
| 14 | + | # --- after initdoc can call |
| 15 | + | # newdoc(url) : create a new document with the given url |
| 16 | + | # docstore() : return the base document store |
| 17 | ||
| 18 | package ActiveDoc::DocTester; | |
| 19 | require 5.004; | |
| # | Line 47 | Line 51 | sub userinterface { | |
| 51 | my $self=shift; | |
| 52 | $self->{appl}->userinterface(@_); | |
| 53 | } | |
| 54 | + | |
| 55 | + | sub docstore { |
| 56 | + | my $self=shift; |
| 57 | + | $self->{docstore}; |
| 58 | + | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |