Changeset 7116 for lang

Timestamp:

02/25/08 11:36:20 (5 years ago)

Author:

nyarla

Message:

lang/perl/Data-Cloud: I implemented filter method.

Location:

lang/perl/Data-Cloud/trunk

Files:

• lib/Data/Cloud.pm (modified) (4 diffs)
• t/03_filter.t (added)

lang/perl/Data-Cloud/trunk/lib/Data/Cloud.pm

@@ -9 +9 @@
 
 sub new {
-    my ( $class, @args ) = @_;
+    my ( $class, %args ) = @_;
+
+    my $cs = delete $args{'case_sensitive'}          || 0;
+    my $nn = delete $args{'allow_negative_number'}   || 0;
 
     my $self = bless {
-        data => {},
+        data    => {},
+        cs      => $cs,
+        nn      => $nn,
     }, $class;
 
@@ -19 +24 @@
 
 sub data { shift->{'data'} }
+
+sub filter {
+    my ( $self, $word, $number ) = @_;
+
+    if ( ! $self->{'cs'} ) {
+        $word = lc $word;
+    }
+
+    if ( ! $self->{'nn'} ) {
+        $number = ( $number < 0 )
+                ? 0
+                : $number
+                ;
+    }
+
+    return ( $word, $number );
+}
 
 1;
@@ -47 +69 @@
 =head2 new
 
-  my $cloud = Data::Cloud->new;
+  my $cloud = Data::Cloud->new( %options );
+
+This method is constructor of Data::Cloud.
+
+The following option can be specified as arguments.
+
+=over
+
+=item C<'case_sensitive'>
+
+If this option is true, Data::Cloud distinguishes between uppercase and lowercase letters.
+And if this option is false, Data::Cloud does not distinguish between uppercase and lowercase letters.
+
+This option is false by default.
+
+=item C<'allow_negative_number'>
+
+If this option is true, Data::Cloud permits the negative number.
+And if this option is fase, Data::Cloud does not permits the negative number.
+
+This option is false by default.
+
+=back
 
 =head2 set
@@ -81 +125 @@
   my $count = $cloud->count($word);
 
+=head2 filter
+
+  my ( $word, $number ) = $cloud->filter( $word => $number );
+
+This method processes a word and its number with constructor's options.
+
+When Data::Cloud operates a word and the number, this method is called certainly.
+
 =head2 data