Readers: 11
Quote
1
2
local $Kernel::OM = Kernel::OM -> New( );
$Kernel::OM -> Load( 'Kernel::Internals::Logs' );
1
2
3
if ( !$Kernel::OM ) { print 'Fehler bei der Initialisierung des Kernels des Objekt - Managers !' }
my $Config = $Kernel::OM -> Load( 'Kernel::Config' )
our $OM = Kernel::OM -> new( );
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
use 5.024; use strict; use warnings; package Kernel::OM { my $OM; sub init { my $class = shift; my %params = @_; die "Nur eine Initialisierung, bitte!" if $OM; $OM = bless { %params }, $class; return $OM; } sub instance { my $class = shift; die "Noch nicht initialisiert!" unless $OM; return $OM; } } # ------- Benutzt wird das wie folgt: use Data::Dump qw/dump/; # Einmal, am Anfang: Kernel::OM->init (irgend => 'welche', para => 'meter') or die "Hoppla: Kein Objektmanager!"; # und dann, von überall her: my $om = Kernel::OM->instance; dump $om;
2021-05-13T09:25:30 YAPDDie Grundstruktur basiert auf OTRS, ich habe mich daran orientiert und will darauf meine eigene Anwendung aufbauen. Außer dem Objekt - Manager ist es aber eine eigene Entwicklung.