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

my $package = "Kernel::Extensions::IMCR::Loader";

my @elements = split m/::/, $package;
my $caller   = pop @elements;
my $module   = join "::", @elements;

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

__END__;