sub is_built {   
  my ($class, $name) = @_;
 
  # return if dealing with a reference...
  # note: not tested ;)
  return if (ref $class eq '__PACKAGE__');

  . . .

  # do stuff if this sub is called ast a class
  # method.

  ...
}