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

##</code><code>##

    $products = $obj->get_product;
    $product  = $obj->get_product( $product_id );

##</code><code>##

    sub new {
        my $self = shift;
        my %args = @_;
        bless { ... }, $self;
    }

##</code><code>##

    sub as_string {
        my $self = shift;
        my $mode = shift;

        if ($mode) {
            if ($mode =~ /rss/i) {
            ...
    }

##</code><code>##

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

##</code><code>##

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