File Coverage

blib/lib/String/Trim/NonRegex.pm

Criterion	Covered	Total	%
statement	43	43	100.0
branch	13	16	81.2
condition	24	24	100.0
subroutine	7	7	100.0
pod	3	3	100.0
total	90	93	96.7

package String::Trim::NonRegex;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2021-06-23'; # DATE
our $DIST = 'String-Trim-NonRegex'; # DIST
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;

use Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
                       ltrim
                       rtrim
                       trim
                       ltrim_lines
                       rtrim_lines
                       trim_lines
                       trim_blank_lines

                       ellipsis
               );

sub ltrim {
    my $str = shift;
    my $len = length $str;
    my $i = 0;
    while (1) {
        my $c = substr($str, $i, 1);
        last unless $c eq ' ' || $c eq "\t" || $c eq "\n";
        $i++;
        last if $i >= $len;
    }
    substr($str, $i);
}

sub rtrim {
    my $str = shift;
    my $i = length($str)-1;
    while (1) {
        my $c = substr($str, $i, 1);
        last unless $c eq ' ' || $c eq "\t" || $c eq "\n";
        $i--;
        last if $i < 0;
    }
    substr($str, 0, $i+1);
}

sub trim {
    my $str = shift;
    my $len = length $str;

    my $i = $len-1;
    while (1) {
        my $c = substr($str, $i, 1);
        last unless $c eq ' ' || $c eq "\t" || $c eq "\n";
        $i--;
        last if $i < 0;
    }

    my $j = 0;
    while (1) {
        my $c = substr($str, $j, 1);
        last unless $c eq ' ' || $c eq "\t" || $c eq "\n";
        $j++;
        last if $j >= $i;
    }
    substr($str, $j, $i-$j+1);
}

#sub ltrim_lines {
#    my $str = shift;
#    $str =~ s/^[ \t]+//mg; # XXX other unicode non-newline spaces
#    $str;
#}

#sub rtrim_lines {
#    my $str = shift;
#    $str =~ s/[ \t]+$//mg;
#    $str;
#}

#sub trim_lines {
#    my $str = shift;
#    $str =~ s/^[ \t]+//mg;
#    $str =~ s/[ \t]+$//mg;
#    $str;
#}

#sub trim_blank_lines {
#    local $_ = shift;
#    return $_ unless defined;
#    s/\A(?:\n\s*)+//;
#    s/(?:\n\s*){2,}\z/\n/;
#    $_;
#}

#sub ellipsis {
#    my ($str, $maxlen, $ellipsis) = @_;
#    $maxlen   //= 80;
#    $ellipsis //= "...";
#
#    if (length($str) <= $maxlen) {
#        return $str;
#    } else {
#        return substr($str, 0, $maxlen-length($ellipsis)) . $ellipsis;
#    }
#}

1;
# ABSTRACT: String trimming functions that do not use regex

__END__