69 |
return unless $el->isa('PPI::Statement::Include'); |
return unless $el->isa('PPI::Statement::Include'); |
70 |
|
|
71 |
warn "## include ",dump( $el->module, $el->type, $el->pragma ) if $self->debug; |
warn "## include ",dump( $el->module, $el->type, $el->pragma ) if $self->debug; |
72 |
push @{ $include->{ $el->type } }, $el->module |
push @{ $include->{ $el->type } }, $el->module |
73 |
|
unless $el->module eq 'lib'; # skip use lib 'lib'; |
74 |
}); |
}); |
75 |
warn "# ", $self->class, " include ", dump( $include ) if $self->debug; |
warn "# ", $self->class, " include ", dump( $include ) if $self->debug; |
76 |
return $include; |
return $include; |