/usr/local/CPAN/perl5i/perl5i/2/Meta/Class.pm

• package perl5i::2::Meta::Class
  • class
  • reftype
• EOF

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;