File Coverage

blib/lib/Math/HexGrid.pm

Criterion	Covered	Total	%
statement	20	22	90.9
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	2	2	100.0
total	27	30	90.0

use strict;
use warnings;
package Math::HexGrid;
$Math::HexGrid::VERSION = '0.01';
# ABSTRACT: Math::HexGrid - create hex coordinate grids

use Math::HexGrid::Hex;
use List::Util qw/min max/;




sub new_hexagon
{
  my ($class, $radius) = @_;

  my %map;
  for (my $q = - $radius; $q <= $radius; $q++)
  {
    my $r1 = max(-$radius, -$q - $radius);
    my $r2 = min($radius, -$q + $radius);

    for (my $r = $r1; $r <= $r2; $r++)
    {
      $map{"$q$r"} = Math::HexGrid::Hex->new($q, $r);
    }
  }

  bless {
    map => \%map,
  }, $class;
}


sub get_hex
{
  my ($self, $q, $r) = @_;
  $self->{map}{"$q$r"};
}


1;

__END__