G'day! > : Clearly, I'm missing something crucial here... :) > > And so are we. Like the code for the method for > format_cost(), but I imagine that you are not shifting the > object off at the beginning of that subroutine.
Right you are... :) Btw... The code was: sub format_cost { my $cost = shift; $cost =~ s/^(\d*)(\d\d)$/\$$1\.$2/; if ($cost eq "0") { $cost = '$0.00'; } $cost = reverse $cost; $cost =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g; return scalar reverse $cost; } To which I'be now added an extra shift at the start of the function/method to ensure that it shifts the name of the object off, before grabbing the first argument. Thanks heaps for pointing out what I was missing. :) Regards, Michael S. E. Kraus Software Developer Wild Technology Pty Ltd _______________________________ ABN 98 091 470 692 Level 4 Tiara, 306/9 Crystal Street, Waterloo NSW 2017, Australia Telephone 1300-13-9453 | Facsimile 1300-88-9453 http://www.wildtechnology.net The information contained in this email message and any attachments may be confidential information and may also be the subject of client legal - legal professional privilege. If you are not the intended recipient, any use, interference with, disclosure or copying of this material is unauthorised and prohibited. This email and any attachments are also subject to copyright. No part of them may be reproduced, adapted or transmitted without the written permission of the copyright owner. If you have received this email in error, please immediately advise the sender by return email and delete the message from your system. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>