diff options
| -rw-r--r-- | lib/Language/TECO.pm | 3 | ||||
| -rw-r--r-- | lib/Language/TECO/Buffer.pm | 5 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm index f2fea09..0f3c966 100644 --- a/lib/Language/TECO.pm +++ b/lib/Language/TECO.pm @@ -6,7 +6,8 @@ use Language::TECO::Buffer; sub new { my $class = shift; - my $object = { buffer => Language::TECO::Buffer->new }; + my $initial_buffer = shift; + my $object = { buffer => Language::TECO::Buffer->new($initial_buffer) }; bless $object, $class; $object->reset; return $object; diff --git a/lib/Language/TECO/Buffer.pm b/lib/Language/TECO/Buffer.pm index 8056391..47c65cb 100644 --- a/lib/Language/TECO/Buffer.pm +++ b/lib/Language/TECO/Buffer.pm @@ -4,7 +4,10 @@ use warnings; package Language::TECO::Buffer; sub new { - return bless { buffer => '', pointer => 0 }, shift; + my $class = shift; + my $initial_buffer = shift; + $initial_buffer = '' unless defined $initial_buffer; + return bless { buffer => $initial_buffer, pointer => 0 }, $class; } sub set { |