Commit | Line | Data |
---|---|---|
241e3dd6 | 1 | package Tak::MyScript; |
2 | ||
3 | use Tak::Takfile; | |
5e5069ca | 4 | use Tak::ObjectClient; |
241e3dd6 | 5 | |
5e5069ca | 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; | |
241e3dd6 | 10 | $self->stdout->print( |
5e5069ca | 11 | $remote->host.': '.$home."\n" |
241e3dd6 | 12 | ); |
241e3dd6 | 13 | } |
14 | ||
15 | 1; |