☞

Program Repair Shop

51

count_observers

• Now here's a useless method:

       146  sub count_observers {
       147      my ( $item ) = @_;
       148      $item->observer_log( "Counting observers using ",
       149                           "'", _describe_item( $item ), "'" );
       150      my @observers = $item->get_observers;
       151      return scalar @observers;
       152  }

• It does get_observers and counts the results

• As if you couldn't already do:

        my $N = $x->get_observers;

• But the test suite tests it, so whatever...

• The revised version is:

        sub count_observers { scalar $_[0]->get_observers }

☞

☞