It boggles my mind when I try to convert a regular Tk script to an OO one. But make sure you use Tk::Derived and set your Super so $mw gets passed in. Look at this simplified example. 
#!/usr/bin/perl
use warnings;
use strict;
use Tk;

package ZCanTree;

#without Tk::Derived the option -dooda will fail
use base qw(Tk::Derived Tk::Canvas);
Tk::Widget->Construct('ZCanTree');

sub ClassInit {
    my ($class, $mw) = @_;
    #set the $mw as parent
    $class->SUPER::ClassInit($mw);
} # end ClassInit


sub Populate {
    my ( $self, $args ) = @_;
#-------------------------------------------------------------------
#take care of args which don't belong to the SUPER, see Tk::Derived
my $xtra_arg = delete $args->{-dooda};  #delete and read same time 
if( defined $xtra_arg ) { $self->{'dooda'} = $xtra_arg }

#-----------------------------------------------------------------
    $self->SUPER::Populate($args);

    $self->{'can'} = $self->Canvas(
             )->pack(-expand=>1,-fill=>'both');

    $self->Advertise( Canvas => $self->{'can'} );

print "2\n";
}

sub get_dooda{
    my $self  = shift;
    return $self->{'dooda'};
}
1;


package main;
use Tk;

my $mw = MainWindow->new;
$mw->geometry("400x400");

my $canf = $mw->ZCanTree( -bg => 'black', 
                          -dooda => 42,
                  )->pack(-fill=>'both',-expand=>1);

my $button = $mw->Button( -text=>'Dooda', 
          -command=> sub{ print $canf->get_dooda(),"\n" } )->pack();

my $button1 = $mw->Button( -text=>'Exit', -command=> sub{exit} )->pack
+();

Tk::MainLoop;

[download]
I'm not really a human, but I play one on earth. Cogito ergo sum a bum

In reply to Re: Missing base classes when called from Tk by zentara
in thread Missing base classes when called from Tk by perl-diddler

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.