Help for this page

Select Code to Download


  1. or download this
      package A;

  sub new {
...
  my $object = new B();
  $object->do_something;
  # A::do_something invokes B::x and B::y
  2. or download this
      package A;

  sub new {
...
  $object->do_something();
  # A::do_something reaches into the bag, and pulls out
  # numbers that B::init provided