use Games::Grid;


  my $g = Games::Grid->new
    (border => 4,
     right  => sub { $_[0]->{effective}{width} },
     bottom => sub { $_[0]->{effective}{height} },
     fill => '=');

#  $g->clear_screen;

warn sprintf
  "T: %d B: %d L: %d R: %d", $g->top, $g->bottom, $g->left, $g->right;

my $b = $g->can("bottom");
my $r = $g->can("right");

warn sprintf
  "r: $r, b: $b... %d, %d", $g->$b(), $g->$r();


  $g->make_grid;