view release on metacpan or  search on metacpan

lib/Devel/REPL/Plugin/ShowClass.pm  view on Meta::CPAN

        unless (exists $self->metaclass_cache->{$class}) {
            push @metas_to_show => Class::MOP::get_metaclass_by_name($class)
        }
    }

    $self->display_class($_) foreach @metas_to_show;

    $self->update_metaclass_cache;
};

sub update_metaclass_cache {
    my $self = shift;
    foreach my $class (Class::MOP::get_all_metaclass_names()) {
        $self->metaclass_cache->{$class} = (
            ("" . Class::MOP::get_metaclass_by_name($class))
        );
    }
}

sub display_class {
    my ($self, $meta) = @_;