by-constant">JSON</span><span class="ruby-operator">::</span><span class="ruby-constant">PP</span>;
<span class="ruby-identifier">$json_pkg</span> = <span class="ruby-string">&quot;JSON::PP&quot;</span>;
</pre>

<p>};</p>

<p>launch_watchman();</p>

<p>sub launch_watchman {</p>

<pre>my $o = watchman_query();
if (is_work_tree_watched($o)) {
        output_result($o-&gt;{clock}, @{$o-&gt;{files}});
}</pre>

<p>}</p>

<p>sub output_result {</p>

<pre>my ($clockid, @files) = @_;

# Uncomment for debugging watc