[scpubgit/Tak.git] / Takfile

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;
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;