package Mobile_Phone_Config;
use warnings;
use strict;
use feature ':5.10';
use Term::ANSIColor;
require Exporter;
our @ISA = qw( Exporter );
our @EXPORT = qw( mobile_phone_config );

my $promt_color = 'magenta';
my $c_space = 2;

sub mobile_phone_config {
  my %config = (
	# ... 		=> ...,
	# ... 		=> ...,
	color_count	=> sub { my $count = shift; return colored( sprintf( "%${c_space}s", $count ), $promt_color ); },
	print_promt	=> sub { print "\n" . colored( ':', $promt_color ); },
	ungueltig	=> sub { say " - Ungültige Eingabe - \n"; sleep 2; },
  );
  return %config;
}
#...
1