From 39b8ed83ed0e9c30fda39e978b1b2e3ffeaa2288 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Fri, 13 Feb 2026 23:47:59 +0200
Subject: cleanup

---
 lib/Loadbars/Utils.pm | 61 ---------------------------------------------------
 1 file changed, 61 deletions(-)
 delete mode 100644 lib/Loadbars/Utils.pm

(limited to 'lib/Loadbars/Utils.pm')

diff --git a/lib/Loadbars/Utils.pm b/lib/Loadbars/Utils.pm
deleted file mode 100644
index 56b829d..0000000
--- a/lib/Loadbars/Utils.pm
+++ /dev/null
@@ -1,61 +0,0 @@
-package Loadbars::Utils;
-
-use strict;
-use warnings;
-
-use Exporter;
-
-use base 'Exporter';
-
-our @EXPORT = qw (
-  debugsay
-  display_info
-  display_info_no_nl
-  display_warn
-  error
-  get_version
-  newline
-  notnull
-  null
-  say
-  sum
-  trim
-);
-
-sub say (@) { print "$_\n" for @_; return undef }
-sub newline () { say ''; return undef }
-sub debugsay (@) { say "Loadbars::DEBUG: $_" for @_; return undef }
-sub sum (@) { my $sum = 0; $sum += $_ // 0 for @_; return $sum }
-sub null ($)    { defined $_[0] ? $_[0] : 0 }
-sub notnull ($) { $_[0] != 0    ? $_[0] : 1 }
-sub error ($) { die shift, "\n" }
-
-sub trim (\$) {
-    my $str = shift;
-    $$str =~ s/^[\s\t]+//;
-    $$str =~ s/[\s\t]+$//;
-    return undef;
-}
-sub display_info_no_nl ($) { print "==> " . (shift) . ' ' }
-sub display_info ($)       { say "==> " . shift }
-sub display_warn ($)       { say "!!! " . shift }
-
-sub get_version () {
-    my $versionfile = do {
-        if ( -f '.version' ) {
-            '.version';
-        }
-        else {
-            '/usr/share/loadbars/version';
-        }
-    };
-
-    open my $fh, $versionfile or error("$!: $versionfile");
-    my $version = <$fh>;
-    close $fh;
-
-    chomp $version;
-    return $version;
-}
-
-1;
-- 
cgit v1.2.3