view release on metacpan or  search on metacpan

lib/App/watchdiff.pm  view on Meta::CPAN

			   $termcap{decrc});
    }
}

##
## Run all commands given by --exec and concatenate their output.
##
package App::watchdiff::Command {
    use parent 'Command::Run';
    use Time::localtime;
    sub update {
	my $obj = shift;
	$obj->data(join "\n",
		   map { $obj->execute($_)->{data} // '' } $obj->command);
	$obj->date(ctime());
	$obj;
    }
}

sub do_loop {
    my $opt = shift;