remove args from eg

kentaro · Jul 1, 2013 · 1a0528b · 1a0528b
1 parent 44919b7
commit 1a0528b
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 10 deletions.
diff --git a/eg/naoya.pl b/eg/naoya.pl
@@ -16,7 +16,7 @@
 
 task deploy  => {
     setup => sub {
-        my ($host, @args) = @_;
+        my ($host) = @_;
         my $repository = get('repository');
         my $deploy_to  = get('deploy_to');
         my $branch   = 'origin/' . get('branch');
@@ -25,7 +25,7 @@
         } $host;
     },
     update => sub {
-        my ($host, @args) = @_;
+        my ($host) = @_;
         my $deploy_to = get('deploy_to');
         my $branch   = 'origin/' . get('branch');
         remote {
@@ -36,25 +36,25 @@
 
 task server => {
     start => sub {
-        my ($host, @args) = @_;
+        my ($host) = @_;
         remote {
             sudo "supervisorctl start myapp";
         } $host;
     },
     stop => sub {
-        my ($host, @args) = @_;
+        my ($host) = @_;
         remote {
             sudo "supervisorctl stop myapp";
         } $host;
     },
     restart => sub {
-        my ($host, @args) = @_;
+        my ($host) = @_;
         remote {
             run "kill -HUP `cat /tmp/myapp.pid`";
         } $host;
     },
     status => sub {
-        my ($host, @args) = @_;
+        my ($host) = @_;
         remote {
             sudo "supervisorctl status";
         } $host;
@@ -63,7 +63,7 @@
 
 task carton => {
     install => sub {
-        my ($host, @args) = @_;
+        my ($host) = @_;
         my $deploy_to = get('deploy_to');
         remote {
             run ". ~/perl5/perlbrew/etc/bashrc && cd $deploy_to && carton install";

diff --git a/eg/simple.pl b/eg/simple.pl
@@ -36,7 +36,7 @@
 
 # Tasks
 task update => sub {
-    my ($host, @args) = @_;
+    my ($host) = @_;
 
     # Executed on localhost
     run 'some', 'command';
@@ -51,7 +51,7 @@
 # nest tasks
 task server => {
     setup => sub {
-        my ($host, @args) = @_;
+        my ($host) = @_;
 
         # Executed on localhost
         run 'some', 'command';
@@ -67,7 +67,7 @@
     },
 
     restart => sub {
-        my ($host, @args) = @_;
+        my ($host) = @_;
         # ...
     },
 };