Select Code to Download

# Create a group object to get owners and members
my $group_object = MsGroup->new(
...
foreach my $member (@$members){
  # do something usefull with the members    }
}

sub fetch_members { #    {{{1
    my $self = shift;                            # get a reference to 
+the object itself
...
    return  \@members; # return a reference to the resul
    
}#    }}}

sub do_fetch { # {{{1
    my $self = shift;                            # get a reference to 
+the object
...
        die $result->status_line;
    }
} #    }}}

sub callAPI { # {{{1
    my $self = shift;                    # Get a refence to the object
+ itself
...
    }
    return $result;
} # }}}