File Coverage

blib/lib/Text/ClearSilver/FunctionSet/string.pm

Criterion	Covered	Total	%
statement	23	29	79.3
branch	9	16	56.2
condition			n/a
subroutine	9	10	90.0
pod			n/a
total	41	55	74.5

package Text::ClearSilver::FunctionSet::string;
use strict;
use warnings;
use Text::ClearSilver::FunctionSet qw(usage);

sub _function_sprintf {
    my $fmt = shift;
    usage 'sprintf(fmt, ...)' if !defined $fmt;

    return sprintf($fmt, @_);
}

sub _function_substr {
    if(@_ == 2) {
        return substr($_[0], $_[1]);
    }
    elsif(@_ == 3) {
        return substr($_[0], $_[1], $_[2]);
    }
    else {
        usage 'substr(expr, offset [, length])';
    }
}

sub _function_trim {
    my($str) = @_;
    usage 'trim(expr)' if @_ != 1;

    $str =~ s/\A \s+   //xms;
    $str =~ s/   \s+ \z//xms;

    return $str;
}

sub _function_uc {
    usage 'uc(expr)' if @_ != 1;

    return uc($_[0]);
}

sub _function_lc {
    usage 'lc(expr)' if @_ != 1;

    return lc($_[0]);
}

sub _function_ucfirst {
    usage 'ucfirst(expr)' if @_ != 1;

    return ucfirst($_[0]);
}

sub _function_lcfirst {
    usage 'lcfirst(expr)' if @_ != 1;

    return lcfirst($_[0]);
}


1;
__END__