use Perl

• Oops (Score:1)

  by pdcawley (485)

  Did sir forget his underscore?
  
  And, out of interest, do you use @methods anywhere else? Looks like a useless use of variable to me. [qw/.../] is perfectly fine...
  • Re:Oops (Score:3, Interesting)

    by Ovid (2709)

    Oh goody. You're going to slap yourself :)

    The first thing you do is create a file named "Foo.pm":

    package Foo;
    
    sub import { print "@_" }
    
    1;

    Then, in the same directory, run the following script:

    #!/usr/local/bin/perl -w
    use strict;
    
    BEGIN { unshift @INC => '.' }
    my @methods = qw/bar baz/;
    use Foo @methods;

    That prints "Foo". Foo's import method gets called with no arguments because the assignment to @methods happens after the use statement, even though strict does not complain because @methods has al
    • Re:Oops (Score:2)

      by petdance (2468)

      I think that if you do a

      use constant METHODS => qw( foo bar bat );

      then you can pass 'em in like you want.

      --
      

      --
      xoa
    • Re:Oops (Score:1)

      by bart (450)

      Assign to @methods in a BEGIN block.

      my @methods;
      BEGIN { @methods =  qw/follow_link get title/; }
    • Re:Oops (Score:1)

      by pdcawley (485)

      You're right, I'm slapping myself. Iff need to use @methods anywhere else in your code.