Select Code to Download

package foo;
use strict;
...
    return $self->{_foo};
}
1;

package bar;
use strict;
...
    return $self->{_bar};
}
1;

package foobar;
use strict;
...
    return $self->foo() . $self->bar();
}
1;

use strict;
use foobar;
...
    my $fb = new foobar( foo=>'Lance', bar=>'Deeply' );
    print $fb->getFooBar() ."\n";
}