sub new {
        my ($class,%data) = @_;
        return bless \%data, $class;
    }

##</code><code>##

    use Acme::Playmate;

    my $playmate = new Acme::Playmate("2003", "04");

    print "Details for playmate " . $playmate->{ "Name" } . "\n";
    print "Birthdate" . $playmate->{ "BirthDate" } . "\n";
    print "Birthplace" . $playmate->{ "BirthPlace" } . "\n";

##</code><code>##

    package Some::User;

    sub new {
        bless {}, shift;
    }
    sub user { die "user() must be implemented in subclass" }
    sub pass { die "pass() must be implemented in subclass" }
    sub url  { die "url() must be implemented in subclass" }

##</code><code>##

    package Some::User::Foo;
    sub user { 'bob' }
    sub pass { 'seKret' }
    sub url  { '<a href="http://somesite.com/">http://somesite.com/</a>' }

##</code><code>##

    my $foo = Some::User->new('Foo');

##</code><code>##

    print $office->manager->name;

##</code><code>##

    print $office->manager_name; # manager_name calls $manager->name

##</code><code>##

    foreach my $tender (@tenders) {
        $tender->apply($order);
    }

##</code><code>##

    $object->{foo};

##</code><code>##

    $object->foo;
    $object->set_foo($foo);

##</code><code>##

    if ($object->error) { 
        $object->log_errors 
    } # bad!

##</code><code>##

    sub log_errors {
        my $self = shift;
        return $self unless $self->error;
        $self->_log_errors;
    }

##</code><code>##

    sub connect {
        my $self = shift;
        unless ($self->_get_rss_feed) {
            $self->_log_errors;
            $self->_fetch_cached_copy;
        }
        $self;
    }

##</code><code>##

    $object->set_foo( $object->get_foo );

##</code><code>##

    --- #YAML:1.0 !perl/Product
    bin: 19
    data:
      category: 7
      cost: 2.13
      name: Shirt
      price: 3.13
    id: 7
    inv: 22
    modified: 0

##</code><code>##

    Product 7
    Name:      Shirt
    Category:  Clothing (7)
    Cost:      $2.13
    Price:     $3.13
    On-hand:   22
    Bin:       Aisle 3, Shelf 5b (19)
    Record not modified

##</code><code>##

    sub new {
        my ($class, %data) = @_;
        bless \%data => $class;
    }

##</code><code>##

    sub set_some_property {
        my ($self, $property) = @_;
        $self->{some_prorety} = $property; # (sic)
        return $self;
    }

    sub some_property { $_[0]->{some_property} }

##</code><code>##

    ok($object->set_some_property($foo), 'Setting a property should succeed');
    is($object->some_property, $foo,     "... and fetching it should also succeed");