package MyObject;
use strict;
use warnings;
use Gtk2;

use Glib::Object::Subclass
  Glib::Object::,
  interfaces => [ 'Gtk2::TreeModel',
                  'Gtk2::TreeDragSource' ];

sub DRAG_DATA_GET {
  my ($self, $path, $sel) = @_;
  my $target = Gtk2::Gdk::Atom->intern ('UTF8_STRING');
  my $text = 'hello world';
  $sel->set ($target, 8, $text);
  return 1;
}

package Main;
use strict;
use warnings;

my $obj = MyObject->new;
my $path = Gtk2::TreePath->new_from_indices (0);
my $sel = $obj->drag_data_get ($path);

print $sel,"\n";
exit 0;