optionally initialize the buffer with an argument passed to the constructor

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 {