package Foo;
use strict;
use warnings;

our @ISA;
use Gtk2;
use Glib::Object::Subclass
  Gtk2::ScrolledWindow::;

BEGIN {
  require Exporter;
  unshift @ISA, qw(Exporter);
  our @EXPORT = qw(SOME_CONST);
  $, = "\n";
  print @ISA,"\n";
}

sub new {
  my $class = shift;
  my $self = $class->SUPER::new();
  # bless($self, $class);

  #
  # Do some stuff that can't be done in INIT_INSTANCE
  #

  return $self;
}

sub SOME_CONST {
  123;
}