Use DZP::Rinci::ScriptFromFunc

perlancar · Aug 15, 2014 · a94d7dc · a94d7dc
1 parent f2d90e0
commit a94d7dc
Show file tree

Hide file tree

Showing 3 changed files with 20 additions and 39 deletions.
diff --git a/bin/uniq-files b/bin/uniq-files
diff --git a/dist.ini b/dist.ini
@@ -5,6 +5,9 @@ author  = Steven Haryanto <stevenharyanto@gmail.com>
 license = Perl_5
 copyright_holder = Steven Haryanto
 
+[Rinci::ScriptFromFunc]
+script= func=/App/UniqFiles/uniq_files, prefer_lite=1
+
 [@Author::SHARYANTO]
 :version=0.23
 

diff --git a/lib/App/UniqFiles.pm b/lib/App/UniqFiles.pm
@@ -98,6 +98,23 @@ duplicate, and so on.
 _
         },
     },
+    examples => [
+        {
+            summary   => 'List all files which do no have duplicate contents',
+            src       => 'uniq-files *',
+            src_plang => 'bash',
+        },
+        {
+            summary   => 'List all files which have duplicate contents',
+            src       => 'uniq-files -d *',
+            src_plang => 'bash',
+        },
+        {
+            summary   => 'List number of occurences of contents for each file',
+            src       => 'uniq-files -c *',
+            src_plang => 'bash',
+        },
+    ],
 };
 sub uniq_files {
     my %args = @_;