sub class_method { 
  my $proto = shift; 
  $class = ref($proto) || $proto;

  # do stuff ...

}