Personally I don't think there is anything wrong with this under controlled circumstances - I have plenty of code that does the same thing within an AUTOLOAD to create the autoloaded subroutines in the symbol table and of course it has to use "no strict 'refs'"

An alternative might be to create coderefs for the subroutines within the object itself (or if an object has not been created at that point in a package variable) and then use AUTOLOAD to run that code.

This might look look something like: 

   $self->{$method} = sub { my $self = shift; # etc };

   ...

   sub AUTOLOAD
   {
     my ( $self, @args ) = @_;

     (my $method = $AUTOLOAD) =~ s/.*:://;

     if ( exists $self->{$method} )
     {
         return $self->{$method}->(@args);
     }
     else
     {
       die "Not a method";
   }

[download]

Of course this doesn't actually ever create the method in the symbol table so that UNIVERSAL::can won't work and inheritance won't work as expected :( - If you really need those things then don't worry about using no strict 'refs' it is really only an indication to perl that you recognize you are doing something a little out of the ordinaru but you promise not to do it all over the program :)

/J\

In reply to Re: Whats wrong with symbol refs here? by gellyfish
in thread Whats wrong with symbol refs here? by Anonymous Monk

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.