App-Syndicator

 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 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": [



( run in 0.226 second using v1.01-cache-2.11-cpan-eab888a1d7d )