.

HexGrid.pm

@@ -120,6 +120,19 @@ sub subgrid_for_tiles($this, @coords_list)
 	return $subgrid;
 }
 
+sub iter_region($this, $code)
+{
+	foreach my $region (values %{$this->{regions}})
+	{
+		$code->($region);
+	}
+}
+
+sub iter_tile($this, $code)
+{
+	$this->iter_region(sub($region) { $region->iter_tile($code) });
+}
+
 sub render($this)
 {
 	my ($min_x,$min_y,$max_x,$max_y) = qw(Inf Inf -Inf -Inf);

HexGrid/Region.pm

@@ -42,6 +42,17 @@ sub make_subregion($this, $name, %defaults)
 	$this->add_subregion(HexGrid::Region->new(name => $name, defaults => $tile_defaults));
 }
 
+sub iter_tile($this, $code)
+{
+	foreach my $nw (keys %{$this->{tiles}})
+	{
+		foreach my $sw (keys %{$this->{tiles}{$nw}})
+		{
+			$code->($this->{tiles}{$nw}{$sw});
+		}
+	}
+}
+
 sub render($this, $svg, $laters, $grid)
 {
 	my ($min_x,$min_y,$max_x,$max_y) = qw(Inf Inf -Inf -Inf);