--- trunk/Estraier.pm	2006/01/07 16:19:31	63
+++ trunk/Estraier.pm	2006/01/07 23:48:16	65
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 =head1 NAME
 
@@ -699,6 +699,10 @@
 
   my $node = new Search::HyperEstraier::Node;
 
+or optionally with C<url> as parametar
+
+  my $node = new Search::HyperEstraier::Node( 'http://localhost:1978/node/test' );
+
 =cut
 
 sub new {
@@ -716,10 +720,14 @@
 	};
 	bless($self, $class);
 
-	my $args = {@_};
+	if ($#_ == 0) {
+		$self->{url} = shift;
+	} else {
+		my $args = {@_};
 
-	$self->{debug} = $args->{debug};
-	warn "## Node debug on\n" if ($self->{debug});
+		$self->{debug} = $args->{debug};
+		warn "## Node debug on\n" if ($self->{debug});
+	}
 
 	$self ? return $self : return undef;
 }