Cinnamonを使ってみるサンプル

deploy.pl

use strict;
use warnings;
use Cinnamon::DSL;

set application => 'myapp';
set repository  => 'git@github.com:yourname/myapp.git';

role devel => ['aws-myapp-01'], {
    deploy_to => '/home/ec2-user/apps/myapp-devel',
    branch    => 'master',
};

task deploy => {
    update => sub {
        my ($host, @args) = @_;
        my $deploy_to = get('deploy_to');
        my $branch = 'origin/' . get('branch');
        remote {
            run "cd $deploy_to && git fetch origin && git checkout -q $branch";
        } $host;
    },
};

task composer => {
    update => sub {
        my ($host, @args) = @_;
        my $deploy_to = get('deploy_to');
        remote {
            run "cd $deploy_to && composer update";
        } $host;
    },
};