Select Code to Download

package A;
use B;
...
  do_something(); # subroutine in standard.pl
  return $self;
}

package B;
require 'standard.pl';
...
  do_something(); # subroutine in standard.pl
  return $self;
}

# standard.pl
# [snip]
...
  print "Howdy.\n";
}
1;

Undefined subroutine A::do_something called at A.pm line X.

  do_something();

  B::do_something();