# Copyright all contributors # License: AGPL-3.0+ package PublicInbox::LeiLsWatch; use strict; use v5.10.1; sub lei_ls_watch { my ($lei) = @_; my $cfg = $lei->_lei_cfg or return; my @w = (join("\n", keys %$cfg) =~ m/^watch\.(.+?)\.state$/sgm); $lei->puts(join("\n", @w)) if @w; } 1;