simplify cpanify command a bit

mojolicious · Mar 18, 2012 · f7f5784 · f7f5784
1 parent 27c7160
commit f7f5784
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/lib/Mojolicious/Command/cpanify.pm b/lib/Mojolicious/Command/cpanify.pm
@@ -22,18 +22,15 @@ sub run {
 
   # Options
   local @ARGV = @_;
-  my $password = my $user = '';
+  my ($password, $user) = '';
   GetOptions(
     'p|password=s' => sub { $password = $_[1] },
     'u|user=s'     => sub { $user     = $_[1] }
   );
-  my $file = shift @ARGV;
-  die $self->usage unless $file;
+  die $self->usage unless my $file = shift @ARGV;
 
   # Upload
-  my $ua = Mojo::UserAgent->new;
-  $ua->detect_proxy;
-  my $tx = $ua->post_form(
+  my $tx = Mojo::UserAgent->new->detect_proxy->post_form(
     "https://$user:$password\@pause.perl.org/pause/authenquery" => {
       HIDDENNAME                        => $user,
       CAN_MULTIPART                     => 1,