diff options
| -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; |