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