class button { // The tvision class
public:
virtual void buttonclick(){
//Overwrite me ...
}
...
}

class mybutton public Button { // This is my button
...
virtual void buttonclick(){
  //do something
  exit(0);
}
}

int main(){
//Initialize the app..
app->mainloop();
}

##</code><code>##

--- cpp layer
class perlwrapper_button public Button{
virtual void buttonclick(){
   if ( !call perl->this_instance->buttonclick() ){
      Button::buttonclick(); // Call tvision's buttononclick
  }
}
}
--- perl module
package Button;
sub buttonclick{
  return 0;
}
1;

--- The perl code of mybutton:
package MyButton;
push @ISA, 'Button';

sub buttonclick{
  exit(0);
}
1;