simplify history recording task

[gitmo/moose-presentations.git] / moose-class / exercises / t / 06-advanced-attributes.t

# Your tasks ...
#
# First, we want to make the account associated with a Person a proper
# class. Call it BankAccount.
#
# This class should have two attributes, "balance", an Int that
# defaults to 100, and "owner", a Person object.
#
# The owner attribute should be a weak reference to prevent cycles.
#
# Copy the deposit and withdraw methods from the HasAccount role.
#
# Finally, add a read-only history attribute. This will be an ArrayRef
# of Int's. This should default to an empty array reference.
#
# Use a trigger to record the _old value_ of the balance each time it
# changes.
#
# Use a BUILD method in BankAccount to record the original balance in
# the history.
#
# We will now delete the HasAccount role entirely. Instead, add an
# "account" attribute to Person directly.
#
# This new account attribute should default to a new BankAccount
# object. Use delegation so that we can call Person->deposit and
# Person->withdraw and have it call those methods on the person's
# BankAccount object.
#
# Add a BUILD method to the Person class to set the owner of the
# Person's bank account to $self.

use strict;
use warnings;

use lib 't/lib';

use MooseClass::Tests;

use Person;
use Employee;
use BankAccount;

MooseClass::Tests::tests06();