use v6-alpha;
sub no_donut_for_you (Str $junction) {
state $count = 0;
$count++;
return $count;
}
say no_donut_for_you( any( 'a' .. 'd' ) );
no_donut_for_you( any( 'a' .. 'd' ) ).say;
That outputs something like the following on my system (Version: 6.2.13
(r14927))
any(VInt 1,VInt 2,VInt 3,VInt 4)
any(VRef <Scalar:0x2aa80e0>)
Taking out the final return or the state variable returns other strange
outputs.
Of course, that begs of the question of why I'm trying to cast a
junction as a string, but also, note that I'm not even using the
junction in the function. I discovered that by running the following,
which not only ran 8 tests, but also spewed garbage all over my screen.
use v6-alpha;
use Test;
plan 1;
is 'b', any('a' .. 'h'), 'junctions should work';
I'll happily commit tests, but what is the expected behavior of my
first code snippet?
(I see now that other junction tests use ok() instead)
Cheers,
Ovid
--
Buy the book -- http://www.oreilly.com/catalog/perlhks/
Perl and CGI -- http://users.easystreet.com/ovid/cgi_course/