Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

2shortplanks (968)

2shortplanks
  (email not shown publicly)
http://2shortplanks.com/
AOL IM: trelane2sp (Add Buddy, Send Message)
Yahoo! ID: trelane2sp (Add User, Send Message)

Mark Fowler has never been the same since he was elected leader of the London Perl Mongers. The strain manifests itself mainly in releasing various [cpan.org] modules [cpan.org] to CPAN, giving talks [2shortplanks.com], and use of the Trelane nick on #london.pm for endless procrastination. Doctors are still seeking a cure.
Monday January 05, 2004
06:39 PM

Social & Tech meets, laptops and Module::Pluggable

[ #16653 ]
Haven't been doing much recently. Went into work today and picked up my x86 machine that has svn installed on it so I can make changes to my work svn repository again - petdance sent me a load of patches for Test::DatabaseRow I should look at integrating.

Announced the London.pm social meet and hinted at the tech meet. I really need to sort out the speakers tomorrow. I've got a bunch of emails off of people which I need to go though and check that they're okay to talk, and I might need to russle up another couple of speakers.

Been having a look at muttley's Module::Pluggable. It looks nice, but it really won't work with PAR, and I really really like PAR. I think we could special case it. This code (or something like it) should detect when we're dealing with a magic PAR reference is in @INC and deal with it. It's a matter of changing the code that looks in the directories in @INC

  # go through our @INC
  foreach my $dir (@SEARCHDIR) {

    if (exists $INC{'PAR.pm'} && $dir eq \&PAR::find_par) {

      # find all the par files in @PAR_INC and in the directories
      # that are in @INC and contain *.par
      my @pars = ...;
      foreach my $par (@pars)
      {
         # get a list of the files for each par file
         my $zip = PAR::par_handle($par);
         my @members = $zip->members;

         # look for plugins in members
         ...
      }

      next;
     }

    # rest of simon's existing code for looking for plugins normally
    # in each of the directories here
   ...
  }
                                                                                                                                                                       

Note the large amount of ... still left to do. Should probably write some tests first.

Of course, it'd be easier if PAR had a way of saying 'get me all files that look like this glob pattern'. Hmm. maybe should mention that on the PAR list.

Think about such things tomorrow.

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.