package Table3; 
 
use Text::Table; 
 
sub addrow { 
	$tb=${$_[0]}; 
	$tb->load( [ $_[1], $_[2] ], $_[3] ); 
} 
 
use Storable; 
 
sub save { 
	$htb=$_[0]; 
	store $htb, 'filename'; 
} 
 
sub retriv { 
	$htb=retrieve('filename'); 
	return $htb; 
} 
 
1;

package CmdLine; 
use Table3; 
 
sub create { 
	my $tb=Text::Table->new("Time", "Scared feeling", "Akathisia"); 
	return $tb; 
}	 
 
# touch 'filename' 
if (! -e 'filename') { 
	$tb=create; 
	Table3::save(\$tb); 
} 
		 
my $htb=Table3::retriv; 
my $tb=${$htb}; 
 
use Term::Menu; 
 
while(1) { 
	my $prompt=new Term::Menu; 
	my $answer=$prompt->menu( 
		add => ["Add new entry.", 'a'], 
		save => ["Save", 's'], 
		view => ["View", 'v'], 
		quit => ["Quit", 'q'] 
	); 
	if ($answer eq 'quit') { 
		last; 
	} 
	elsif ($answer eq 'add') { 
		if (! -e 'filename') { 
			$tb=create; 
			Table3::save(\$tb); 
		} 
		# add new entry here. 
		my $entry={'timeofday'=>"", 'scared'=>"", 'aka'=>""}; 
		while (1) { 
			my $prompt=new Term::Menu; 
			my $answer=$prompt->menu( 
				save => ["Save entry", 'v'], 
				timeofday => ["Time of day", 't'], 
				scared => ["Scared feeling", 's'], 
				aka => ["Akathisia", 'a'], 
				back => ["Back", 'b'] 
			); 
			if ($answer eq 'timeofday') { 
				$entry->{'timeofday'}=<>; 
			} 
			elsif ($answer eq 'scared') { 
				$entry->{'scared'}=<>; 
			} 
			elsif ($answer eq 'aka') { 
				$entry->{'aka'}=<>; 
			} 
			elsif ($answer eq 'back') { 
				last; 
			} 
			elsif ($answer eq 'save') { 
				Table3::addrow(\$tb, $entry->{'timeofday'}, $entry->{'scared'}, $entry->{'aka'}); 
			} 
			else {} 
		} 
				 
		#Table3::addrow(\$tb, '3 days ago', 'no'); 
	} 
	elsif ($answer eq 'save') { 
		Table3::save(\$tb); 
	} 
	elsif ($answer eq 'view') { 
		$htb=Table3::retriv; 
		print ${$htb}; 
	} 
	else {} 
}

$tb->load( [ $_[1], $_[2] ], $_[3] );

 
$tb->load( [ $_[1], $_[2] ], $_[3] ); 
 
#should be 
 
$tb->load(  $_[1], $_[2] , $_[3] );

$tb–>load( [ $_[1], $_[2], $_[3] ] ];