stuff

our $m;
our $c;
 
sub fetch_user {
  my $id = shift;
  return $id if blessed $id and $id->isa('ComA::User');
 
  my @p = ( $id );
 
  if ( blessed $id ) {
    if ( $id->can('username') ) {
      @p = ( $id->username, { key => 'name' } );
      $id = 'user::name::' . $id->username;
    } elsif ( $id->can('id') ) {
      @p = ( $id->id );
      $id = 'user::id::' . $id->id;
    } else {
      $id = ref $id;
      die( "don't know how to handle user object '$id'" );
    }
  }
 
  my $user = $m->notes( $id );
  return $user if $user;
 
  $user = $c->model( 'DB::User' )->find( @p )
    or die "Can't fetch user $p[0]";
 
  $m->notes( $id, $user );
 
  return $user;
 
}