6 use Test::More tests => 3;
10 use_ok('Moose::Autobox');
15 # we need a control in the experiment
19 return $n * fact($n - 1);
27 return $n * $f->($n - 1);
36 return $n * ($f->($f))->($n - 1);
40 is(fact(10), fact2(10), '... our factorials match');
41 is(fact(10), fact3()->(10), '... our factorials match');