Yet Another CPAN Grep

WWW-Noss ( S/SA/SAMYOUNG/WWW-Noss-2.00.tar.gz, SAMYOUNG, 2025; MetaCPAN )

WWW-Noss/lib/WWW/Noss.pm ( view source; MetaCPAN )

pfile);
use List::Util qw(max);
use POSIX qw(strftime);
use Pod::Usage;
use Term::ANSIColor;

use JSON;

use WWW::Noss::Curl qw(curl curl_error http_status_string);
use WWW::Noss::DB;
use WWW::Noss::F

 $/ = undef; readline $fh };
    close $fh;

    my $json_obj = JSON->new->relaxed;
    my $json = $json_obj->decode($slurp);

    unless (ref $json eq 'HASH') {
        die "$self->{ ConfFile } is no

id $PRGNAM configuration file\n";
    }

    if (defined $json->{ feeds }) {
        if (not ref $json->{ feeds }) {
            my $p = $json->{ feeds } =~ s/^~/@{[ home ]}/r;
            $self->{ Fe

WWW-Noss ( S/SA/SAMYOUNG/WWW-Noss-2.00.tar.gz, SAMYOUNG, 2025; MetaCPAN )

WWW-Noss/lib/WWW/Noss/DB.pm ( view source; MetaCPAN )

ings;
our $VERSION = '2.00';

use List::Util qw(all any max none);

use DBD::SQLite;
use DBI;
use JSON;

use WWW::Noss::FeedReader qw(read_feed);
use WWW::Noss::Util qw(resolve_url);

my %DAY_MAP = (

 encode_json($feedref->{ category }) : undef),
        $feedref->{ generator },
        $feedref->{ image },
        $feedref->{ rights },
        (defined $feedref->{ skiphours } ? encode_json($feedr

ef->{ skiphours }) : undef),
        (defined $feedref->{ skipdays  } ? encode_json($feedref->{ skipdays  }) : undef),
    );

    my $upsert_post = $self->{ DB }->prepare(
        q{
INSERT INTO post