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

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.
  • The reason I prefer my syntax to your dependency based on is that mine is easier to write and maintain, or so I find.

    Of course, I completely acknowledge that it is intended for simple situations where the order is easily knowable.

    • Actually, my framework supports this specific type of tests and it looks very similar to the way you do it:

      use MooseX::POE;
      with 'POE::Test::Simple'; # again, working title
      event 'next' => sub {
          $_[OBJECT]->order( 2, 'Running next' );
      };

      Only difference is mine is a Moose role that adds the order as a method of the session object. I started by implementing your method as a role and then noticed I need more options so I added more bells and whistles (which I'm now writing about).

      However, I'm working on removing the necessity of this method (and hopefully the others) by automatically hooking up to events from the metaclass. All the numbering and test logic could be put in an overridden attribute. Rough example available on PT 3 [perl.org].