lib/Loadbars/Utils.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

package Loadbars::Utils;

use strict;
use warnings;

use Exporter;

use base 'Exporter';

our @EXPORT = qw (
  debugsay
  display_info
  display_info_no_nl
  display_warn
  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 += $_ 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 }

1;