Acme::AwesomeQuotes - Make your text awesome!
use Acme::AwesomeQuotes; my $awesome_text = GetAwesome('Wyld Stallyns'); say q(I'm Bill S. Preston, Esquire!); say q(And I'm Ted "Theodore" Logan!); say ('And we are ', $awesome_text, '!');
Tired of ordinary quotation marks that lack punch?
Looking for something that can better convey just how awesome your words are?
You need `àwesome quoteś´!
GetAwesome() is the module’s only function, and is exported by default. It takes a single scalar string argument, and returns that string with the following changes applied:
In addition, leading/trailing whitespace and punctuation is stripped, and the returned string is in NFC.
Combining characters already present in the string are respected, and existing initial/terminal grave/acute accents will not be doubled. However, in cases where both a grave and acute accent may be applied – such as if the initial letter has an acute accent, or if the string consists of only a single letter – a caron is used instead, because combining grave and acute accents on the same character doesn’t look so hot. :)
None known, doubtless many undiscovered.
Marcus Smith <firstname.lastname@example.org>
This software is copyright (c) 2010 by Marcus Smith.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.