sub role_action
{
  my $self = shift;
  my $obj_type = ref $self;

  # ...
}