File: Box.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 (24 lines) | stat: -rw-r--r-- 331 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
 
#!/usr/bin/perl -w

#****c* Cargo/Box
# FUNCTION
#   A box that can be packed into truck.
#   Several other classes are derived from Box.
#   Box
#   |
#   +---- SquareBox
#   |
#   +---- RectangularBox
#******

package Box;

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

1;