Code: Select all
package Custom::Kernel::Modules::CalcCosts;
use strict;
use warnings;
sub new {
my ($Type, %Param) = @_;
my $Self = {};
bless( $Self, $Type);
return $Self;
}
sub Run {
my ($Self, %Param) = @_;
$Kernel::OM->Get('Kernel::System::Log')->Log (
Priority => 'info',
Message => "Test: " . $Param{SomeValue,
);
}