package MyModules::Test;

use strict;
use warnings;

sub new {
	my $class = shift;
	my $self = {};
	bless($self, $class);
	return $self;
}

sub farbe {
	my ($self, $farbe) = @_;
	$self->{FARBE} = $farbe if(defined $farbe);
	return $self->{FARBE};
}

1;