# | Line 366 | Line 366 | sub _resetstore { | |
---|---|---|
366 | my $self=shift; | |
367 | $self->{stringbuff}=""; | |
368 | } | |
369 | – | |
370 | – | |
371 | – | # ---------------------------------------------------------- |
372 | – | sub context ($key) { |
373 | – | my $self=shift; |
374 | – | my $key=shift; |
375 | – | $key=~tr[A-Z][a-z]; |
376 | – | return ( ${$self->{ContextHash}}{$key} ); |
377 | – | } |
378 | – |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |