6 lines
108 B
Perl
6 lines
108 B
Perl
package CameraPhone;
|
|
use Camera;
|
|
use MobilePhone;
|
|
@ISA = qw( Camera MobilePhone );
|
|
#functions go here...
|
|
1;
|