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

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

my ( $module, $caller ) = $package =~ m{(\S+)::([^:]+)$};

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


__END__;