#!/usr/bin/env perl
use utf8;
###############################################################################
# This program illustrates some of the string functions in Utils
# 
# Copyright © 2020 Richard Lesh.  All rights reserved.
###############################################################################

use Utils;
use strict;
use warnings;

our $LTRSTR = "   Spaces to the left";
our $RTRSTR = "Spaces to the right  ";
our $TRIMSTR = "   Spaces at each end   ";
our $BLANK = "  \t\n  ";
our $LOWERSTR = "This String is Lowercase";
our $UPPERSTR = "This String is Uppercase";

MAIN:
{
	print "|", Utils::ltrim($LTRSTR), "|\n";
	print "|", Utils::rtrim($RTRSTR), "|\n";
	print "|", Utils::trim($TRIMSTR), "|\n";
	print "|", Utils::trim($BLANK), "|\n";
	print "|", lc($LOWERSTR), "|\n";
	print "|", uc($UPPERSTR), "|\n";
}