File Coverage

blib/lib/Rose/HTML/Form/Field/DateTime/Split.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	2	2	100.0
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	16	16	100.0

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;