The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package perl5i::2::Meta::Class;

use strict;
use warnings;

use parent qw(perl5i::2::Meta);

sub class {
    return ref ${${$_[0]}} ? ref ${${$_[0]}} : ${${$_[0]}};
}

sub reftype {
    return;
}

1;