package MyModules::Test;
use base qw(Class::Accessor);

use strict;
use warnings;

__PACKAGE__->mk_accessors(qw(farbe));

sub create {
   my $self = shift;	
   my $args = shift || {};
   $self->new($args);
}

1;