From e1ec346da17585737f16be9f8f71425b5fe51662 Mon Sep 17 00:00:00 2001
From: Matias Linares <matiaslina@openmailbox.org>
Date: Sun, 21 Feb 2016 20:31:39 -0300
Subject: Initial commit

---
 test.pl | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100755 test.pl

(limited to 'test.pl')

diff --git a/test.pl b/test.pl
new file mode 100755
index 0000000..363f870
--- /dev/null
+++ b/test.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use Path::Class;
+
+sub trans {
+    my ($dir, $cb) = @_;
+
+    while(my $file = $dir->next) {
+        my $outfile = $file->stringify;
+
+        # Some conditions
+        next if $outfile =~ /(\.|\.\.)$/;
+        next if $outfile eq $dir;
+
+        if($file->is_dir()) {
+            # make a directory
+            trans($file, $cb);
+            next;
+        }
+
+        $cb->($file);
+    }
+}
+
+sub some {
+    my ($f) = @_;
+
+    die "f is empty" if !$f;
+
+    print "Inside some: $f\n";
+}
+
+trans dir("in"), \&some;
-- 
cgit v1.2.3-70-g09d2