Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

update Net::Twitter::Lite

  • Loading branch information...
commit 91349dc3fdd3abfb919f645052fb56f41005657e 1 parent f2c7fe3
hirafoo authored

Showing 1 changed file with 10 additions and 10 deletions. Show diff stats Hide diff stats

  1. +10 10 putweet
20 putweet
@@ -51,15 +51,15 @@ sub left {
51 51 sprintf "$format", $str
52 52 }
53 53 sub width { (GetTerminalSize)[0] }
54   -my %DAY_MAP = (
55   - Mon => "月",
56   - Tue => "火",
57   - Wed => "水",
58   - Thu => "木",
59   - Fri => "金",
60   - Sat => "土",
61   - Sun => "日",
62   -);
  54 +my %DAY_MAP = qw/
  55 + Mon 月
  56 + Tue 火
  57 + Wed 水
  58 + Thu 木
  59 + Fri 金
  60 + Sat 土
  61 + Sun 日
  62 +/;
63 63
64 64 sub init {
65 65 my ($self, @args) = @_;
@@ -375,7 +375,7 @@ sub rel_exists {
375 375
376 376 my $res1 = $self->nt->friendship_exists($id1, $id2);
377 377 my $res2 = $self->nt->friendship_exists($id2, $id1);
378   - my %rel = (0 => 'NOT ', 1 => '');
  378 + my %rel = (false => 'NOT ', true => '');
379 379
380 380 say "$id1 $rel{$res1}following $id2";
381 381 say "$id2 $rel{$res2}following $id1";

0 comments on commit 91349dc

Please sign in to comment.
Something went wrong with that request. Please try again.