File Coverage

lib/LEOCHARRE/Strings.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	11	12	91.6
condition	2	3	66.6
subroutine	10	10	100.0
pod	4	4	100.0
total	56	58	96.5

package LEOCHARRE::Strings;
use strict;
use vars qw(@EXPORT_OK %EXPORT_TAGS @ISA);
use Exporter;
use Carp;
use String::Prettify;
use String::ShellQuote;
our $VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)/g;
@ISA = qw/Exporter/;
@EXPORT_OK = qw/sq pretty shomp is_blank_or_comment boc is_blank is_comment/;
%EXPORT_TAGS = ( all => \@EXPORT_OK );

*pretty = \&String::Prettify::prettify;
*sq     = \&String::ShellQuote::shell_quote;
*is_blank_or_comment = \&boc;
sub shomp;
sub shomp {
   my $a = \shift;
   # DONE need this to somhow reference to what's in front like with chomp
   # (the \shift does that)
   #printf STDERR "# shomp() got: '%s' %s\n", $a, (ref $a);
   $$a=~s/^\s+|\s+$//g ? 1 : 0;

}

sub is_blank {
   my $a = shift;
   ((defined $a) and length($a))or return 1; # if nothing, then is blank

   ($a=~/\S/ ) ? 0 : 1;
}

sub is_comment {
   my $a = shift;
   $a=~/^\s*#/ ? 1 : 0;
}

sub boc {
   my $a = shift;
   is_blank($a) and return 1;
   is_comment($a) and return 1;
   return 0;
}

1;

__END__