diff options
Diffstat (limited to 'lib/Loadbars/Utils.pm')
| -rw-r--r-- | lib/Loadbars/Utils.pm | 61 |
1 files changed, 0 insertions, 61 deletions
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; |
