Help for this page

Select Code to Download


  1. or download this
    use Term::ReadLine;
    use v5.10;
    use strict; 
    ...
        print prompt();
        $text->{term_attribs}->{already_prompted} = 0;
    }
    
  2. or download this
    sub teardown_hotkeys {
        $text->{termkey}->termkey->stop(); # <---- RESTORES ECHO
        delete $text->{termkey}; # <-------------- OBJECT GARBAGE COLLECTE
    +D
    
  3. or download this
          initialize_terminal();
        initialize_prompt();
    }
    ...
        delete $engine->{events}->{stdin};
    }
    sub toggle_transport { say "toggle transport" }