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

sub get_list {
    my $class = shift;
    $class->SUPER::get_list( %ARGS );
}