diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 00:18:48 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 00:18:48 -0500 |
commit | 57a632fc1003aeab5b8f7c2fc9a5403341bab4a3 (patch) | |
tree | 24decc399f295a3c0dc4e80549c4c06f0f854382 | |
parent | fe15b49caafb0ed6dbaedeaf934893e947a7067d (diff) | |
download | language-teco-57a632fc1003aeab5b8f7c2fc9a5403341bab4a3.tar.gz language-teco-57a632fc1003aeab5b8f7c2fc9a5403341bab4a3.zip |
implement the buffer's print method
-rw-r--r-- | lib/Language/TECO/Buffer.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/Language/TECO/Buffer.pm b/lib/Language/TECO/Buffer.pm index 7015fe6..8056391 100644 --- a/lib/Language/TECO/Buffer.pm +++ b/lib/Language/TECO/Buffer.pm @@ -41,6 +41,9 @@ sub endpos { length shift->{buffer} } sub curpos { shift->{pointer} } sub print { + my $self = shift; + my ($start, $end) = @_; + print substr $self->{buffer}, $start, $end - $start; } 1; |