+=item email
+
+Returns an email address associated with the account.
+
+=cut
+
+sub email {
+ my $self = shift;
+ my $domain;
+ my $svc_domain = qsearchs( 'svc_domain', { 'svcnum' => $self->domsvc } );
+ if ($svc_domain) {
+ $domain=$svc_domain->domain;
+ }else{
+ warn "couldn't find svc_acct.domsvc " . $self->domsvc . "!";
+ $domain="unknown";
+ }
+ return $self->username . "@" . $domain;
+}
+