add gem files support

melezhik · Jan 1, 2017 · 20b3d06 · 20b3d06
1 parent c079f01
commit 20b3d06
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 2 deletions.
diff --git a/META.info b/META.info
@@ -2,7 +2,7 @@
   "perl"        : "6.*",
   "name"        : "Sparrowdo::Archive",
   "version"     : "*",
-  "description" : "Extract various archives using tar/unzip programs",
+  "description" : "Extract archived files with the help of various archivers programs.",
   "authors" : [ "Alexey Melezhik"],
   "depends"     : [
                     "Sparrowdo"

diff --git a/README.md b/README.md
@@ -1,6 +1,6 @@
 # SYNOPSIS
 
-Extract various archives using tar/unzip programs.
+Extract archived files with the help of various archivers programs.
 
 Archive formats supported:
 
@@ -10,6 +10,7 @@ Archive formats supported:
     | *.zip     | unzip                     |
     | *.tar     | tar                       |
     | *.tar.gz  | tar                       |
+    | *.gem     | gem                       |
     +-----------+---------------------------+
 
 # INSTALL

diff --git a/lib/Sparrowdo/Archive.pm6 b/lib/Sparrowdo/Archive.pm6
@@ -25,6 +25,10 @@ our sub tasks (%args) {
     $command = %args<verbose> ?? 
       'unzip -v -o -u ' ~ %args<source> ~ ' -d ' ~ %args<target> !!
       'unzip -o -u ' ~ %args<source> ~ ' -d ' ~ %args<target>;
+  } elsif $ext eq 'gem'  {
+    $command = %args<verbose> ?? 
+      'gem unpack ' ~ %args<source> ~ ' -V --target ' ~ %args<target> !!
+      'gem unpack ' ~ %args<source> ~ ' --target ' ~ %args<target>;
   }else {
     die 'unknown file extension ' ~   %args<source>.IO.extension
   }