in reply to How to export subs in a bin/script for testing in t/00.t

You can use caller to check if a script was loaded as a module.
  • Comment on Re: How to export subs in a bin/script for testing in t/00.t

Replies are listed 'Best First'.
Re^2: How to export subs in a bin/script for testing in t/00.t
by leocharre (Priest) on Feb 26, 2010 at 19:18 UTC
    Oooh! Very cool!..

    I wrapped the part of the main body that runs stuff into a sub run() and then I have a line such as (in bin/script).. (pseudocode follows..) 

    #!/usr/bin/perl

caller() or run();

sub run {
   print do_stuff_1();
   print do_stuff_2();
}

sub do_stuff_1 { 1 }
sub do_stuff_2 { 2 }

1;

    [download]
    Then in t/00.t 
    use Test::Simple 'no_plan';
require 'bin/script';
ok( do_stuff_1(), 'do_stuff_1()' );

    [download]
    Thank you! This is a wonderful solution. (Maybe someone has another (more elegant, less intrusive?) way to do this?)
[reply]
[d/l]
[select]
      Maybe not more elegant but the name "main" instead of "run" would be a more common convention. Actually google found this exact example here, putting a package name at the top, and calling 
      __PACKAGE__->main() unless caller();

      [download]
[reply]
[d/l]
[reply]

In Section Seekers of Perl Wisdom