sub Builder { my ( $Self , %Parameter ) = @_; my $OM_Package = $Parameter{ Package }; my $OM_FH = $OM_Package; $OM_FH =~ s{::}{/}g; $OM_FH .= '.pm'; eval { require $OM_FH; }; my $OM_Objects = $OM_Package -> New( %{ $Self -> { Parameter } -> { $OM_Package } // { } } ); $Self -> { Objects } -> { $OM_Package } = $OM_Objects; return $OM_Objects; }