--- trunk/Estraier.pm	2006/01/05 15:36:25	31
+++ trunk/Estraier.pm	2006/01/05 15:38:34	32
@@ -747,6 +747,22 @@
 	$self->{auth} = "$login:$passwd";
 }
 
+=head2 status
+
+Return status code of last request.
+
+  print $res->status;
+
+C<-1> means connection failure.
+
+=cut
+
+sub status {
+	my $self = shift;
+	return $self->{status};
+}
+
+
 package Search::Estraier::Master;
 
 use Carp;