/script/setup-pit.pl

 1#!/usr/bin/env perl
 2use strict;
 3use warnings;
 4use Config::Pit;
 5use WWW::NicoVideo::Download;
 6
 7my $config = pit_get('nicovideo.jp', require => {
 8    username => 'email/username',
 9    password => 'password',
10});
11my $client = WWW::NicoVideo::Download->new(
12    email    => $config->{username},
13    password => $config->{password},
14);
15
16eval {
17    $client->login('sm14');
18};
19
20if ($@) {
21    warn "$@\n";
22    print "Login failed; please check your config\n";
23} else {
24    print "Login succeeded\n";
25}
26
271;