package Tak::MyScript;

use Tak::Takfile;
use Tak::ObjectClient;

sub each_get_homedir {
  my ($self, $remote) = @_;
  my $oc = Tak::ObjectClient->new(remote => $remote);
  my $home = $oc->new_object('Path::Class::Dir')->absolute->stringify;
  $self->stdout->print(
    $remote->host.': '.$home."\n"
  );
}

1;