cmd/show/user

   1 #
   2 # show either the current user or a nominated set
   3 #
   4 my $self = shift;
   5 my @set = split;      # the list of users you want listings (may be null)
   6
   7 @set = ($self->call) if !@set;   # my call if no args
   8
   9 my ($call, $field);
  10 my @fields = DXUser->fields();
  11 foreach $call (@set) {
  12   my $user = DXUser->get($call);
  13 }
  14
  15