sourCEntral - mobile manpages

pdf

Perl::Tags::Naive::Lib

"get_parsers"
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;

AUTHOR and LICENSE

    dr bean − drbean at sign cpan a dot org
    osfameron (2006) − osfameron AT gmail DOT 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 AT mscha DOT com>.

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

pdf