File Coverage

blib/lib/Acme/Emoticarp.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             ## no critic (RequireUseStrict)
2             package Acme::Emoticarp;
3             {
4             $Acme::Emoticarp::VERSION = '0.02';
5             }
6              
7             ## use critic (RequireUseStrict)
8 1     1   42069 use strict;
  1         3  
  1         38  
9 1     1   5 use warnings;
  1         2  
  1         30  
10 1     1   984 use parent 'Exporter';
  1         388  
  1         5  
11 1     1   1329 use utf8;
  1         11  
  1         6  
12              
13 1     1   33 use Carp ();
  1         2  
  1         69  
14              
15             our @EXPORT = ('o_O', 'ಠ_ಠ');
16              
17             *o_O = \&Carp::croak;
18             do {
19 1     1   6 no strict 'refs'; ## no critic (TestingAndDebugging::ProhibitNoStrict)
  1         2  
  1         136  
20             # use a symbolic reference to keep PPI happy
21             *{'ಠ_ಠ'} = \&Carp::cluck;
22             };
23              
24             sub import {
25 1     1   8 my ( $class, @arguments ) = @_;
26              
27 1         12 $^H |= $utf8::hint_bits; ## no critic (Bangs::ProhibitBitwiseOperators)
28 1         2451 $class->export_to_level(1, @_);
29             }
30              
31             1;
32              
33              
34              
35             =pod
36              
37             =encoding utf-8
38              
39             =head1 NAME
40              
41             Acme::Emoticarp - Carp and cluck in a more fun way.
42              
43             =head1 VERSION
44              
45             version 0.02
46              
47             =head1 SYNOPSIS
48              
49             use Acme::Emoticarp; # also uses 'use utf8'
50              
51             ಠ_ಠ 'No user for this session!' unless defined $user;
52              
53             o_O 'No arguments provided.' unless @ARGV;
54              
55             =head1 DESCRIPTION
56              
57             This module exports aliases for L and L
58             that are more amusing to use. Because some emoticons use UTF-8
59             names, L is automatically turned on in the importing environment.
60              
61             =head1 FUNCTIONS
62              
63             =head2 o_O
64              
65             An alias for L.
66              
67             =head2 ಠ_ಠ
68              
69             An alias for L.
70              
71             =head1 AUTHOR
72              
73             Rob Hoelz
74              
75             =head1 COPYRIGHT AND LICENSE
76              
77             This software is copyright (c) 2012 by Rob Hoelz.
78              
79             This is free software; you can redistribute it and/or modify it under
80             the same terms as the Perl 5 programming language system itself.
81              
82             =head1 BUGS
83              
84             Please report any bugs or feature requests on the bugtracker website
85             https://github.com/hoelzro/acme-emoticarp/issues
86              
87             When submitting a bug or request, please include a test-file or a
88             patch to an existing test-file that illustrates the bug or desired
89             feature.
90              
91             =cut
92              
93              
94             __END__