Select Code to Download

package Model;   # mix in to model classes that are
                 # implemented as blessed hashes
...
    my ($self, $model, @aspectData) = @_;
}

package MyModel;
@MyModel::ISA = qw(SomethingElse Model);
...
# calls $view->update($model, 'something', 123);
$model->changeSomething(123);