package foobar; use strict; use foo; use bar; use vars(qw(@ISA)); @ISA=qw(foo bar); sub new { print "foobar::new\n"; my $self = bless( {}, shift ); $self->init(@_); return $self; } sub init { print "foobar::init\n"; my $self = shift; my %args = ( @_ ); $self->foo::init(%args); $self->bar::init(%args); } sub getFooBar { my $self = shift; return $self->foo() . $self->bar(); } 1;