| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package POE::Component::IRC::Common; |
|
2
|
|
|
|
|
|
|
our $AUTHORITY = 'cpan:HINRIK'; |
|
3
|
|
|
|
|
|
|
$POE::Component::IRC::Common::VERSION = '6.93'; |
|
4
|
3
|
|
|
3
|
|
239338
|
use strict; |
|
|
3
|
|
|
|
|
22
|
|
|
|
3
|
|
|
|
|
102
|
|
|
5
|
3
|
|
|
3
|
|
16
|
use warnings FATAL => 'all'; |
|
|
3
|
|
|
|
|
7
|
|
|
|
3
|
|
|
|
|
118
|
|
|
6
|
|
|
|
|
|
|
|
|
7
|
3
|
|
|
3
|
|
1179
|
use IRC::Utils; |
|
|
3
|
|
|
|
|
42969
|
|
|
|
3
|
|
|
|
|
224
|
|
|
8
|
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
require Exporter; |
|
10
|
3
|
|
|
3
|
|
32
|
use base qw(Exporter); |
|
|
3
|
|
|
|
|
6
|
|
|
|
3
|
|
|
|
|
519
|
|
|
11
|
|
|
|
|
|
|
our @EXPORT_OK = qw( |
|
12
|
|
|
|
|
|
|
u_irc l_irc parse_mode_line parse_ban_mask matches_mask matches_mask_array |
|
13
|
|
|
|
|
|
|
parse_user has_color has_formatting strip_color strip_formatting NORMAL |
|
14
|
|
|
|
|
|
|
BOLD UNDERLINE REVERSE WHITE BLACK DARK_BLUE DARK_GREEN RED BROWN PURPLE |
|
15
|
|
|
|
|
|
|
ORANGE YELLOW LIGHT_GREEN TEAL CYAN LIGHT_BLUE MAGENTA DARK_GREY |
|
16
|
|
|
|
|
|
|
LIGHT_GREY irc_to_utf8 |
|
17
|
|
|
|
|
|
|
); |
|
18
|
|
|
|
|
|
|
our %EXPORT_TAGS = ( ALL => [@EXPORT_OK] ); |
|
19
|
|
|
|
|
|
|
|
|
20
|
3
|
|
|
3
|
|
22
|
no warnings 'once'; ## no critic (TestingAndDebugging::ProhibitNoWarnings) |
|
|
3
|
|
|
|
|
6
|
|
|
|
3
|
|
|
|
|
1148
|
|
|
21
|
|
|
|
|
|
|
*NORMAL = *IRC::Utils::NORMAL; |
|
22
|
|
|
|
|
|
|
*BOLD = *IRC::Utils::BOLD; |
|
23
|
|
|
|
|
|
|
*UNDERLINE = *IRC::Utils::UNDERLINE; |
|
24
|
|
|
|
|
|
|
*REVERSE = *IRC::Utils::REVERSE; |
|
25
|
|
|
|
|
|
|
*ITALIC = *IRC::Utils::ITALIC; |
|
26
|
|
|
|
|
|
|
*FIXED = *IRC::Utils::FIXED; |
|
27
|
|
|
|
|
|
|
*WHITE = *IRC::Utils::WHITE; |
|
28
|
|
|
|
|
|
|
*BLACK = *IRC::Utils::BLACK; |
|
29
|
|
|
|
|
|
|
*DARK_BLUE = *IRC::Utils::BLUE; |
|
30
|
|
|
|
|
|
|
*DARK_GREEN = *IRC::Utils::GREEN; |
|
31
|
|
|
|
|
|
|
*RED = *IRC::Utils::RED; |
|
32
|
|
|
|
|
|
|
*BROWN = *IRC::Utils::BROWN; |
|
33
|
|
|
|
|
|
|
*PURPLE = *IRC::Utils::PURPLE; |
|
34
|
|
|
|
|
|
|
*ORANGE = *IRC::Utils::ORANGE; |
|
35
|
|
|
|
|
|
|
*YELLOW = *IRC::Utils::YELLOW; |
|
36
|
|
|
|
|
|
|
*LIGHT_GREEN = *IRC::Utils::LIGHT_GREEN; |
|
37
|
|
|
|
|
|
|
*TEAL = *IRC::Utils::TEAL; |
|
38
|
|
|
|
|
|
|
*CYAN = *IRC::Utils::LIGHT_CYAN; |
|
39
|
|
|
|
|
|
|
*LIGHT_BLUE = *IRC::Utils::LIGHT_BLUE; |
|
40
|
|
|
|
|
|
|
*MAGENTA = *IRC::Utils::PINK; |
|
41
|
|
|
|
|
|
|
*DARK_GREY = *IRC::Utils::GREY; |
|
42
|
|
|
|
|
|
|
*LIGHT_GREY = *IRC::Utils::LIGHT_GREY; |
|
43
|
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
*u_irc = *IRC::Utils::uc_irc; |
|
45
|
|
|
|
|
|
|
*l_irc = *IRC::Utils::lc_irc; |
|
46
|
|
|
|
|
|
|
*parse_mode_line = *IRC::Utils::parse_mode_line; |
|
47
|
|
|
|
|
|
|
*parse_ban_mask = *IRC::Utils::normalize_mask; |
|
48
|
|
|
|
|
|
|
*parse_user = *IRC::Utils::parse_user; |
|
49
|
|
|
|
|
|
|
*matches_mask = *IRC::Utils::matches_mask; |
|
50
|
|
|
|
|
|
|
*matches_mask_array = *IRC::Utils::matches_mask_array; |
|
51
|
|
|
|
|
|
|
*has_color = *IRC::Utils::has_color; |
|
52
|
|
|
|
|
|
|
*has_formatting = *IRC::Utils::has_formatting; |
|
53
|
|
|
|
|
|
|
*strip_color = *IRC::Utils::strip_color; |
|
54
|
|
|
|
|
|
|
*strip_formatting = *IRC::Utils::strip_formatting; |
|
55
|
|
|
|
|
|
|
*irc_to_utf8 = *IRC::Utils::decode_irc; |
|
56
|
|
|
|
|
|
|
|
|
57
|
|
|
|
|
|
|
1; |
|
58
|
|
|
|
|
|
|
|
|
59
|
|
|
|
|
|
|
=encoding utf8 |
|
60
|
|
|
|
|
|
|
|
|
61
|
|
|
|
|
|
|
=head1 NAME |
|
62
|
|
|
|
|
|
|
|
|
63
|
|
|
|
|
|
|
POE::Component::IRC::Common - Provides a set of common functions for the |
|
64
|
|
|
|
|
|
|
L suite |
|
65
|
|
|
|
|
|
|
|
|
66
|
|
|
|
|
|
|
=head1 SYNOPSIS |
|
67
|
|
|
|
|
|
|
|
|
68
|
|
|
|
|
|
|
use IRC::Utils; |
|
69
|
|
|
|
|
|
|
|
|
70
|
|
|
|
|
|
|
=head1 DESCRIPTION |
|
71
|
|
|
|
|
|
|
|
|
72
|
|
|
|
|
|
|
B<'ATTENTION'>: Most of this module's functionality has been moved into |
|
73
|
|
|
|
|
|
|
L. Take a look at it. |
|
74
|
|
|
|
|
|
|
|
|
75
|
|
|
|
|
|
|
This module still exports the old functions (as wrappers around equivalents |
|
76
|
|
|
|
|
|
|
from L), but new ones won't be added. |
|
77
|
|
|
|
|
|
|
|
|
78
|
|
|
|
|
|
|
=head1 AUTHOR |
|
79
|
|
|
|
|
|
|
|
|
80
|
|
|
|
|
|
|
Chris 'BinGOs' Williams |
|
81
|
|
|
|
|
|
|
|
|
82
|
|
|
|
|
|
|
=head1 SEE ALSO |
|
83
|
|
|
|
|
|
|
|
|
84
|
|
|
|
|
|
|
L |
|
85
|
|
|
|
|
|
|
|
|
86
|
|
|
|
|
|
|
L |
|
87
|
|
|
|
|
|
|
|
|
88
|
|
|
|
|
|
|
=cut |