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