--- trunk/lib/WebPAC/Output/Estraier.pm 2005/12/14 18:55:38 238 +++ trunk/lib/WebPAC/Output/Estraier.pm 2005/12/14 23:08:11 246 @@ -17,11 +17,11 @@ =head1 VERSION -Version 0.03 +Version 0.04 =cut -our $VERSION = '0.03'; +our $VERSION = '0.04'; =head1 SYNOPSIS @@ -214,6 +214,14 @@ nodedel => [ qw/name/ ], }; +=head2 est_ua + +Make C object with Super User priviledges + + my $ua = $self->est_ua( user => 'admin', passwd => 'admin' ); + +=cut + sub est_ua { my $self = shift;