Select Code to Download

package foo;
sub new 
{
...
   # you may be calling package functions which expect to shift in a r
+ef to data.
   bless $self, $class;
}