Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^22: How to completely destroy class attributes with Test::Most?

by nysus (Parson)
on Aug 31, 2019 at 06:49 UTC ( [id://11105334]=note: print w/replies, xml ) Need Help??


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);

        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?

        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

      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

      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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11105334]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2024-04-16 12:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found