App-Syndicator
view release on metacpan or search on metacpan
scripts/syndicator view on Meta::CPAN
12345678910111213141516#!/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"
: [
( run in 0.226 second using v1.01-cache-2.11-cpan-eab888a1d7d )