sub setup {
    my $self = shift;
    $self->start_mode('default');
    $self->run_modes( [ qw( default remove ) ] );
}

sub remove {
    my $self = shift;
    my $user =
    My::User->retrieve(
        username => $self->query->param('username')
    );
    $user->delete;
}