☞

Program Repair Shop

47

get_observers

• But I might rewrite it like this:

        sub get_observers {
          my ( $item ) = @_;
          my $class = ref($item) || $item;
          my @observers = ($class->_obs_get_observers_scoped,
                           $class->_obs_get_parent_observers);
          push @observers, $item->_obs_get_observers_scoped
            if ref $item;
          return @observers;
        }

• This uses the well-known ref($item) || $item idiom to get the class name

• The test for objecthood is now if ref $item

☞

☞