GRYPHON / Bot-IRC-1.29 / lib / Bot / IRC / Convert.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
—
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81

              
package Bot::IRC::Convert;
# ABSTRACT: Bot::IRC convert units of amounts
use 5.014;
use exact;
use Math::Units 'convert';
our $VERSION = '1.29'; # VERSION
sub init {
    my ($bot) = @_;
    $bot->hook(
        {
            command => 'PRIVMSG',
            text    => qr/^(?<amount>[\d,\.]+)\s+(?<in_unit>\S+)\s+(?:in|as|to|into)\s+(?<out_unit>\S+)/,
        },
        sub {
            my ( $bot, $in, $m ) = @_;
            ( my $amount = $m->{amount} ) =~ s/,//g;
            my $value;
            eval { $value = convert( $amount, $m->{in_unit}, $m->{out_unit} ) };
            $bot->reply("$m->{amount} $m->{in_unit} is $value $m->{out_unit}") if ($value);
        },
    );
    $bot->helps( convert => 'Convert units of value. Usage: <amount> <input unit> as <output unit>.' );
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Bot::IRC::Convert - Bot::IRC convert units of amounts
=head1 VERSION
version 1.29
=head1 SYNOPSIS
    use Bot::IRC;
    Bot::IRC->new(
        connect => { server => 'irc.perl.org' },
        plugins => ['Convert'],
    )->run;
=head1 DESCRIPTION
This L<Bot::IRC> plugin allows the bot to convert various values of units.
Unit types must match, which is to say you can't convert length to volume.
=head2 SEE ALSO
L<Bot::IRC>
=for Pod::Coverage init
=head1 AUTHOR
Gryphon Shafer <gryphon@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2016-2021 by Gryphon Shafer.
This is free software, licensed under:
  The Artistic License 2.0 (GPL Compatible)
=cut