Using a module that does not use strict just proves the point. We can cut and paste the relevant functions from Symbol into your code and then guess what? So the question is can you rise to the occasion ;-) 

package Foo;

use strict;
use warnings;
use warnings::register;

sub foo { print "Foo!\n" };

sub import {
  my $cur  = shift;
  my $dest = caller;

  for my $g (grep $cur->can($_),  @_) {
    warnings::warnif("sub '$g' already exists in $dest") and next
      if $dest->can($g);

    my($dest, $src) = map qualify_to_ref("$_\::$g"), $dest, $cur;
    *$dest = *$src;
  }
}

# This is what we need from Symbol to provide the qualify_to_ref funct
+ion

my %global = map {$_ => 1} qw(ARGV ARGVOUT ENV INC SIG STDERR STDIN ST
+DOUT);

sub qualify ($;$) {
    my ($name) = @_;
    if (!ref($name) && index($name, '::') == -1 && index($name, "'") =
+= -1) {
    my $pkg;
    # Global names: special character, "^x", or other. 
    if ($name =~ /^([^a-z])|(\^[a-z])$/i || $global{$name}) {
        $pkg = "main";
    }
    else {
        $pkg = (@_ > 1) ? $_[1] : caller;
    }
    $name = $pkg . "::" . $name;
    }
    $name;
}

sub qualify_to_ref ($;$) {
    return \*{ qualify $_[0], @_ > 1 ? $_[1] : caller };
}

1;

__DATA__
Can't use string ("main::foo") as a symbol ref while "strict refs" in 
+use at c:/Foo.pm line 39.

# test script

#/usr/bin/perl
use lib '/blah';
use Foo 'foo';
foo();

[download]

cheers

tachyon

In reply to Re^6: Can't Reference a Sub by Variable when using Strict by tachyon
in thread Can't Reference a Sub by Variable when using Strict by Dru

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.