Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

remove args from eg

  • Loading branch information...
commit 1a0528b12ed6f2db9e0f8d16f77db61ad0c8cfcb 1 parent 44919b7
@shibayu36 shibayu36 authored
Showing with 10 additions and 10 deletions.
  1. +7 −7 eg/naoya.pl
  2. +3 −3 eg/simple.pl
View
14 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";
View
6 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) = @_;
# ...
},
};
Please sign in to comment.
Something went wrong with that request. Please try again.