Yet Another CPAN Grep

IPCamera-Reolink ( S/SF/SFOBERSKI/IPCamera-Reolink-1.09.tar.gz, SFOBERSKI, 2025; MetaCPAN )

IPCamera-Reolink/lib/IPCamera/Reolink.pm ( view source; MetaCPAN )

rsion 8 2023-4"

use 5.006;
use strict;
use warnings;

use REST::Client;
use IO::Socket::SSL;
use JSON;
use Data::Dumper;
use Time::HiRes;
use String::Random;

# IPCamera::Reolink channel values.
use

nk::_sendCameraCommand($camera_command): " . $t1 . ": call JSON::encode_json()\n" if($DEBUG > 2);
    my $encoded_request = JSON::encode_json($request_r);

    my $t2 = Time::HiRes::time() if($DEBUG >

($token)){
        if($camera_command eq 'Snap'){
            # Snap command returns JPG data not JSON, rs is a random string used to prevent browser caching of the image data.
            my $url = '

IPCamera-Reolink ( S/SF/SFOBERSKI/IPCamera-Reolink-1.09.tar.gz, SFOBERSKI, 2025; MetaCPAN )

IPCamera-Reolink/blib/lib/IPCamera/Reolink.pm ( view source; MetaCPAN )

rsion 8 2023-4"

use 5.006;
use strict;
use warnings;

use REST::Client;
use IO::Socket::SSL;
use JSON;
use Data::Dump;
use Time::HiRes;
use String::Random;

# IPCamera::Reolink channel values.
use co

nk::_sendCameraCommand($camera_command): " . $t1 . ": call JSON::encode_json()\n" if($DEBUG > 2);
    my $encoded_request = JSON::encode_json($request_r);

    my $t2 = Time::HiRes::time() if($DEBUG >

($token)){
        if($camera_command eq 'Snap'){
            # Snap command returns JPG data not JSON, rs is a random string used to prevent browser caching of the image data.
            my $url = '