Changeset 9566 for lang/perl/Data-Cloud

Timestamp:

04/16/08 17:46:21 (5 years ago)

Author:

nyarla

Message:

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

Location:

lang/perl/Data-Cloud/trunk

Files:

• lib/Data/Cloud.pm (modified) (2 diffs)
• t/07_clear.t (added)

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

@@ -78 +78 @@
 }
 
+sub clear {
+    my ( $self ) = @_;
+    my $removed = $self->data;
+    $self->{'data'} = {};
+    return $removed;
+}
+
 1;
 __END__
@@ -150 +157 @@
 This method removes the number of word.
 
+Return value is the number of the removed word.
+
 =head2 clear
 
   $cloud->clear;
+  my $removed = $cloud->clear;
+
+This method removes all data.
+
+A return value is hash reference including a word and the number.
+The form of this return value is same as C<$cloud-E<gt>data>.
+
+Please see L<"data"> for more information.
 
 =head2 increment