File Coverage

blib/lib/Acme/Shining.pm
Criterion Covered Total %
statement 15 18 83.3
branch n/a
condition n/a
subroutine 5 6 83.3
pod 1 1 100.0
total 21 25 84.0


line stmt bran cond sub pod time code
1             package Acme::Shining;
2              
3 2     2   21986 use 5.006;
  2         7  
  2         91  
4 2     2   10 use strict;
  2         4  
  2         77  
5 2     2   11 use warnings FATAL => 'all';
  2         7  
  2         95  
6 2     2   1226 use Time::HiRes 'sleep';
  2         3280  
  2         9  
7              
8             =head1 NAME
9              
10             Acme::Shining - All work and no play makes Jack a dull boy
11              
12             =head1 VERSION
13              
14             Version 0.01
15              
16             =cut
17              
18             our $VERSION = '0.01';
19              
20              
21             =head1 SYNOPSIS
22              
23             Inform your coworkers of your great pleasure at their imminent pain and death.
24              
25              
26             use Acme::Shining;
27              
28             my_novel();
29              
30             =head1 FUNCTIONS
31              
32             =head2 my_novel()
33              
34             Print your novel. Like the psychosis of your mind, this function has no end.
35              
36             =cut
37              
38             sub my_novel {
39 0     0 1 0 do {
40 0         0 print _getline();
41 0         0 sleep(.001);
42             } while (1)
43             }
44              
45             sub _getline {
46 999999     999999   1634993 my $s = "All work and no play makes Jack a dull boy\n";
47 999999         826387 my $replace = int(rand(length("All work and no play makes Jack a dull boy\n")));
48 999999         56439328 (substr($s, $replace, 1, uc(substr($s, $replace, 1))), return $s);
49             }
50              
51             =head1 AUTHOR
52              
53             Jack Torrance, C<< >>
54              
55             =head1 BUGS
56              
57             Please report any bugs or feature requests to C, or through
58             the web interface at L. I will be notified, and then you'll
59             automatically be notified of progress on your bug as I make changes.
60              
61             =head1 SUPPORT
62              
63             You can find documentation for this module with the perldoc command.
64              
65             perldoc Acme::Shining
66              
67              
68             You can also look for information at:
69              
70             =over 4
71              
72             =item * RT: CPAN's request tracker (report bugs here)
73              
74             L
75              
76             =item * AnnoCPAN: Annotated CPAN documentation
77              
78             L
79              
80             =item * CPAN Ratings
81              
82             L
83              
84             =item * Search CPAN
85              
86             L
87              
88             =back
89              
90              
91             =head1 ACKNOWLEDGEMENTS
92              
93              
94             =head1 LICENSE AND COPYRIGHT
95              
96             Copyright 2015 Jack Torrance.
97              
98             This program is free software; you can redistribute it and/or modify it
99             under the terms of the the Artistic License (2.0). You may obtain a
100             copy of the full license at:
101              
102             L
103              
104             Any use, modification, and distribution of the Standard or Modified
105             Versions is governed by this Artistic License. By using, modifying or
106             distributing the Package, you accept this license. Do not use, modify,
107             or distribute the Package, if you do not accept this license.
108              
109             If your Modified Version has been derived from a Modified Version made
110             by someone other than you, you are nevertheless required to ensure that
111             your Modified Version complies with the requirements of this license.
112              
113             This license does not grant you the right to use any trademark, service
114             mark, tradename, or logo of the Copyright Holder.
115              
116             This license includes the non-exclusive, worldwide, free-of-charge
117             patent license to make, have made, use, offer to sell, sell, import and
118             otherwise transfer the Package with respect to any patent claims
119             licensable by the Copyright Holder that are necessarily infringed by the
120             Package. If you institute patent litigation (including a cross-claim or
121             counterclaim) against any party alleging that the Package constitutes
122             direct or contributory patent infringement, then this Artistic License
123             to you shall terminate on the date that such litigation is filed.
124              
125             Disclaimer of Warranty: THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER
126             AND CONTRIBUTORS "AS IS' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES.
127             THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
128             PURPOSE, OR NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY
129             YOUR LOCAL LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR
130             CONTRIBUTOR WILL BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR
131             CONSEQUENTIAL DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE,
132             EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
133              
134              
135             =cut
136              
137             1; # End of Acme::Shining