1package Text::Emoticon::GoogleTalk;
2
3use strict;
4our $VERSION = '0.01';
5
6use Text::Emoticon 0.03;
7use base qw(Text::Emoticon);
8
9sub default_config {
10    return {
11        imgbase => "http://mail.google.com/mail/help/images/screenshots/chat",
12        xhtml   => 1,
13        strict  => 0,
14        class   => undef,
15    };
16}
17
18# Table autogernerated from http://mail.google.com/support/bin/answer.py?answer=34056
19
20__PACKAGE__->register_subclass({
21"<3" => "heart.gif",
22":(|)" => "monkey.gif",
23"\\m/" => "rockout.gif",
24":-o" => "shocked.gif",
25":D" => "grin.gif",
26":(" => "frown.gif",
27"X-(" => "angry.gif",
28"B-)" => "cool.gif",
29":'(" => "cry.gif",
30"=D" => "equal_grin.gif",
31";)" => "wink.gif",
32":-|" => "straightface.gif",
33"=)" => "equal_smile.gif",
34":-D" => "nose_grin.gif",
35";^)" => "wink_big_nose.gif",
36";-)" => "wink_nose.gif",
37":-)" => "nose_smile.gif",
38":-/" => "slant.gif",
39":P" => "tongue.gif",
40});
41
421;
43__END__
44
45=head1 NAME
46
47Text::Emoticon::GoogleTalk - Emoticon filter of GoogleTalk
48
49=head1 SYNOPSIS
50
51  use Text::Emoticon::GoogleTalk;
52  my $emoticon = Text::Emoticon::GoogleTalk->new;
53
54  my $text = "I <3 You :(|)";
55
56=head1 DESCRIPTION
57
58Text::Emoticon::GoogleTalk is a text filter that replace text
59emoticons like ":-)", "<3", etc. with the icons of Google Talk (or
60Gmail Chat), detailed in
61L<http://mail.google.com/support/bin/answer.py?answer=34056>
62
63=head1 AUTHOR
64
65Tatsuhiko Miyagawa E<lt>miyagawa@bulknews.netE<gt>
66
67This library is free software; you can redistribute it and/or modify
68it under the same terms as Perl itself.
69
70=head1 SEE ALSO
71
72L<Text::Emoticon>, L<Text::Emoticon::Yahoo>, L<Text::Emoticon::MSN>
73
74=cut
75