Examples/PerlExample/Source/SmartLoader.pm

   1 #!/usr/bin/perl -w
   2
   3 #****c* Loader/SmartLoader
   4 # FUNCTION
   5 #   This class implements an O(1) packing
   6 #   algorithm.
   7 # ATTRIBUTES
   8 #   CARGO -- the cargo to be packed.
   9 #******
  10
  11 Package SmartLoader;
  12
  13 sub new {
  14     my $class = shift;
  15     my $self = { };
  16     bless ($self, $class);
  17     my $self->{CARGO} = ();
  18     return $self;
  19 }
  20
  21 #****m* Loader/SmartLoader::pack
  22 # FUNCTION
  23 #   A O(1) packing algorithm.
  24 # SYNOPSIS
  25 #   my $sequence = $packref->pack();
  26 # RETURN VALUE
  27 #   A squence that specifies how to pack the truck.
  28 #******
  29
  30 sub pack {
  31     return 0;
  32 }
  33
  34 1;