Changeset 13377

Timestamp:

06/07/08 16:40:56 (5 years ago)

Author:

nyarla

Message:

I implemented rating method.

Location:

lang/perl/Data-Cloud/trunk

Files:

• lib/Data/Cloud.pm (modified) (2 diffs)
• t/11_rating.t (added)

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

@@ -136 +136 @@
 }
 
+sub rating {
+    my ( $self, %args ) = @_;
+
+    my $rate = delete $args{'rate'} or Carp::croak "Argument 'rate' is not specified.";
+    Carp::croak "Argument 'rate' is not positive number"    if ( $rate < 0 );
+    Carp::croak "Argument 'rate' is zero"                   if ( $rate == 0 );
+
+    my $all = scalar( keys %{ $self->data } );
+    my $num = int( ($all / $rate) + 0.5 );
+       $num = 1 if ( $num == 0 );
+
+    my $results = [];
+    my $count   = $num;
+    my $rank    = $num;
+    for my $word ( sort { $self->data->{$b} <=> $self->data->{$a} } sort keys %{ $self->data } ) {
+        push @{ $results }, +{
+            name    => $word,
+            count   => $self->data->{$word},
+            rank    => $rank,
+        };
+
+        $count--;
+        if ( $count == 0 ) {
+            $rank--;
+            $rank = 1 if ( $rank <= 0 );
+            $count = $num;
+        }
+    }
+
+    return $results;
+}
+
 1;
 __END__
@@ -248 +280 @@
   my $resource = $cloud->rating( rate => 5 );
 
+This method assigns the rate to a word.
+
+The rate is specified as argument C<'rate'>.
+Argument 'rate' has to be an integer of more than zero.
+
+A return value is the following feeling:
+
+  $resource = [
+      { name => 'foo', count => 20, rank => 5 },
+      { name => 'bar', count => 15, rank => 4 },
+      { name => 'baz', count => 10, rank => 3 },
+      ...
+  ];
+
 =head2 filter