The following parsers are defined by this module.

uselib_line

Parse a use/require lib line Unshift libraries found onto @INC.

#package Perl::Tags::Tag::Recurse::Lib; # #our @ISA = qw/Perl::Tags::Tag::Recurse/; # #=head1 Perl::Tags::Tag::Recurse::Lib # #=head2 type: dummy # #=head2 on_register # #Recurse adding this new module accessible from a use lib statement to the queue. # #=cut # #package Perl::Tags::Tag::Recurse; # #sub on_register { # my ($self, $tags) = @_; # # my $name = $self->{name}; # my $path; # my @INC_ORIG = @INC; # my @INC = # eval { # $path = locate( $name ); # or warn "Couldn't find path for $module"; # }; # # return if $@; # return unless $path; # $tags->queue( { file=>$path, level=>$tags->{current}{level}+1 , refresh=>0} +); # return; # don't get added #}

##

1;

    dr bean - drbean at sign cpan a dot org
    osfameron (2006) - osfameron@gmail.com

For support, try emailing me or grabbing me on irc #london.pm on irc.perl.org

This was originally ripped off pltags.pl, as distributed with vim and available from http://www.mscha.com/mscha.html?pltags#tools Version 2.3, 28 February 2002 Written by Michael Schaap <pltags@mscha.com>.

This is licensed under the same terms as Perl itself. (Or as Vim if you +prefer).