--- trunk/Estraier.pm	2006/01/05 13:55:06	20
+++ trunk/Estraier.pm	2006/01/05 14:30:42	23
@@ -487,7 +487,7 @@
 
 =head2 new
 
-  my $doc = new Search::HyperEstraier::ResultDocument(
+  my $rdoc = new Search::HyperEstraier::ResultDocument(
   	uri => 'http://localhost/document/uri/42',
 	attrs => {
 		foo => 1,
@@ -511,6 +511,73 @@
 	$self ? return $self : return undef;
 }
 
+=head2 uri
+
+Return URI of result document
+
+  print $rdoc->uri;
+
+=cut
+
+sub uri {
+	my $self = shift;
+	return $self->{uri};
+}
+
+
+=head2 attr_names
+
+Returns array with attribute names from result document object.
+
+  my @attrs = $rdoc->attr_names;
+
+=cut
+
+sub attr_names {
+	my $self = shift;
+	croak "attr_names return array, not scalar" if (! wantarray);
+	return sort keys %{ $self->{attrs} };
+}
+
+=head2 attr
+
+Returns value of an attribute.
+
+  my $value = $rdoc->attr( 'attribute' );
+
+=cut
+
+sub attr {
+	my $self = shift;
+	my $name = shift || return;
+	return $self->{attrs}->{ $name };
+}
+
+=head2 snippet
+
+Return snippet from result document
+
+  print $rdoc->snippet;
+
+=cut
+
+sub snippet {
+	my $self = shift;
+	return $self->{snippet};
+}
+
+=head2 keywords
+
+Return keywords from result document
+
+  print $rdoc->keywords;
+
+=cut
+
+sub keywords {
+	my $self = shift;
+	return $self->{keywords};
+}
 
 
 package Search::Estraier::Master;