Select Code to Download

    $obj->foo( 'bar' );
    $value1 = $obj->foo;
    $obj->baz( 'qux' );
    $value2 = $obj->baz;

    $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;
...
            if ($mode =~ /rss/i) {
            ...
    }

    $self->{_xsl_string} = _http_get($uri);

    $self->{_xsl_string} = $self->_http_get($uri);