package oo::job;
@ISA = qw/ oo::gui::defaultjob/;
use strict;

sub new { }; # Make my hash and bless into oo::job
1;

package oo::gui::defaultjob;
@ISA= qr/ Tk /;

sub build_gui { }; #packing widgets into a toplevel object
sub display{} ; #invoke MainLoop on toplevel 
1;
package main;
use oo::job;
my $job = oo::job->new( %options );
 $job->build_gui();
 $job->display;