my $class=__PACKAGE__; $class->has_a ( date=>'DateTime::Format::MySQl', inflate=>sub {DateTime::Format::MySQL->parse_datetime(shift)} ); #### $obj->date->year; # or whatever, see perldoc DateTime