Commit | Line | Data |
1716b200 |
1 | use strict; |
2 | use warnings; |
e958cbc6 |
3 | package Devel::REPL::Plugin::ShowClass; |
9d2a4940 |
4 | # ABSTRACT: Dump classes initialized with Class::MOP |
6f4f9516 |
5 | |
c45376f3 |
6 | our $VERSION = '1.003029'; |
54beb05d |
7 | |
6a5409bc |
8 | use Devel::REPL::Plugin; |
aa8b7647 |
9 | use namespace::autoclean; |
e958cbc6 |
10 | |
11 | has 'metaclass_cache' => ( |
12 | is => 'ro', |
13 | isa => 'HashRef', |
14 | lazy => 1, |
15 | default => sub {{}} |
16 | ); |
17 | |
18 | before 'eval' => sub { |
19 | my $self = shift; |
20 | $self->update_metaclass_cache; |
21 | }; |
22 | |
23 | after 'eval' => sub { |
24 | my $self = shift; |
afc8677b |
25 | |
e958cbc6 |
26 | my @metas_to_show; |
afc8677b |
27 | |
e958cbc6 |
28 | foreach my $class (Class::MOP::get_all_metaclass_names()) { |
29 | unless (exists $self->metaclass_cache->{$class}) { |
30 | push @metas_to_show => Class::MOP::get_metaclass_by_name($class) |
31 | } |
afc8677b |
32 | } |
33 | |
e958cbc6 |
34 | $self->display_class($_) foreach @metas_to_show; |
afc8677b |
35 | |
e958cbc6 |
36 | $self->update_metaclass_cache; |
37 | }; |
38 | |
39 | sub update_metaclass_cache { |
40 | my $self = shift; |
41 | foreach my $class (Class::MOP::get_all_metaclass_names()) { |
42 | $self->metaclass_cache->{$class} = ( |
43 | ("" . Class::MOP::get_metaclass_by_name($class)) |
44 | ); |
afc8677b |
45 | } |
e958cbc6 |
46 | } |
47 | |
48 | sub display_class { |
49 | my ($self, $meta) = @_; |
50 | $self->print('package ' . $meta->name . ";\n\n"); |
51 | $self->print('extends (' . (join ", " => $meta->superclasses) . ");\n\n") if $meta->superclasses; |
afc8677b |
52 | $self->print('with (' . (join ", " => map { $_->name } @{$meta->roles}) . ");\n\n") if $meta->can('roles'); |
e958cbc6 |
53 | foreach my $attr (map { $meta->get_attribute($_) } $meta->get_attribute_list) { |
54 | $self->print('has ' . $attr->name . " => (\n"); |
afc8677b |
55 | $self->print(' is => ' . $attr->_is_metadata . ",\n") if $attr->_is_metadata; |
56 | $self->print(' isa => ' . $attr->_isa_metadata . ",\n") if $attr->_isa_metadata; |
57 | $self->print(' required => ' . $attr->is_required . ",\n") if $attr->is_required; |
58 | $self->print(' lazy => ' . $attr->is_lazy . ",\n") if $attr->is_lazy; |
59 | $self->print(' coerce => ' . $attr->should_coerce . ",\n") if $attr->should_coerce; |
60 | $self->print(' is_weak_ref => ' . $attr->is_weak_ref . ",\n") if $attr->is_weak_ref; |
61 | $self->print(' auto_deref => ' . $attr->should_auto_deref . ",\n") if $attr->should_auto_deref; |
e958cbc6 |
62 | $self->print(");\n"); |
63 | $self->print("\n"); |
64 | } |
65 | foreach my $method_name ($meta->get_method_list) { |
66 | next if $method_name eq 'meta' |
67 | || $meta->get_method($method_name)->isa('Class::MOP::Method::Accessor'); |
afc8677b |
68 | $self->print("sub $method_name { ... }\n"); |
69 | $self->print("\n"); |
e958cbc6 |
70 | } |
afc8677b |
71 | $self->print("1;\n"); |
e958cbc6 |
72 | } |
73 | |
74 | 1; |