Yet Another CPAN Grep

Apache2-ApacheMobileFilter ( I/IF/IFUSCHINI/Apache2-ApacheMobileFilter-4.33.tar.gz, IFUSCHINI, 2018; MetaCPAN )

Apache2-ApacheMobileFilter/lib/Apache2/AMFWebService.pm ( view source; MetaCPAN )

e;
      my $content_type="text/xml";
      if ($type ne 'json' && $type ne 'xml') {
            $type='xml';
      }
      if ($type eq 'json') {
            $content_type="text/plain";
      }

_page='<?xml version="1.0" encoding="UTF-8"?><AMF_DEVICE_DETECTION>';
      }
      if ($type eq 'json') {
            $html_page='{"AMF_DEVICE_DETECTION": {'."\n";
      }
      my $count=0;
      wh

 $html_page=$html_page."<$key>$value</$key>";
                  }
                  if ($type eq 'json' && ($capabilityList eq 'all' || ($ArrayCapability{$key}))) {
                        $html_page=