zoffixznet · May 17, 2016 16:51
diff --git a/gistfile1.txt b/gistfile1.txt
 subset IntPair of Pair where {
 die "Key $_.key() is not an Int" unless val($_.key.Str) ~~ Int;
 die "Value $_.value() is not an Int" unless .value ~~ Int;
 True
 }
 my  @edges  of IntPair =
 1 => 2,
 3 => 4,
 6 => 2;

 sub foo(@e where {.all ~~ IntPair}) { say @e }
 foo(@edges)
	subset IntPair of Pair where {
	die "Key $_.key() is not an Int" unless val($_.key.Str) ~~ Int;
	die "Value $_.value() is not an Int" unless .value ~~ Int;
	True
	}
	my @edges of IntPair =
	1 => 2,
	3 => 4,
	6 => 2;

	sub foo(@e where {.all ~~ IntPair}) { say @e }
	foo(@edges)