#! perl # MANDATORY

cf::map->register (qr{^~[^/]+/});

sub init {
   my ($self) = @_;

   $self->{user} = $1;
}

sub as_string {
   my ($self) = @_;

   "~$self->{user}$self->{path}"
}

sub save_path {
   my ($self) = @_;

   sprintf "%s/%s/%s/%s", cf::localdir, cf::playerdir, $self->{user}, $self->_escaped_path
}

sub uniq_path {
   undef
}

1