From 36d02c1227374b107aa351388c0b5e3df65e4fa9 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <daniel.friesel@uos.de>
Date: Wed, 29 Apr 2020 13:01:31 +0200
Subject: Remove most unused perl scripts and modules

---
 lib/FLAT/Regex/Util.pm | 33 ---------------------------------
 1 file changed, 33 deletions(-)
 delete mode 100644 lib/FLAT/Regex/Util.pm

(limited to 'lib/FLAT/Regex/Util.pm')

diff --git a/lib/FLAT/Regex/Util.pm b/lib/FLAT/Regex/Util.pm
deleted file mode 100644
index 516ad9f..0000000
--- a/lib/FLAT/Regex/Util.pm
+++ /dev/null
@@ -1,33 +0,0 @@
-package FLAT::Regex::Util;
-use base 'FLAT::Regex';
-
-use strict;
-use Carp;
-
-sub get_symbol {
-  my @symbols = qw/0 1/;
-  return $symbols[rand(2)];
-}
-
-sub get_op {
-  my @ops = ('*','+','&','','','','','','','');
-  return $ops[rand(10)];
-}
-
-sub get_random {
-  my $length = shift;
-  my $string = ''; 
-  if (1 < $length) {
-    $string = get_symbol().get_op().get_random(--$length);
-  } else {
-    $string = get_symbol();
-  }
-  return $string;
-}
-
-sub random_pre {
-  my $length = ( $_[0] ? $_[0] : 32 );
-  return FLAT::Regex::WithExtraOps->new(get_random($length));
-}
-
-1;
-- 
cgit v1.2.3