I got that idea by looking at the "handlers" section of the second dump:
'handlers' => {
'response_data' => [
{
'callback' => sub { "DUMMY" }
},
{
'callback' => $VAR1->{'_previous'}{'_previous'}{'_previo
+us'}{'_previous'}{'handlers'}{
+'response_data'}[1]{'callback'}
}
But I guess you pointed out my mistake. But regardless here is the code what I am trying out:
use LWP;
use Data::Dumper;
# Login & get DSID cookie
my $ua = new LWP::UserAgent;
my $url = 'https://jt-sa-01/dana-na/auth/url_admin/login.cgi';
my $req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content('username=admindb&password=dana123&realm=Admin%20Users')
+;
my $res = $ua->request($req);
print Dumper($res);
The same code when I use it standalone, I get the first style of output but when I use same code snippet in an internal framework we have (this piece of code is called as an object method), I get the second style of output that I posted.
So I guess, what I wanted to know is why is that the same piece of code in two different place is generating two different styles of output. |