NAME

Text::Find::Scalar - Find scalar names in a text.

SYNOPSIS

use Text::Find::Variable;

my $finder = Text::Find::Variable->new();
my $arrayref = $finder->find($string);

# or

$finder->find($string);
while($finder->hasNext()){
  print $finder->nextElement();
}

DESCRIPTION

This Class helps to find all Scalar variables in a text. It is recommended to use PPI to parse Perl programs. This module should help to find SCALAR names e.g. in Error messages.

METHODS

new

my $finder = Text::Find::Scalar->new();

creates a new Text::Find::Scalar object.

find

my $string = q~Test $test $foo '$bar'~;
my $arrayref = $finder->find($string);

parses the text and returns an arrayref that contains all matches.

hasNext

while($finder->hasNext()){
  print $finder->nextElement();
}

returns 1 unless the user walked through all matches.

nextElement

print $finder->nextElement();
print $finder->nextElement();

returns the next element in list.

unique

my $uniquenames = $finder->unique();

returns an arrayref with a list of all scalars, but each match appears just once.

count

my $counter = $finder->count('$foo');

returns the number of appearances of one scalar.

AUTHOR

Renee Baecker, <module@renee-baecker.de>

COPYRIGHT AND LICENSE

Copyright (C) 2006 by Renee Baecker

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.