#!/usr/bin/perl -w
use strict;
use GRID::Machine;

my $host = shift || $ENV{GRID_REMOTE_MACHINE};

my $m = GRID::Machine->new(host => $host, uses => [q{List::Util qw{reduce}}]);

$m->makemethod( 'reduce', filter => 'result' );
my $r = $m->reduce(sub { $a > $b ? $a : $b }, (7,6,5,12,1,9));
print "\$r =  $r\n";

my $m2 = GRID::Machine->new(host => $host, uses => [q{List::Util}]);

$m2->makemethod( 'List::Util::reduce' );
$r = $m2->reduce(sub { $a > $b ? $a : $b }, (7,6,5,12,1,9));
die $r->errmsg unless $r->ok;
print "\$r =  ".$r->result."\n";