So I'm hoping to write a nice wrapper around the StackExchange Api. It's a little learning project. I use module starter and this is my directory:

.
├── Changes
├── MANIFEST
├── Makefile.PL
├── README
├── ignore.txt
├── lib
│   └── Net
│       ├── StackExchange
│       │   ├── V2
│       │   │   └── Answers.pm
│       │   └── V2.pm
│       └── StackExchange.pm
└── t
    ├── 00-load.t
    ├── boilerplate.t
    ├── manifest.t
    ├── pod-coverage.t
    └── pod.t

Three package files. I have the following code in each of the pm files.

###################
#   Inside StackExchange.pm
###################
sub new {
    return Net::StackExchange::V2->new();
}
###################
#   Inside V2.pm
###################
sub new {
    my ($class) = @_;
    my $self = {};
    bless $self, $class;
    return $self;
}
sub answers {
    return Net::StackExchange::V2::Answers->new();
}
###################
#   Inside Answers.pm
###################
sub new {
    my ($class) = @_;
    my $self = {
        auth_token => "",
    };
    bless $self, $class;
    return $self;
}
sub getAll {
    print "All Answers";
}
[download]

Here is my problem:

#########
# UsageTest.pl
#########
use lib("some_path_to_module/Net-StackExchange/lib");
use Net::StackExchange;
my $a = Net::StackExchange->new();
my $r = $a->answers->getAl();
print $r;
# Using Dumper..
print Dumper($r);
#returns => All Answers$VAR1 = 1
[download]

The output I get is : All Anwers1

I cannot figure out for the life of me where that 1 (one) came from? Is it the one from the package returning 1? Doesn't make any sense to me!!