File Coverage

blib/lib/Bot/IRC/X/ManagementSpeak.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             # ABSTRACT: Bot::IRC plugin for rendering management-speak
2              
3             use 5.014;
4 1     1   293985 use exact;
  1         9  
5 1     1   4  
  1         2  
  1         5  
6             use Lingua::ManagementSpeak;
7 1     1   801  
  1         1731  
  1         138  
8             our $VERSION = '1.04'; # VERSION
9              
10             my ($bot) = @_;
11              
12 1     1 0 4975 my $ms = Lingua::ManagementSpeak->new;
13              
14 1         7 $bot->hook(
15             {
16             to_me => 1,
17             text => qr/^mspeak/i,
18             },
19             sub {
20             my ( $bot, $in, $m ) = @_;
21             $bot->reply( $ms->paragraph(4) );
22 1     1   229 },
23 1         4 );
24              
25 1         81 $bot->helps( mspeak => 'Return managerial-sounding text. Usage: <bot> mspeak.' );
26             }
27 1         7  
28             1;
29              
30              
31             =pod
32              
33             =encoding UTF-8
34              
35             =head1 NAME
36              
37             Bot::IRC::X::ManagementSpeak - Bot::IRC plugin for rendering management-speak
38              
39             =head1 VERSION
40              
41             version 1.04
42              
43             =for markdown [![test](https://github.com/gryphonshafer/Bot-IRC-X-ManagementSpeak/workflows/test/badge.svg)](https://github.com/gryphonshafer/Bot-IRC-X-ManagementSpeak/actions?query=workflow%3Atest)
44             [![codecov](https://codecov.io/gh/gryphonshafer/Bot-IRC-X-ManagementSpeak/graph/badge.svg)](https://codecov.io/gh/gryphonshafer/Bot-IRC-X-ManagementSpeak)
45              
46             =head1 SYNOPSIS
47              
48             use Bot::IRC;
49              
50             Bot::IRC->new(
51             connect => { server => 'irc.perl.org' },
52             plugins => ['ManagementSpeak'],
53             )->run;
54              
55             =head1 DESCRIPTION
56              
57             This L<Bot::IRC> plugin is for rendering management-speak.
58              
59             <bot> mspeak
60              
61             =head1 SEE ALSO
62              
63             You can look for additional information at:
64              
65             =over 4
66              
67             =item *
68              
69             L<Bot::IRC>
70              
71             =item *
72              
73             L<GitHub|https://github.com/gryphonshafer/Bot-IRC-X-ManagementSpeak>
74              
75             =item *
76              
77             L<MetaCPAN|https://metacpan.org/pod/Bot::IRC::X::ManagementSpeak>
78              
79             =item *
80              
81             L<GitHub Actions|https://github.com/gryphonshafer/Bot-IRC-X-ManagementSpeak/actions>
82              
83             =item *
84              
85             L<Codecov|https://codecov.io/gh/gryphonshafer/Bot-IRC-X-ManagementSpeak>
86              
87             =item *
88              
89             L<CPANTS|http://cpants.cpanauthors.org/dist/Bot-IRC-X-ManagementSpeak>
90              
91             =item *
92              
93             L<CPAN Testers|http://www.cpantesters.org/distro/T/Bot-IRC-X-ManagementSpeak.html>
94              
95             =back
96              
97             =for Pod::Coverage init
98              
99             =head1 AUTHOR
100              
101             Gryphon Shafer <gryphon@cpan.org>
102              
103             =head1 COPYRIGHT AND LICENSE
104              
105             This software is Copyright (c) 2016-2050 by Gryphon Shafer.
106              
107             This is free software, licensed under:
108              
109             The Artistic License 2.0 (GPL Compatible)
110              
111             =cut