[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