Does not ref $self work, just like for regular perl objects?

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

  # ...
}
[download]

Update: the difference between ref and blessed on $self is probably moot since if $self isn't a reference to a blessed object, either you won't be here or you're probably about to blow up badly anyway. For objects other than $self, there's a bigger difference.

The difference between ref and Scalar::Util::blessed is subtle and, as you say, won't be any different when operating on a blessed reference.

blessed is exported as a method, so you can say $moose_object->blessed(), which was why I pointed to that. You can achieve the same with ref($moose_object).

Having said that, I think I'd prefer:

$moose_object->blessed()->some_class_method()
[download]

to

ref($moose_object)->some_class_method()
[download]

rootcho gave no indication of how the class name was to be used, so that may not matter.

-- Ken

Moose exports blessed - way down at the bottom of EXPORTED FUNCTIONS you'll find: "blessed This is the Scalar::Util::blessed function, it is exported here because ...".

ref works just fine, if you want to be all Moosey about it, you can do $self->meta->name.