view release on metacpan or  search on metacpan

bin/BackupTumblr  view on Meta::CPAN

#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;
use JSON;
use WWW::Tumblr;
use File::Fetch;

binmode STDOUT, ':encoding(UTF-8)';

use constant {
    NUMBER_OF_FETCH => 20
};

my ($total_count, $fetch_count) = (0, 0);
my $tumblr_url = shift // 'http://dalinaum-kr.tumblr.com';
my $tumblr = WWW::Tumblr->new;
$tumblr->url($tumblr_url);