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