in reply to Re^21: How to completely destroy class attributes with Test::Most?
in thread How to completely destroy class attributes with Test::Most?

A problem with $$self->$method(@_) while ($$self->next); is that the first value gets thrown away. My change was a workaround to that until I figure out something better.

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate Priest Vicar";
$nysus = $PM . ' ' . $MCF;
Click here if you love Perl Monks

  • Comment on Re^22: How to completely destroy class attributes with Test::Most?
  • Download Code

Replies are listed 'Best First'.
Re^23: How to completely destroy class attributes with Test::Most?
by jcb (Parson) on Aug 31, 2019 at 21:23 UTC

    The solution for that in Perl is just like C: do { $$self->$method(@_) } while ($$self->next);

[reply]
[d/l]
[reply]

        I do not see anything obviously bad at a quick glance. I presume that it has tests and that they pass. Have you tried Devel::Cover to assess the code coverage of your test suite?

[reply]

        Ugh, my shout out got wiped out by dzil. Will fix later.

        $PM = "Perl Monk's";
        $MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate Priest Vicar";
        $nysus = $PM . ' ' . $MCF;
        Click here if you love Perl Monks

[reply]

      The module is getting mature. I'm about halfway through writing up documentation for it.

      I modified the Processor class so that it contains references back the files in the Collector class using some attributes. I also created a new File::Collector::Base which contains methods that can be used by both File::Collector and File::Collector::Processor.

      Here is link to the GitHub repo.

      $PM = "Perl Monk's";
      $MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate Priest Vicar";
      $nysus = $PM . ' ' . $MCF;
      Click here if you love Perl Monks

[reply]
[d/l]
[select]

      Ah, yes. Of course. Thanks.

      $PM = "Perl Monk's";
      $MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate Priest Vicar";
      $nysus = $PM . ' ' . $MCF;
      Click here if you love Perl Monks

[reply]

In Section Seekers of Perl Wisdom