view release on metacpan or  search on metacpan

scripts/syndicator  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/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": [