view release on metacpan or  search on metacpan

scripts/syndicator  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use App::Syndicator;
use IO::All;
binmode STDOUT, ":utf8";

if (grep { /^-?-init$/ } @ARGV) {
    my $BASE = "$ENV{HOME}/.syndicator"; 
    mkdir "$BASE";

    io("$BASE/main.db") < ""
    unless -f "$BASE/main.db";

    my $config_template = '{
        "sources": [