Added the --perl option to ronin quote (closes #245).

lib/ronin/cli/commands/quote.rb

@@ -39,6 +39,7 @@ module Commands
       #     -j, --js                         JavaScript quotes the data
       #     -S, --shell                      Quotes the data as a Shell String
       #     -P, --powershell                 Quotes the data as a PowerShell String
+      #         --perl                       Quotes the data as a Perl String
       #     -p, --php                        Quotes the data as a PHP String
       #         --python                     Quotes the data as a Python String
       #     -R, --ruby                       Quotes the data as a Ruby String
@@ -80,6 +81,11 @@ class Quote < StringMethodsCommand
                               @method_calls << :powershell_string
                             end
 
+        option :perl, desc: 'Quotes the data as a Perl String' do
+                        require 'ronin/support/encoding/perl'
+                        @method_calls << :perl_string
+                      end
+
         option :php, short: '-p',
                      desc: 'Quotes the data as a PHP String' do
                        require 'ronin/support/encoding/php'

man/ronin-quote.1.md

@@ -47,6 +47,9 @@ Produces quoted a string for a variety of programming languages.
 `-P`, `--powershell`
 : Quotes the data as a PowerShell String.
 
+`--perl`
+: Quotes the data as a Perl String.
+
 `-p`, `--php`
 : Quotes the data as a PHP String.
 

spec/cli/commands/quote_spec.rb

@@ -80,6 +80,18 @@
       end
     end
 
+    describe "--perl" do
+      let(:argv) { %w[--perl] }
+
+      it "must require 'ronin/support/encoding/perl'" do
+        expect(require('ronin/support/encoding/perl')).to be(false)
+      end
+
+      it "must add :perl_string to #method_calls" do
+        expect(subject.method_calls.last).to eq(:perl_string)
+      end
+    end
+
     describe "--python" do
       let(:argv) { %w[--python] }