Acme::LookOfDisapproval - send warnings with ಠ_ಠ
version 0.006
use Acme::LookOfDisapproval; ಠ_ಠ 'you did something dumb';
Use ಠ_ಠ whenever you would use warn, to express your profound disapproval.
ಠ_ಠ
warn
Behaves identically to "warn" in perlfunc.
I wrote this as an exercise in using unicode in code, not just in a string. Then, it became an interesting learning experience in how to cleanly map to a core function, and re-exporting symbols.
The first draft did this:
use Carp 'carp'; sub ಠ_ಠ { local $Carp::CarpLevel = $Carp::CarpLevel + 1; carp @_; }
And then it became:
BEGIN { no strict 'refs'; *{__PACKAGE__ . '::ಠ_ಠ'} = *CORE::warn; }
But this is even nicer:
sub ಠ_ಠ { goto &CORE::warn }
I also played around with Import::Into to manage the export of both the utf8 pragma and the ಠ_ಠ symbol. However, that's just silly when we can call import directly on utf8 (it's a pragma, so the caller doesn't matter -- only when it is called: during the caller's compilation cycle), and then we can export our symbol by using goto to jump to Exporter.
import
I also discovered while writing this distribution that Dist::Zilla is not able to munge files with utf8 characters, therefore I had to switch to packaging this distribution with vanilla ExtUtils::MakeMaker; also, a number of the author and release tests that would have been added by dzil automatically didn't work either (for example, see t/00-compile.t -- qx(^$X "require $_") both needs the :binmode or :encoding(UTF-8) layer applied to STDOUT, and requires the utf8 pragma applied in the sub-perl (leading to more patches).
t/00-compile.t
qx(^$X "require $_")
:binmode
:encoding(UTF-8)
STDOUT
Bugs may be submitted through the RT bug tracker (or bug-Acme-LookOfDisapproval@rt.cpan.org). I am also usually active on irc, as 'ether' at irc.perl.org.
irc.perl.org
the Look of Disapproval Meme
lambda - another example of unicode sub names
Karen Etheridge <ether@cpan.org>
This software is copyright (c) 2013 by Karen Etheridge.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
To install Acme::LookOfDisapproval, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Acme::LookOfDisapproval
CPAN shell
perl -MCPAN -e shell install Acme::LookOfDisapproval
For more information on module installation, please visit the detailed CPAN module installation guide.