my $Konstrukt::Cache; sub BEGIN { $Konstrukt::Cache = __PACKAGE__->new() unless defined $Konstrukt::Cache; } sub Konstrukt::Cache{ return $Konstrukt::Cache; }