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;

#!/usr/bin/perl

use strict;
use warnings;
use MyModules::Test;

my $obj = MyModules::Test->new;

my $farbe_1 = $obj->create({farbe => 'rot'});
my $farbe_2 = $obj->create({farbe => 'blau'});

print $farbe_2->farbe;
print $farbe_1->farbe;