Parent Directory | Revision Log | Patch
revision 369 by dpavlin, Mon Nov 17 14:37:48 2008 UTC | revision 404 by dpavlin, Tue Nov 18 10:35:27 2008 UTC | |
---|---|---|
# | Line 20 has 'doc' => ( | Line 20 has 'doc' => ( |
20 | default => sub { | default => sub { |
21 | my ( $self ) = @_; | my ( $self ) = @_; |
22 | warn "doc from ", $self->class; | warn "doc from ", $self->class; |
23 | my $doc = PPI::Document->new( $self->class_path( $self->class ) ) || die $!; | 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; |
26 | }, | }, |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |