box.pm

来自「编程工具：直接从程序代码中的注释 产生软件的文档」· PM 代码 · 共 25 行

#!/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;