as_string method for Ubic::Credentials::*

berekuk · May 22, 2012 · f973dd1 · f973dd1
1 parent 80a0460
commit f973dd1
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/lib/Ubic/Credentials.pm b/lib/Ubic/Credentials.pm
@@ -98,6 +98,16 @@ sub set {
     croak 'not implemented';
 }
 
+=item B<< as_string() >>
+
+Returns human-readable string representation.
+
+=cut
+sub as_string {
+    my $self = shift;
+    return "$self"; # ugly default stringification; please override in subclasses
+}
+
 =back
 
 =cut

diff --git a/lib/Ubic/Credentials/OS/POSIX.pm b/lib/Ubic/Credentials/OS/POSIX.pm
@@ -294,6 +294,13 @@ sub set {
     }
 }
 
+sub as_string {
+    my $self = shift;
+    my $user = $self->user;
+    my ($group) = $self->group; # ignore complementary groups for the sake of readability
+    return "$user:$group";
+}
+
 =back
 
 =head1 BUGS AND CAVEATS