On a purely whimsical note, it would be amusing to have a Can package with a function t that would disable whatever functions you passed to it. You would, of course, call it with the old-style package notation:

{
    package Unsuspecting;
    Naughty->import;
    sub new { bless {}, shift }
    Can't('some_func'); # <--- Here's the call
    sub _private { 'Unsuspecting _private' }
}
[download]