sub load_defaults_for_model {
	my ($self) = @_;
	my $model = $self->defaults();
	if ( defined( $model )) {
		foreach my $attrib (keys %{ $model }) {
			$self->$attrib( $model->{$attrib} );
		}
	}
}