--- trunk/Estraier.pm	2006/01/04 14:57:27	7
+++ trunk/Estraier.pm	2006/01/04 15:04:58	8
@@ -83,8 +83,10 @@
 	my $attrs = {@_};
 
 	while (my ($name, $value) = each %{ $attrs }) {
-		push @{ $self->{attrs}->{_s($name)} }, _s($value);
+		$self->{attrs}->{_s($name)} = _s($value);
 	}
+
+	return 1;
 }
 
 
@@ -148,6 +150,22 @@
 	return sort keys %{ $self->{attrs} };
 }
 
+
+=head2 attr
+
+Get the value of an attribute.
+
+  my $value = $doc->attr( 'attribute' );
+
+=cut
+
+sub attr {
+	my $self = shift;
+	my $name = shift;
+
+	return $self->{'attrs'}->{ $name };
+}
+
 =head2 dump_draft
 
   print $doc->dump_draft;