# -- # Kernel/Modules/Contact.pm # -- package Kernel::Modules::Contact; use strict; sub new { my ( $Type, %Param ) = @_; # allocate new hash for object my $Self = {%Param}; bless( $Self, $Type ); # set debug $Self->{Debug} = 0; # check all needed objects for my $Needed (qw(ParamObject DBObject LayoutObject ConfigObject LogObject)) { if ( !$Self->{$Needed} ) { $Self->{LayoutObject}->FatalError( Message => "Got no $Needed!" ); } } # -- sub Run { my ( $Self, %Param ) = @_; } # build output $Output .= $Self->{LayoutObject}->Output( TemplateFile => 'Contact', Data => \%Param, ); } 1;