diff options
| author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 01:08:53 -0500 |
|---|---|---|
| committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 01:08:53 -0500 |
| commit | 68c63e667ddf2b2520968e4c33302bcf909be0eb (patch) | |
| tree | 81a5c213c1502c5066fd78cf08f8a1d4e765edbd | |
| parent | 96f22fd05b38053c17dc30c46d2d6d22e8b3e057 (diff) | |
| download | language-teco-68c63e667ddf2b2520968e4c33302bcf909be0eb.tar.gz language-teco-68c63e667ddf2b2520968e4c33302bcf909be0eb.zip | |
add read-only accessors for the current buffer and position
| -rw-r--r-- | lib/Language/TECO.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm index 0f3c966..cd48bde 100644 --- a/lib/Language/TECO.pm +++ b/lib/Language/TECO.pm @@ -13,6 +13,9 @@ sub new { return $object; } +sub buffer { shift->{buffer}->{buffer} } +sub pointer { shift->{buffer}->{pointer} } + sub reset { my $self = shift; |