1Perl::Tags::Naive::Lib(U3s)er Contributed Perl DocumentatPieornl::Tags::Naive::Lib(3)
2
3
4
5 "get_parsers"
6 The following parsers are defined by this module.
7
8 "uselib_line"
9 Parse a use/require lib line Unshift libraries found onto @INC.
10
11 #package Perl::Tags::Tag::Recurse::Lib; # #our @ISA =
12 qw/Perl::Tags::Tag::Recurse/; # #=head1 "Perl::Tags::Tag::Recurse::Lib"
13 # #=head2 "type": dummy # #=head2 "on_register" # #Recurse adding this
14 new module accessible from a use lib statement to the queue. # #=cut #
15 #package Perl::Tags::Tag::Recurse; # #sub on_register { # my ($self,
16 $tags) = @_; # # my $name = $self->{name}; # my $path; # my
17 @INC_ORIG = @INC; # my @INC = # eval { # $path = locate(
18 $name ); # or warn "Couldn't find path for $module"; # }; # #
19 return if $@; # return unless $path; # $tags->queue( {
20 file=>$path, level=>$tags->{current}{level}+1 , refresh=>0} +); #
21 return; # don't get added #}
22
23 ##
24
25 1;
26
28 dr bean - drbean at sign cpan a dot org
29 osfameron (2006) - osfameron@gmail.com
30
31 For support, try emailing me or grabbing me on irc #london.pm on
32 irc.perl.org
33
34 This was originally ripped off pltags.pl, as distributed with vim and
35 available from <http://www.mscha.com/mscha.html?pltags#tools> Version
36 2.3, 28 February 2002 Written by Michael Schaap <pltags@mscha.com>.
37
38 This is licensed under the same terms as Perl itself. (Or as Vim if
39 you +prefer).
40
41
42
43perl v5.30.1 2020-01-30 Perl::Tags::Naive::Lib(3)