Takfile

   1 package Tak::MyScript;
   2
   3 use Tak::Takfile;
   4 use Tak::ObjectClient;
   5
   6 sub each_get_homedir {
   7   my ($self, $remote) = @_;
   8   my $oc = Tak::ObjectClient->new(remote => $remote);
   9   my $home = $oc->new_object('Path::Class::Dir')->absolute->stringify;
  10   $self->stdout->print(
  11     $remote->host.': '.$home."\n"
  12   );
  13 }
  14
  15 1;