package MyObj;
use strict;
use warnings;
use Glib;

use Glib::Object::Subclass
  'Glib::Object',
  properties => [Glib::ParamSpec->int
                 ('foo',
                  'foo',
                  'Blurb.',
                  0, 100, 0,
                  Glib::G_PARAM_READWRITE)
                ];

sub GET_PROPERTY {
  my ($self, $pspec) = @_;
  main::grow_the_stack();
  return 50;
}

package main;
use strict;
use warnings;
use Gtk2 '-init';
use Data::Dumper;

my $region = Gtk2::Gdk::Region->new;
foreach (0 .. 500) {
  my $rect = Gtk2::Gdk::Rectangle->new ($_ * 2, 1,1,1);
  $region->union_with_rect ($rect);
}

sub grow_the_stack {
  $region->get_rectangles;
}


my $obj = MyObj->new;
my @a = $obj->get ('foo');
print Dumper(\ a);

# print $k->get_groups;