From 3f394b49b87654c50165768246d7321fbb0d5d3e Mon Sep 17 00:00:00 2001
From: Matias Linares <matiaslina@openmailbox.org>
Date: Sun, 21 Feb 2016 20:32:07 -0300
Subject: Remove test file

---
 test.pl | 35 -----------------------------------
 1 file changed, 35 deletions(-)
 delete mode 100755 test.pl

(limited to 'test.pl')

diff --git a/test.pl b/test.pl
deleted file mode 100755
index 363f870..0000000
--- a/test.pl
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/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