File: SmartLoader.pm

package info (click to toggle)
robodoc 4.99.40-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 1,560 kB
  • ctags: 978
  • sloc: ansic: 14,067; sh: 3,711; perl: 155; makefile: 108
file content (34 lines) | stat: -rw-r--r-- 554 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
#!/usr/bin/perl -w

#****c* Loader/SmartLoader
# FUNCTION
#   This class implements an O(1) packing
#   algorithm.
# ATTRIBUTES
#   CARGO -- the cargo to be packed.
#******

Package SmartLoader;

sub new {
    my $class = shift;
    my $self = { };
    bless ($self, $class);
    my $self->{CARGO} = ();
    return $self;
}

#****m* Loader/SmartLoader::pack
# FUNCTION
#   A O(1) packing algorithm.
# SYNOPSIS
#   my $sequence = $packref->pack();
# RETURN VALUE
#   A squence that specifies how to pack the truck.
#******

sub pack {
    return 0;
}

1;