new target: Perl5

package.json

@@ -22,6 +22,7 @@
     "objc",
     "objective-c",
     "ocaml",
+    "perl",
     "php",
     "python",
     "request",

src/targets/index.js

@@ -10,6 +10,7 @@ module.exports = {
   node: require('./node'),
   objc: require('./objc'),
   ocaml: require('./ocaml'),
+  perl: require('./perl'),
   php: require('./php'),
   python: require('./python'),
   ruby: require('./ruby'),

src/targets/perl/index.js

@@ -0,0 +1,12 @@
+'use strict'
+
+module.exports = {
+  info: {
+    key: 'perl',
+    title: 'Perl',
+    extname: '.pl',
+    default: 'perl5'
+  },
+
+  perl5: require('./perl5'),
+}

src/targets/perl/perl5.js

@@ -0,0 +1,40 @@
+/**
+ * @description
+ * HTTP code snippet generator for Perl.
+ *
+ * @author
+ * @jgabriels
+ *
+ * for any questions or issues regarding the generated code snippet, please open an issue mentioning the author.
+ */
+
+'use strict'
+
+var util = require('util')
+var helpers = require('../../helpers/shell')
+var CodeBuilder = require('../../helpers/code-builder')
+
+module.exports = function (source, options) {
+  var code = new CodeBuilder()
+  code.push('#!/usr/bin/perl')
+  code.push('use Modern::Perl;')
+  code.push('use Data::Dumper;')
+  code.push('use HTTP::Request::JSON;');
+  code.push('use LWP::UserAgent::JSON;');
+  code.push('my $request = HTTP::Request::JSON->new("%s",',helpers.quote(source.method));
+  code.push('"%s");',helpers.quote(source.fullUrl));
+  if (source.postData.text) {
+    code.push('$request->content(' + helpers.escape(helpers.quote(source.postData.text))+');')
+  }
+  code.push('my $browser = LWP::UserAgent::JSON->new();');
+  code.push('my $response = $browser->request($request);');
+  code.push('print Dumper($response->json_content);');
+  return code.join()
+}
+
+module.exports.info = {
+  key: 'perl5',
+  title: 'Perl5',
+  link: 'https://www.perl.org/',
+  description: 'Perl 5 is a highly capable, feature-rich programming language with over 29 years of development.  Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large scale development projects. '
+}