The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Haver::Server::Object::Hammer - Object representation of a user.

SYNOPSIS

  use Haver::Server::Object::Hammer;
  my %opts = (); # No options at this time...
  my $uid  = 'rob';
  a
  my $user = new Haver::Server::Object::Hammer($uid, %opts);
  
  $user->uid eq $uid; # True
  $user->set(nick => "Roberto");
  $user->set(away => "Roberto isn't here.");
  $user->get('nick') eq 'Roberto'; # True
  my ($nick, $away) = $user->get('nick', 'away'); # Obvious...
  my $array_ref = $user->get('nick', 'away'); # Like above, but a arrayref.

  $user->unset('nick', 'away'); # unset one or more items.

  my @fields = $user->keys; # Returns all fields.

  $user->add_cid($cid);
  $user->remove_cid($cid);

DESCRIPTION

This module is a representation of a user. It's rather pointless, but it gives you a warm fuzzy feeling. In the future, it might store the users in a database or something.