Yet Another CPAN Grep

Morpheus ( D/DR/DRUXA/Morpheus-0.46.tar.gz, DRUXA, 2012; MetaCPAN )

Morpheus/debuild/source/t/script.t ( view source; MetaCPAN )

,
    'morph without arguments prints json'
);

$result = qx(bin/morph /foo/bar);
like(
    $result,
    qr/^(5|"5")\n$/,
    'morph without arguments prints json'
);

$result = qx(bin/morph --format=