X-Git-Url: http://lab.mitty.jp/git/?a=blobdiff_plain;f=twitter%2Fnt_bot.pl;fp=twitter%2Fnt_bot.pl;h=0000000000000000000000000000000000000000;hb=8333ea00a9fe608c90c20af12ea0c51548f66f4e;hp=5b005caac1da91e18981d851b73515b7a69634b6;hpb=920ad9e17feea13643c407944f9452b03bd45b6e;p=lab.git

diff --git a/twitter/nt_bot.pl b/twitter/nt_bot.pl
deleted file mode 100755
index 5b005ca..0000000
--- a/twitter/nt_bot.pl
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use utf8;
-use Net::Twitter;
-
-use YAML::Tiny;
-my $config = (YAML::Tiny->read('config.yml'))->[0];
-
-my $consumer_key = $config->{'consumer_key'};
-my $consumer_key_secret = $config->{'consumer_secret'};
-my $access_token = $config->{'access_token'};
-my $access_token_secret = $config->{'access_token_secret'};
-
-my $nt = Net::Twitter->new(
-  traits          => ['API::REST', 'OAuth'],
-  consumer_key    => $consumer_key,
-  consumer_secret => $consumer_key_secret,
-);
-$nt->access_token($access_token);
-$nt->access_token_secret($access_token_secret);
-
-my $res = $nt->update({ status => "Perl から Twiitter を更新するテストですよー" });