use strict;
use warnings;
use utf8;
package Acme::LookOfDisapproval;
  $Acme::LookOfDisapproval::VERSION = '0.006';
# git description: v0.005-6-g478008e

  $Acme::LookOfDisapproval::AUTHORITY = 'cpan:ETHER';
# ABSTRACT: send warnings with ಠ_ಠ

use Exporter;
our @EXPORT = ('ಠ_ಠ');

sub import
    goto &Exporter::import;

sub ಠ_ಠ { goto &CORE::warn }




=encoding UTF-8

=for :stopwords Karen Etheridge unicode dzil utf8 irc

=head1 NAME

Acme::LookOfDisapproval - send warnings with ಠ_ಠ

=head1 VERSION

version 0.006


    use Acme::LookOfDisapproval;
    ಠ_ಠ 'you did something dumb';


Use C<ಠ_ಠ> whenever you would use C<warn>, to express your profound


=head2 C<ಠ_ಠ>

Behaves identically to L<perlfunc/warn>.


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 L<Import::Into> to manage the export of both the
L<utf8> pragma and the C<ಠ_ಠ> symbol. However, that's just silly when we can
call C<import> directly on L<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 L<goto> to jump to L<Exporter>.

I also discovered while writing this distribution that L<Dist::Zilla> is not
able to munge files with utf8 characters, therefore I had to switch to packaging
this distribution with vanilla L<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 C<t/00-compile.t> -- C<< qx(^$X "require $_") >>
both needs the C<:binmode> or C<:encoding(UTF-8)> layer applied to C<STDOUT>, and
requires the L<utf8> pragma applied in the sub-perl (leading to more patches).

=head1 SUPPORT

Bugs may be submitted through L<the RT bug tracker|>
(or L<|>).
I am also usually active on irc, as 'ether' at C<>.

=head1 SEE ALSO

=over 4

=item *

L<the Look of Disapproval Meme|>

=item *

L<lambda> - another example of unicode sub names


=head1 AUTHOR

Karen Etheridge <>


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.