☞

Program Repair Shop

41

_obs_get_parent_observers

• This function gets the class observers of an object or class

       157  sub _obs_get_parent_observers {
       158      my ( $item ) = @_;
       159      my $class = ref $item || $item;
       160  
        [...set up the cache in %P...]
       179  
       180      my @parent_observers = ();
       181      foreach my $parent ( @{ $P{ $class } } ) {
       182          push @parent_observers, $parent->_obs_get_observers_scoped;
       183      }
       184      return @parent_observers;
       185  }

☞

☞