I have a person class and on the list it puts the value returned for stringify
self for the mid_name column or first_name column depending on whether i use
the Person::stingify_self method or Person->columns( Stringify=> ..).
When i take them I get the correct values in the listing.
Here's what it looks like with Stingify set.
Person ID First Name Mid Name Last Name
--------------------------------------------------
4 Peter Peter Joe Speltz Speltz
Here is my person class:
package My::Person;
use Class::Date ();
use strict;
use warnings;
__PACKAGE__->columns('Primary' => 'prsn_id' );
__PACKAGE__->untaint_columns( printable => [ qw/first_name mid_name last_name/
],
date => [ "dob" ] );
sub stringify_self { # with this, i get listing above
my $self = shift; join (" " , ($self->first_name,
$self->mid_name, $self->last_name) );
}
# With this, mid name is correct in listing above but first name is
# Peter/Joe/Speltz
#__PACKAGE__->columns('Stringify' => qw/first_name mid_name last_name/ );
# returns true if prsn is senior citizen
sub is_senior_cit
{
my $self = shift;
return 1 if ($self->dob <= ( Class::Date::now - '65Y' ) );
return 0;
}
1;
thanks
=====
pjs
__________________________________
Do you Yahoo!?
Check out the new Yahoo! Front Page.
www.yahoo.com
_______________________________________________
maypole mailing list
maypole at lists.netthink.co.uk
http://lists.netthink.co.uk/listinfo/maypole
This archive was generated by hypermail 2.1.3 : Thu Feb 24 2005 - 22:25:57 GMT