use Perl

• "It's really quite simple..." (Score:2)

  by bart (450) <bart.lateur@pandora.be> on 2008.02.25 7:47 (#61303) Journal

  Module::Install has a pretty simple idea of whether you're the author. If an ./inc directory doesn't exist when you run the Makefile.PL, one is created, and all the required Module::Install code it put into it. Then, a directory is created called ./inc/author. If that directory exists, you're the author. If it doesn't -- because ./inc existed already when you ran the Makefile.PL, because you got the whole thing in a tarball from the CPAN -- then you are not the author.

  WTF?? I must have a different idea than you of what constitutes a simple test, then. Way too much voodoo!

  I'd rather try something like this: if you're a CPAN author, you set an environment variable with your CPAN ID. For example, for you, you'd set it to "RJBS". At the time to run the tests, this author testing module test to see if $ENV{CPAN_ID} is set, and if it is, see if it's set to the name of the author of this particular module. Only then, you will be considered to be the module author, for this module.

  Reply to This

  • Re: (Score:1)

    by rjbs (4671)

    No, that wouldn't work for me.
    
    I work on a number of distributions that have multiple authors, maintainers, and/or contributors. It would foolish if they had to set CPAN_ID=RJBS when working on my code. I'd also have to put my CPAN id somewhere in my code, either ina ll the "author tests" or in the Makefile.PL as an argument too some author test runner. That would need to be updated when the module changed hands.
    
    I could set I_AUTHOR_Module-Starter=1 and have everyone who works on it do the same, but some

    --
    rjbs
  • Re: (Score:1)

    by Yanick (3196)

    At the time to run the tests, this author testing module test to see if $ENV{CPAN_ID} is set

    Personally, I prefer to have all my modules listed in TEST_AUTHOR (E.g., export TEST_AUTHOR=My::Module,My::Other::Module), and have the check be

    if ( grep { $_ eq 'My::Module' } split ',' => $ENV{TEST_AUTHOR} ) {
    ...
    }

    That way, I have only one environment variable to take about, and it's not tied to me but rather to the modules of interest.