| # | Line 104 | Line 104 | sub parse() | |
|---|---|---|
| 104 | if (-f $filename) | |
| 105 | { | |
| 106 | $self->parsefile_($filename); | |
| 107 | < | # Move the data from the container to {data_} key: |
| 107 | > | # Move the data from the container to {data_} key and |
| 108 | > | # also keep a reference to the whole container object |
| 109 | > | # just in case there is other data needed outside of 'content': |
| 110 | $self->data(); | |
| 111 | } | |
| 112 | else | |
| # | Line 138 | Line 140 | sub data() | |
| 140 | { | |
| 141 | my $self=shift; | |
| 142 | $self->{data_} = $CONTAINER->data_(); | |
| 143 | + | $self->{fulldata_} = $CONTAINER; |
| 144 | } | |
| 145 | ||
| 146 | # The default handlers: | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |