# (c) 2007 by Ralf Ertzinger # licensed under GNU GPL v2 package GetterBase; use Base; @ISA = qw(Base); use strict; sub new { my $class = shift; my $self = { NAME => 'FlashGetter', TYPE => 'getter' }; return bless($self, $class); }