use strict;
use warnings;

package MyModel;
use Gtk2;
use Glib::Object::Subclass
  Glib::Object::,
  interfaces => [ Gtk2::TreeModel::, Gtk2::TreeSortable:: ];

sub SET_SORT_FUNC {
}

package main;
my $model = MyModel->new;

sub my_compare { 1 }

while (1) {
  $model->set_sort_func (0, \&my_compare);
}
