File Coverage

blib/lib/Text/Find/Scalar.pm

Criterion	Covered	Total	%
statement	59	59	100.0
branch	18	18	100.0
condition			n/a
subroutine	11	11	100.0
pod	6	6	100.0
total	94	94	100.0

package Text::Find::Scalar;

# ABSTRACT: Find scalar names in a text.

use 5.006001;
use strict;
use warnings;

our $VERSION = '0.10';

sub new {
    my ($class) = @_;

    my $self = {};
    bless $self,$class;

    $self->_counter(0);

    return $self;
}# new

sub find {
    my ($self,$text) = @_;
    my @array = ();

    $self->_counter(0);

    return if !defined $text;
    return if ref $text;

    $text =~ s,<<'(.*?)'.*?\n\1,,sg;
    $text =~ s,'.*?',,sg;
    $text =~ s,q~.*?~,,sg;

    @array = $text =~ m/(?:(\$\w+(?:->)?(?:\[\$?\w+\]|\{\$?\w+\}))|(\$\{\w+\})|(\$\w+))/sg;
    @array = grep{defined}@array;

    $self->_elements(@array);

    return wantarray ? @{$self->_elements()} : $self->_elements();
}# find

sub unique {
    my ($self) = @_;

    my %seen;
    my @unique = grep{!$seen{$_}++}@{$self->_elements()};

    return \@unique;
}# unique

sub count {
    my ($self, $name) = @_;

    return if !defined $name;
    return if $name !~ m{\A\$};

    my %counter;
    $counter{$_}++ for @{ $self->_elements };

    return $counter{$name};
}

sub hasNext{
    my ($self) = @_;

    my $count = $self->_counter();

    return 0 if $count > $#{ $self->_elements };
    return 1;
}

sub nextElement{
    my ($self)  = @_;

    my $count   = $self->_counter();
    my $all     = $self->_elements();

    my $element = undef;

    if( $count < scalar @$all ) {
        $element = $all->[$count];
    }

    $self->_counter(++$count);

    return $element;
}# nextElement

sub _counter{
    my ($self,$count) = @_;

    $self->{Counter} = $count if defined $count;

    return $self->{Counter};
}# _Counter

sub _elements{
    my ($self,@elements) = @_;

    $self->{Elements} = [@elements] if scalar @elements > 0;

    return $self->{Elements};
}# _Elements

1;

__END__