sub new {
   my $class = shift;
   my $id    = shift;
   my $self  = {
      _ID        => $id,
      _FINALIZED => 0,
      _EXPENSES  => [],
      _TOTAL     => undef,
      _COUNT     => undef,
   };
   return bless $self, $class;
}