sub new { my $class = shift; my %default_parms = ( agent => "WWW-Mechanize/$VERSION", cookie_jar => {}, ); my $self = $class->SUPER::new( %default_parms, @_ ); $self->{page_stack} = []; $self->{quiet} = 0; $self->env_proxy(); push( @{$self->requests_redirectable}, 'POST' ); return bless $self, $class; }