#! /usr/bin/env perl
use strict;
use warnings;
use 5.020;

my $package = "Kernel::Extensions::IMCR::Tester::Test";

# Annahme, es ist immer etwas mit Kernel::Extensions::IMCR::*
my @elements = split m/::/, $package;
my $module   = join "::", splice(@elements,0,3);     # immer die ersten drei Teile als Modul annehmen
my $caller   = join "::", @elements;                 # der Rest wird zum caller zusammengesetzt

say "Package: $package";
say "Module:  $module";
say "Caller:  $caller";


__END__;