use Perl

• What you should do is change the program (Score:2)

  by bart (450)

  If at the top level, you check caller(), you'll find it is false if the script is run as a standalone program, and true if it's loaded as a library.
  
  Thus, do this at the top level:

  unless(caller) {
     # former top level
     print "Run as a script\n";
  } else {
     # you may drop this if you don't need it
     print "Initializing as a library file\n";
  }

  It'll work now.
  • Re:What you should do is change the program (Score:2)

    by jdavidb (1361) on 2007.05.15 10:47 (#55066) Homepage Journal

    Thank you. Sounds like this advice was either present in the slides I read, and I missed it (it was middle of the night, up late hacking for work :) ), or else the presenter missed it or only mentioned it orally without including it in the slides.

    --
    J. David works really hard, has a passion for writing good software, and knows many of the world's best Perl programmers

    Reply to This

    Parent