package Seaplane;
use strict;
use vars qw($VERSION @ISA $CONF $TABLE_DEF);
BEGIN {
$VERSION = sprintf "%d.%03d", q$Revision: 1.14 $ =~ /: (\d+)\.(\d+)/;
@ISA = qw/ Boat FixedWing /;
$CONF = {
SeaplaneAlias => {
class => 'Seaplane',
isa => \@ISA,
field => [ qw/ id max_wave_height / ],
as_string_order => [ qw/ id class name owner ceiling wingspan max_wave_height min_depth anchor / ],
base_table => 'Seaplane',
id_field => 'id',
skip_undef => [ qw/ max_wave_height / ],
no_security => 1,
},
};
$TABLE_DEF = <<SQL;
CREATE TABLE IF NOT EXISTS Seaplane (
id int(11) PRIMARY KEY,
max_wave_height int(11)
)
SQL
}
use FixedWing;
use Boat;
sub land_on_water {
my $self = shift;
print "Splash! Seaplane: " . $self->{name} . " ... lands on water.\n";
}
__PACKAGE__->config_and_init;
1;