Stories
Slash Boxes
Comments

NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

use Perl

All the Perl that's Practical to Extract and Report

Moose, it's the new Camel More | Login | Reply

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.

Without JavaScript enabled, you might want to use the classic discussion system instead. If you login, you can remember this preference.

Your inherited class (Score:1)

by eric256 (5939)

Am i missing something or does the CheckingAccount fail to actualy withdraw money unless its more than is in the account?
- Re:Your inherited class (Score:1)
  
  by Stevan (6065)
  
  The CheckingAccount::withdraw method is actually "before" method advice. It will run that sub before running the superclass code (BankAccount). So what happens is that if there is not enough money in the account to cover the withdrawl, it will withdraw money from an account designated as the "overdraft account" to compensate.
  
  The method "advice" feature, is something found in CLOS and some AOP systems. This example is actually taken directly from the book Practical Common Lisp [gigamonkeys.com] (scroll down to the section
  - Re:Your inherited class (Score:1)
    
    by eric256 (5939) on 2006.03.27 11:54 (#46791)
    
    Thanks....I totaly spaced on the "before". Pretty cool.
    
    Reply to This
    
    Parent

Get More Comments

Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.