19 |
lazy => 1, |
lazy => 1, |
20 |
default => sub { |
default => sub { |
21 |
my ( $self ) = @_; |
my ( $self ) = @_; |
22 |
warn "doc from ", $self->class; |
warn "# doc from ", $self->class if $self->debug; |
23 |
my $doc = PPI::Document->new( $self->class_path( $self->class ) ); |
my $doc = PPI::Document->new( $self->class_path( $self->class ) ); |
24 |
$doc->prune('PPI::Token::Whitespace'); |
$doc->prune('PPI::Token::Whitespace'); |
25 |
return $doc; |
return $doc; |
70 |
return $include; |
return $include; |
71 |
} |
} |
72 |
|
|
73 |
sub data { |
sub as_data { |
74 |
my $self = shift; |
my $self = shift; |
75 |
return { |
return { |
76 |
includes => $self->includes, |
includes => $self->includes, |