lib/PublicInbox/LeiLsWatch.pm

   1 # Copyright all contributors <meta@public-inbox.org>
   2 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
   3
   4 package PublicInbox::LeiLsWatch;
   5 use strict;
   6 use v5.10.1;
   7
   8 sub lei_ls_watch {
   9         my ($lei) = @_;
  10         my $cfg = $lei->_lei_cfg or return;
  11         my @w = (join("\n", keys %$cfg) =~ m/^watch\.(.+?)\.state$/sgm);
  12         $lei->puts(join("\n", @w)) if @w;
  13 }
  14
  15 1;