☞

Program Repair Shop

7

Class::Observable

• Why did I pick this module?

• I always give the code a quick once-over before I start in on the details

• I see what jumps out

• What jumped out was this:

        21      foreach my $observer ( @observers ) {
        24          my $num_items = scalar @{ $O{ $item } };
        25          $O{ $item }->[ $num_items ] = $observer;
        26          if ( ref( $observer ) ) {
        27              weaken( $O{ $item }->[ $num_items ] );
        28          }
        29      }

• $num_items is is a classic red flag

• Array length variables

☞

☞