##
$products = $obj->get_product;
$product = $obj->get_product( $product_id );
##
##
sub new {
my $self = shift;
my %args = @_;
bless { ... }, $self;
}
##
##
sub as_string {
my $self = shift;
my $mode = shift;
if ($mode) {
if ($mode =~ /rss/i) {
...
}
##
##
$self->{_xsl_string} = _http_get($uri);
##
##
$self->{_xsl_string} = $self->_http_get($uri);