Help for this page

Select Code to Download


  1. or download this
         croak "no wheels specified" unless @_;
-    my @w = map { [ 1, ref eq 'ARRAY' ? @$_ : $_ ] } @_;
+    my @w = map { [ 1, ref eq 'CODE' ? $_->() : $_ ] } @_;
     my $done;
  2. or download this
    sub odometer {
    die "no wheels specified" unless @_;
...
        return wantarray ? @cur : join '', map {defined()?$_:''} @cur;
    };
}
  3. or download this
    use Test::More;
sub array_it {
...
    is_deeply \@o, [qw/ a3 a4 b1 b2 c3 c4 /];
}
done_testing;