package Rose::HTML::Form::Field::DateTime::Split; use strict; use base qw(Rose::HTML::Form::Field::Compound Rose::HTML::Form::Field::DateTime); our $VERSION = '0.606'; # Multiple inheritence never quite works out the way I want it to... Rose::HTML::Form::Field::DateTime->import_methods ( 'inflate_value', ); Rose::HTML::Form::Field::Compound->import_methods ( 'name', ); sub validate { my($self) = shift; my $ok = $self->Rose::HTML::Form::Field::Compound::validate(@_); return $ok unless($ok); return $self->Rose::HTML::Form::Field::DateTime::validate(@_); } 1;