sub email {
	my $self = shift;
	return $self->{'email'};
}