Examples/PerlExample/Source/Box.pm

   1 #!/usr/bin/perl -w
   2
   3 #****c* Cargo/Box
   4 # FUNCTION
   5 #   A box that can be packed into truck.
   6 #   Several other classes are derived from Box.
   7 #   Box
   8 #   |
   9 #   +---- SquareBox
  10 #   |
  11 #   +---- RectangularBox
  12 #******
  13
  14 package Box;
  15
  16 sub new {
  17     my $class = shift;
  18     my $self = { };
  19     bless ($self, $class);
  20     return $self;
  21 }
  22
  23 1;
  24