view release on metacpan or  search on metacpan

lib/DB/Hooks/HistoryTerminal.pm  view on Meta::CPAN

sub CleanHistory {

    open FILE, '>', $fn or die "Can't open > $fn: $!";

    print FILE "";

    close FILE or warn "Close failed: $!";
}

# #View all command in history
# sub HistoryMenu{
# # 	my ( $history )  = @_;
# # 	$prim_command = $buffer ne "" ? $buffer : $prim_command;

# # 	print "\nHistory:\n";
# # 	foreach my $n ( @$history ) {
# # 		print $n, "\n";
# # 	}

# # 	$prim_command = $prim_command ? $prim_command : "";