package BoatNoSaveAnchor;
use strict;
use vars qw($VERSION @ISA $CONF $TABLE_DEF);
BEGIN {
$VERSION = sprintf "%d.%03d", q$Revision: 1.1 $ =~ /: (\d+)\.(\d+)/;
@ISA = qw/ Boat /;
}
sub e_has_a {
return {
anchor => {
class => 'Anchor',
fetch => { type => 'auto', nosave => 1 },
remove => { type => 'auto' },
}
};
}
use Boat;
1;