The following code clearly shows what is going on. When you call foo for the first time, @a was shared by bar. Second time when you enter foo, bar does not share the new @a, instead it retains the old one.

use strict;
use warnings;

use Data::Dumper;

foo(1);
bar();
foo(2);
bar();

sub foo {
    my @a;
    push @a, shift;
    print \@a;
    print Dumper(\@a);
    sub bar {
        print \@a;
        print Dumper(\@a);
    }
}
[download]

Here is the output:

Variable "@a" will not stay shared at c.pl line 17.
[download]

ARRAY(0x1890e78)$VAR1 = [
          1
        ];
ARRAY(0x1890e78)$VAR1 = [
          1
        ];
ARRAY(0x18c2194)$VAR1 = [
          2
        ];
ARRAY(0x1890e78)$VAR1 = [
          1
        ];
[download]

Make @a_files a property of the class, and define those two methods at the same level. This shall resolve your problem, and the code is much clearer.

This makes sense. Thank you for taking the time to examine my issue. Thank you also for the test code sample. I can see that I have much to learn regarding debugging my own problems.

Variable "$file_name" will not stay shared at FileMan.pm line 15 (#1)
(W closure) An inner (nested) named subroutine is referencing a lexical variable defined in an outer subroutine.

When the inner subroutine is called, it will probably see the value of the outer subroutine's variable as it was before and during the *first* call to the outer subroutine; in this case, after the first call to the outer subroutine is complete, the inner and outer subroutines will no longer share a common value for the variable. In other words, the variable will no longer be shared.

Furthermore, if the outer subroutine is anonymous and references a lexical variable outside itself, then the outer and inner subroutines will never share the given variable.

This problem can usually be solved by making the inner subroutine anonymous, using the sub {} syntax. When inner anonymous subs that reference variables in outer subroutines are called or referenced, they are automatically rebound to the current values of such variables.

Variable "@a_files" will not stay shared at FileMan.pm line 15 (#1)

    #- The Subroutine To Process Files And Directories 
    my $process_file = sub {
        if ($_ eq $file_name){push (@a_files, $File::Find::name);}}

    # Search file_path for the file
    find($process_file, $file_path);
[download]

THANK YOU!!!! This is the answer. Holy Cow!! =) This has been several days of endless frustration. You are indeed a wise one and I bow to your superior knowledge. Thank You.

It is quite usual for a new comer to the Perl world being confused by closure, so don't be too frustrated ;-)

Closure is something nice to know, so you can recognize it next time. But in general, you should avoid it, as it breaks your lexical scope. You want to code in a clear way, not a confusing way ;-) I guess you learned more than just closure, if you think about it more.

Your sub ProcessFile is defined to form a closure on the lexical @a_files. It will bind to the first instance, and ignore others.

One simple way to fix this is to make @a_files global and localize it instead where the my declaration occurs.

Thanks for looking at my issue. I do not want to make this a global variable. I want to keep any class memebers within the $hr_self object ref.