Program Repair Shop

`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 }