This is an example of how imports in Perl do *not* work.

pseudoimport.pl

#! /usr/bin/perl

use strict;
use warnings qw(all);

package Foo;

BEGIN {
  *Foo::pseudoimport = sub { printf "Cool beans!\n" };
}

sub fancysub {
   pseudoimport();
}

sub normalsub {
  printf "Boring beans.\n";
}

CHECK {
  undef *Foo::pseudoimport;
}

package Main;
my $obj = bless {}, 'Foo';

$obj->normalsub;
$obj->fancysub;