2 use strict; use warnings;
4 # enable autoflush on STDOUT.
5 # this is essential, because we print our statuslines without a newline
9 our @EXPORT = qw/status_init status status_completed/;
11 my $ansi_clear_line = "\033[2K";
12 my $ansi_save_cursor = "\0337";
13 my $ansi_restore_cursor = "\0338";
14 my %ansi_line_upwards;
18 # setup %ansi_line_upwards to map all working displays to the
19 # specific movement commands and initialize all status lines
22 my $displays = $args{displays};
23 $tests_total = $args{tests};
25 for my $n (1 .. @$displays) {
26 # since we are moving upwards, get $display in reverse order
27 my $display = $displays->[-$n];
29 $ansi_line_upwards{$display} = "\033[$n\101";
31 # print an empty line for this status line
38 # generates the status text, prints it in the appropiate line
39 # and returns it, so it can be used in conjuction with C<Log()>
41 my ($display, $msg) = @_;
42 my $status = "[$display] $msg";
46 $ansi_line_upwards{$display},
54 sub status_completed {
59 "completed $num of $tests_total tests",