Yet Another CPAN Grep

Gtk2-CV ( M/ML/MLEHMANN/Gtk2-CV-2.0.tar.gz, MLEHMANN, 2022; MetaCPAN )

Gtk2-CV/lib/Gtk2/CV/ImageWindow.pm ( view source; MetaCPAN )

se Scalar::Util;
use POSIX ();
use FileHandle ();
use Errno ();
use Fcntl ();
use Socket ();

use JSON::XS ();

my $title_image;

# should go to utility module
sub dir_is_movie($) {
   -f "$_[0]/VIDEO

y $ffmpeg = qx{ffprobe -v quiet -show_format -of json -- \Q$path};

            # ffmpeg doesn't properly encode json
            $ffmpeg = eval { JSON::XS->new->latin1->decode ($ffmpeg) };

 = qx{ffprobe -v quiet -show_streams -of json -- $ffmpeg_protocol:\Q$path};

            # ffmpeg doesn't properly encode json
            $ffmpeg = eval { JSON::XS->new->latin1->decode ($ffmpeg) };