Raps2/UI.pm: Only create Term::ReadLine object when neccessary

1 files changed, 6 insertions, 2 deletions

diff --git a/lib/App/Raps2/UI.pm b/lib/App/Raps2/UI.pm
index 9d6b458..0b8f5fd 100644
--- a/lib/App/Raps2/UI.pm
+++ b/lib/App/Raps2/UI.pm
@@ -15,8 +15,6 @@ sub new {
 
 	my $ref = {};
 
-	$ref->{term_readline} = Term::ReadLine->new('App::Raps2');
-
 	return bless( $ref, $obj );
 }
 
@@ -37,6 +35,12 @@ sub list {
 sub read_line {
 	my ( $self, $str, $pre ) = @_;
 
+	# Term::ReadLine->new() takes quite long but is not always required.
+	# So create it here (if needed) instead of in ->new
+	if ( not $self->{term_readline} ) {
+		$self->{term_readline} = Term::ReadLine->new('App::Raps2');
+	}
+
 	my $input = $self->{term_readline}->readline( "${str}: ", $pre );
 
 	return $input;