Changeset 1579

Show
Ignore:
Timestamp:
05/29/05 14:57:03
Author:
miyagawa
Message:

0.02 release: add strict option

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Text-Emoticon-MSN/trunk/Changes

    r1526 r1579  
    11Revision history for Perl extension Text::Emoticon::MSN 
     2 
     30.02  Sun May 29 14:55:19 JST 2005 
     4        * Added 'strict' option 
     5          (Thanks to Marcus Ramberg) 
    26 
    370.01  Fri Mar 26 18:22:38 2004 
  • Text-Emoticon-MSN/trunk/lib/Text/Emoticon/MSN.pm

    r1526 r1579  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = '0.01'; 
     5$VERSION = '0.02'; 
    66 
    77use vars qw(%Default %EmoticonMap $EmoticonRE); 
     
    1010    imgbase => ".", 
    1111    xhtml   => 1, 
     12    strict  => 0, 
    1213    class   => undef, 
    1314); 
     
    138139    my($self, $text) = @_; 
    139140    return unless defined $text; 
    140  
    141     $text =~ s{$EmoticonRE}{$self->do_filter($EmoticonMap{$1})}eg; 
     141    if ($self->{strict}) { 
     142      $text =~ s{(?<!\w)$EmoticonRE(?!\w)}{$self->do_filter($EmoticonMap{$1})}eg; 
     143    } else { 
     144      $text =~ s{$EmoticonRE}{$self->do_filter($EmoticonMap{$1})}eg; 
     145    } 
    142146    return $text; 
    143147} 
     
    148152    my $xhtml = $self->{xhtml} ? qq( /) : ""; 
    149153 
    150     return qq(<img src="$self->{imgbase}/$icon"$class$xhtml>) 
     154    return qq(<img src="$self->{imgbase}/$icon"$class$xhtml>);  
    151155} 
    152156 
     
    209213 
    210214  <img src="blah.gif" class="emo" /> 
    211  
     215  
     216=item strict 
     217 
     218Whether it will disable smileys with space in them. 
     219defaults to 0. 
     220  
    212221=back 
    213222 
  • Text-Emoticon-MSN/trunk/t/01_emoticon.t

    r1526 r1579  
    1616    [ { class => "emo" }, 
    1717      qq(blah <img src="./wink_smile.gif" class="emo" />blah <img src="./clock.gif" class="emo" />) ], 
     18    [ { strict => 1 }, 
     19      qq!blah ;-)blah <img src="./clock.gif" />! ], 
    1820); 
    1921