Develop (#25)

* Feat/add makefile (#21)

* develop

* release/0.0.6

* feat: add Dockerized build and run support

- Added Makefile for Dockerized application
- Defined Docker image and version variables
- Included Docker commands for build, run, exec, stop, clean, and rebuild

Why: Facilitate easy development, testing, and deployment using Docker.

* test perl critic

* test perl critic

* fix

* syntax

* identation

* add path

* identation

* test

* test of rule

* fix

* remove examples

* remove rules

* fix code

* new policies

* fix linter errors

---------

Co-authored-by: Anderson Bosa <[email protected]>
Co-authored-by: Heitor Gouvêa <[email protected]>

.perlcriticrc

@@ -1,2 +1,2 @@
 only = 1
-include = ProhibitUnusedVariables ProhibitUnusedConstant ProhibitUnusedInclude ProhibitUnusedImport
+include = ProhibitUnusedVariables ProhibitUnusedConstant ProhibitUnusedInclude ProhibitUnusedImport ProhibitUnreachableCode ProhibitComplexRegexes ProhibitDuplicatedSub ProhibitDuplicateHashKeys ProhibitUnusedPrivateSubroutines ProhibitUnlessBlocks ProhibitExcessiveColons ProhibitExplicitReturnUndef RequireCamelCase ProhibitMagicNumbers ProhibitTrailingWhitespace ProhibitHardTabs

lib/Zarn/AST.pm

@@ -21,7 +21,7 @@ package Zarn::AST {
             $document -> prune("PPI::Token::Pod");
             $document -> prune("PPI::Token::Comment");
 
-            foreach my $token (@{$document -> find("PPI::Token")}) {                    
+            foreach my $token (@{$document -> find("PPI::Token")}) {
                 foreach my $rule (@{$rules}) {
                     my @sample   = $rule -> {sample} -> @*;
                     my $category = $rule -> {category};
@@ -30,10 +30,10 @@ package Zarn::AST {
                     if ($self -> matches_sample($token -> content(), \@sample)) {
                         $self -> process_sample_match($document, $category, $file, $title, $token);
                     }
-                }       
+                }
             }
         }
-        
+
         return 1;
     }
 
@@ -52,7 +52,7 @@ package Zarn::AST {
         my $next_element = $token -> snext_sibling;
 
         # this is a draft source-to-sink function
-        if (defined $next_element && ref $next_element && $next_element -> content() =~ /[\$\@\%](\w+)/) {  
+        if (defined $next_element && ref $next_element && $next_element -> content() =~ /[\$\@\%](\w+)/) {
             # perform taint analysis
             $self -> perform_taint_analysis($document, $category, $file, $title, $next_element);
         }
@@ -74,4 +74,4 @@ package Zarn::AST {
     }
 }
 
-1;
+1;

lib/Zarn/Rules.pm

@@ -8,7 +8,7 @@ package Zarn::Rules {
 
         if ($rules) {
             my $yamlfile = YAML::Tiny -> read($rules);
-            my @rules    = $yamlfile -> [0] -> {rules}; 
+            my @rules    = $yamlfile -> [0] -> {rules};
 
             return @rules;
         }

zarn.pl

@@ -22,16 +22,16 @@ sub main {
 
     if (!$source) {
         print "
-			\rZarn v0.0.5
-			\rCore Commands
-			\r==============
-			\r\tCommand          Description
-			\r\t-------          -----------
-			\r\t-s, --source     Configure a source directory to do static analysis
-			\r\t-r, --rules      Define YAML file with rules
-			\r\t-i, --ignore     Define a file or directory to ignore
-			\r\t-h, --help       To see help menu of a module
-        \n";
+          \rZarn v0.0.5
+          \rCore Commands
+          \r==============
+          \r\tCommand          Description
+          \r\t-------          -----------
+          \r\t-s, --source     Configure a source directory to do static analysis
+          \r\t-r, --rules      Define YAML file with rules
+          \r\t-i, --ignore     Define a file or directory to ignore
+          \r\t-h, --help       To see help menu of a module\n
+        ";
 
         exit 1;
     }