- - Preroll_30sec N/A TBD http://192.168.0.1:80/foo/bar null:414 4 - Postroll_60sec N/A TBD http://192.168.0.1:80/foo/bar null:418 6 - Midroll_45sec_3 N/A TBD http://192.168.0.1:80/foo/bar null:417 5 - Midroll_45sec_1 N/A TBD http://192.168.0.1:80/foo/bar null:415 5 - Midroll_45sec_2 N/A TBD http://192.168.0.1:80/foo/bar null:416 5 #### Response Dump: $VAR1 = { 'Preroll' => { 'Length' => '4', 'TrackingId' => 'null:414', 'CompanionId' => 'N/A', 'Creative' => 'Preroll_30sec', 'Impression' => 'TBD', 'Completion' => 'http://192.168.0.1:80/foo/bar' }, 'Midroll' => [ { 'Length' => '5', 'TrackingId' => 'null:415', 'CompanionId' => 'N/A', 'Creative' => 'Midroll_45sec_1', 'Impression' => 'TBD', 'Completion' => 'http://192.168.0.1:80/foo/bar' }, { 'Length' => '5', 'TrackingId' => 'null:417', 'CompanionId' => 'N/A', 'Creative' => 'Midroll_45sec_3', 'Impression' => 'TBD', 'Completion' => 'http://192.168.0.1:80/foo/bar' }, { 'Length' => '5', 'TrackingId' => 'null:416', 'CompanionId' => 'N/A', 'Creative' => 'Midroll_45sec_2', 'Impression' => 'TBD', 'Completion' => 'http://192.168.0.1:80/foo/bar' } ], 'Postroll' => { 'Length' => '6', 'TrackingId' => 'null:418', 'CompanionId' => 'N/A', 'Creative' => 'Postroll_60sec', 'Impression' => 'TBD', 'Completion' => 'http://192.168.0.1:80/foo/bar' } }; #### my ($self, $response) = @_; foreach my $asset_type ( keys %{$response} ) { $logger->debug("Starting asset_type $asset_type"); foreach my $asset_param ( keys %{$response->{$asset_type}} ) { $logger->debug("Top of middle FOR loop asset_param = $asset_param: $response->{$asset_type}->{$asset_param}"); if ( exists ($response->{$asset_type}->{$asset_param}) ) { $logger->debug("\t$asset_type asset_param $asset_param exists: ($asset_param) = $response->{$asset_type}->{$asset_param}"); ## LINE 779 } else { $logger->debug("\t$asset_type asset_param $asset_param is an array reference"); my $i = 0; while ($response->{$asset_type}[$i]) { foreach my $subkey ( keys %{$response->{$asset_type}[$i]}) { $logger->debug("\t\tTesting $asset_type asset number $i (subkey $subkey) = ($response->{$asset_type}[$i]->{$subkey})"); } $i++; } $logger->debug("Broke innermost WHILE loop asset_param = $asset_param"); } $logger->debug("Bottom of middle FOR loop asset_param = $asset_param"); } $logger->debug("Broke middle FOR asset param loop"); } #### - Starting asset_type Preroll - Top of middle FOR loop asset_param = Length: 4 - Preroll asset_param Length exists: (Length) = 4 - Bottom of middle FOR loop asset_param = Length - Top of middle FOR loop asset_param = TrackingId: null:414 - Preroll asset_param TrackingId exists: (TrackingId) = null:414 - Bottom of middle FOR loop asset_param = TrackingId - Top of middle FOR loop asset_param = CompanionId: N/A - Preroll asset_param CompanionId exists: (CompanionId) = N/A - Bottom of middle FOR loop asset_param = CompanionId - Top of middle FOR loop asset_param = Creative: KohlFauPreroll_30sec - Preroll asset_param Creative exists: (Creative) = KohlFauPreroll_30sec - Bottom of middle FOR loop asset_param = Creative - Top of middle FOR loop asset_param = Impression: TBD - Preroll asset_param Impression exists: (Impression) = TBD - Bottom of middle FOR loop asset_param = Impression - Top of middle FOR loop asset_param = Completion: http://172.24.16.84:8380/baapi/hics - Preroll asset_param Completion exists: (Completion) = http://172.24.16.84:8380/baapi/hics - Bottom of middle FOR loop asset_param = Completion - Broke middle FOR asset param loop - Starting asset_type Midroll - Top of middle FOR loop asset_param = Length: - Midroll asset_param Length is an array reference - Testing Midroll asset number 0 (subkey Length) = (5) - Testing Midroll asset number 0 (subkey TrackingId) = (null:417) - Testing Midroll asset number 0 (subkey CompanionId) = (N/A) - Testing Midroll asset number 0 (subkey Creative) = (KohlFauMidroll_45sec_3) - Testing Midroll asset number 0 (subkey Impression) = (TBD) - Testing Midroll asset number 0 (subkey Completion) = (http://172.24.16.84:8380/baapi/hics) - Testing Midroll asset number 1 (subkey Length) = (5) - Testing Midroll asset number 1 (subkey TrackingId) = (null:415) - Testing Midroll asset number 1 (subkey CompanionId) = (N/A) - Testing Midroll asset number 1 (subkey Creative) = (KohlFauMidroll_45sec_1) - Testing Midroll asset number 1 (subkey Impression) = (TBD) - Testing Midroll asset number 1 (subkey Completion) = (http://172.24.16.84:8380/baapi/hics) - Testing Midroll asset number 2 (subkey Length) = (5) - Testing Midroll asset number 2 (subkey TrackingId) = (null:416) - Testing Midroll asset number 2 (subkey CompanionId) = (N/A) - Testing Midroll asset number 2 (subkey Creative) = (KohlFauMidroll_45sec_2) - Testing Midroll asset number 2 (subkey Impression) = (TBD) - Testing Midroll asset number 2 (subkey Completion) = (http://172.24.16.84:8380/baapi/hics) - Broke innermost WHILE loop asset_param = Length - Bottom of middle FOR loop asset_param = Length