sub new {
    my ($class,$id) = @_;
    $ARGS{open_id} = $id if $id;
    $class->_new( %ARGS );	
}

sub _new { 
    my $class = shift;
    $class->SUPER::new( @_ );
}