projects
/
robodoc.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Imported Robodoc.
[robodoc.git]
/
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