lib/NonameTV/StringMatcher.pm

   1 package NonameTV::StringMatcher;
   2
   3 use strict;
   4 use warnings;
   5
   6 =pod
   7
   8 =head1 NAME
   9
  10 NonameTV::StringMatcher
  11
  12 =head1 DESCRIPTION
  13
  14
  15   my $sm = NonameTV::StringMatcher->new();
  16   $sm->AddRegexp( qr/\bt.st\b/, [ 1,2 ] );
  17
  18   my $res = $sm->Match( "this is a test" );
  19   if( defined( $res ) )
  20   {
  21     print $res->[0] . " " . $res->[1] . "\n";
  22   }
  23
  24 =head1 METHODS
  25
  26 =over 4
  27
  28 =cut
  29
  30 =item new
  31
  32 The constructor for the object.
  33
  34 =cut
  35
  36 sub new
  37 {
  38   my $class = ref( $_[0] ) || $_[0];
  39
  40   my $self = { };
  41   bless $self, $class;
  42
  43   return $self;
  44 }
  45
  46 =item AddRegexp
  47
  48 Add a new regexp that all strings should be matched against.
  49 Takes two parameters, the regexp to match against and the data
  50 that should be returned if the match is successful.
  51
  52 =cut
  53
  54 sub AddRegexp
  55 {
  56   my $self = shift;
  57   my( $re, $res ) = @_;
  58
  59   push @{$self->{regexps}}, [$re,$res];
  60 }
  61
  62 =item Match
  63
  64 Match a string against all regexps in the object. Returns
  65 the result for the first regexp that matches.
  66 Takes a single parameter, the string to match against the regexps.
  67
  68 Returns undef if no regexp matches.
  69
  70 =cut
  71
  72 sub Match
  73 {
  74   my $self = shift;
  75   my( $s ) = @_;
  76
  77   foreach my $r (@{$self->{regexps}})
  78   {
  79     my $re = $r->[0];
  80     if( $s =~ /$re/ )
  81     {
  82       return $r->[1];
  83     }
  84   }
  85
  86   return undef;
  87 }
  88
  89
  90 =head1 COPYRIGHT
  91
  92 Copyright (C) 2004 Mattias Holmlund.
  93
  94 =cut
  95
  96 1;