Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

update Net::Twitter::Lite

  • Loading branch information...
commit 91349dc3fdd3abfb919f645052fb56f41005657e 1 parent f2c7fe3
hirafoo authored
Showing with 10 additions and 10 deletions.
  1. +10 −10 putweet
View
20 putweet
@@ -51,15 +51,15 @@ sub left {
sprintf "$format", $str
}
sub width { (GetTerminalSize)[0] }
-my %DAY_MAP = (
- Mon => "",
- Tue => "",
- Wed => "",
- Thu => "",
- Fri => "",
- Sat => "",
- Sun => "",
-);
+my %DAY_MAP = qw/
+ Mon
+ Tue
+ Wed
+ Thu
+ Fri
+ Sat
+ Sun
+/;
sub init {
my ($self, @args) = @_;
@@ -375,7 +375,7 @@ sub rel_exists {
my $res1 = $self->nt->friendship_exists($id1, $id2);
my $res2 = $self->nt->friendship_exists($id2, $id1);
- my %rel = (0 => 'NOT ', 1 => '');
+ my %rel = (false => 'NOT ', true => '');
say "$id1 $rel{$res1}following $id2";
say "$id2 $rel{$res2}following $id1";
Please sign in to comment.
Something went wrong with that request. Please try again.