use Pinwheel::Helpers::Text; # The following are listed in @EXPORT_OK, but nothing is exported by default $text = h($text); # ? $text = uc($text); # UPPER CASE $text = lc($text); # lower case $text = tc($text); # Title Case (uses \b to detect words) # Joins the items of @list using $sep, except for the last item which is # joined using $last_sep $text = join(\@list, $sep, $last_sep); join(["Dave Dee", "Dozy", "Beaky", "Mick", "Tich"], ", ", " & ") -> "Dave Dee, Dozy, Beaky, Mick & Tich" simple_format; # ? # p is an alias for simple_format cycle; # ? $text = pluralize($count, $singular[, $plural]); pluralize(1, "mouse", "mice") -> "mouse" pluralize(2, "mouse", "mice") -> "mice" pluralize(1, "dog") -> "dog" pluralize(2, "dog") -> "dogs" $text = ordinal_text($n); # One of: st nd rd th # depending on $n
1;
To install Pinwheel, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Pinwheel
CPAN shell
perl -MCPAN -e shell install Pinwheel
For more information on module installation, please visit the detailed CPAN module installation guide.