package Tk::SyntayTreeGraph::Node; use strict; use warnings; use base qw/Tree::Simple::Extended/; sub draw_node { # ... } # /draw_node 1;