# File auto/configini.pm
# keine package-Deklaration, es greift der default: package main;

use strict;
use warnings;
use Config::Tiny;

my $CFT = Config::Tiny->new; # gilt nur dateiweit

# hier die Definition der Funktion
sub configini{
    my $self = shift;
    my $file = shift;
    return $CFT = Config::Tiny->read($file) || do{
        $@ = "Error with CFG-File '$file': $Config::Tiny::errstr";
        undef;
    };
        
}
1;