Select Code to Download

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

    use Acme::Playmate;

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

    package Some::User;

...
    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" }

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

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

    print $office->manager->name;

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

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

    $object->{foo};

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

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

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

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

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

    --- #YAML:1.0 !perl/Product
    bin: 19
...
    id: 7
    inv: 22
    modified: 0

    Product 7
    Name:      Shirt
...
    On-hand:   22
    Bin:       Aisle 3, Shelf 5b (19)
    Record not modified

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

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

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

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