-
-
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