18 lines
277 B
Perl
18 lines
277 B
Perl
|
use MooseX::Declare;
|
||
|
|
|
||
|
|
class Animal {
|
||
|
|
# methods go here...
|
||
|
|
}
|
||
|
|
class Dog extends Animal {
|
||
|
|
# methods go here...
|
||
|
|
}
|
||
|
|
class Cat extends Animal {
|
||
|
|
# methods go here...
|
||
|
|
}
|
||
|
|
class Lab extends Dog {
|
||
|
|
# methods go here...
|
||
|
|
}
|
||
|
|
class Collie extends Dog {
|
||
|
|
# methods go here...
|
||
|
|
}
|