[Jifty-commit] r4531 - in Net-Jifty: .

jifty-commit at lists.jifty.org jifty-commit at lists.jifty.org
Fri Nov 23 19:08:34 EST 2007


Author: sartak
Date: Fri Nov 23 19:08:34 2007
New Revision: 4531

Modified:
   Net-Jifty/   (props changed)
   Net-Jifty/lib/Net/Jifty.pm

Log:
 r45552 at onn:  sartak | 2007-11-23 16:01:07 -0500
 Steal email_of from Net::Hiveminder


Modified: Net-Jifty/lib/Net/Jifty.pm
==============================================================================
--- Net-Jifty/lib/Net/Jifty.pm	(original)
+++ Net-Jifty/lib/Net/Jifty.pm	Fri Nov 23 19:08:34 2007
@@ -695,6 +695,20 @@
     }
 }
 
+=head2 email_of ID
+
+Retrieve user C<ID>'s email address.
+
+=cut
+
+sub email_of {
+    my $self = shift;
+    my $id = shift;
+
+    my $user = $self->read(User => id => $id);
+    return $user->{email};
+}
+
 =head1 SEE ALSO
 
 L<Jifty>, L<Net::Hiveminder>


More information about the Jifty-commit mailing list